digital-nation

' Création d'un objet relatif à l'application Outlook
Dim OutlApp2 As New Outlook.Application
' Création d'un objet interne à l'application Outlook pré-déclarée e-mail
Dim OutlMail2 As MailItem
' Définition de la variable relative à l'application Outlook comme 
' nouvelle application (objet)
Set OutlApp2 = New Outlook.Application
' Définition de l'élément interne de l'application Outlook comme 
' création d'un nouvel élément mail
Set OutlMail2 = OutlApp2.CreateItem(olMailItem)
'Avec le nouvel élément mail, 
With OutlMail2
            ' Indique à qui doit parvenir l e-mail 
            .To = "adresse_ou_listeDeDistribution@domaine.ext"
            ' Indique le sujet du message
            .Subject = "Sujet_Du_Message"
            ' Indique le corps du message
            .Body = "Corps du message"
            ' L'attachement du fichier qui doit être présent 
            ' en tant que pièce jointe
            .Attachments.Add "\\chemin\fichier.ext"
            ' Affichage du message avant envois
            ' .Display  ' pour l'affichage du message
            ' Envois du message 
            .Send ' pour l'envoi direct du message
End With