Excel et Outlook

vernisson -  
 vernisson -
Bonjour,

Je souhaite insérer uniquement une feuille d'un dossier Excel dans un courrier électronique.

Je suis sous office 2007.

Merci de votre réponse.



A voir également:

1 réponse

Réponse 1 / 1
thev Messages postés 2073 Date d'inscription   Statut Membre Dernière intervention   717
 
Bonjour,

Le plus simple est d'utiliser la méthode "MailEnveloppe" associée à cette feuille. Ci-dessous, exemple de code : 

Sub envoi_mail_feuille()
    Dim votre_feuille As Worksheet
    Dim contenu As String, email As String, objet As String

    '// Création mail et envoi ...............................
    With votre_feuille
        .Activate
        With .MailEnvelope
            .Introduction = contenu 'contenu du mail
            
            'Destinataires, objet et envoi
            With .Item
                .To = email       'adresse mail du destinataire
                .CC = ""
                .BCC = ""
                .Subject = objet  'objet du mail
                .Send
            End With
        End With
    End With
    
    '// Attente complétude opération d'envoi du mail
    DoEvents
    
    '// sauvegarde classeur
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Application.DisplayAlerts = True
    
End Sub


0
vernisson
 
Merci thev, je pensais qu'il ne s'agissait que de manipulations mais j'essai.
0