Recherche
Recherche
Les mémos
Je débute...
Visites

 996459 visiteurs

 2 visiteurs en ligne

SendMail ( Outlook Automation )

Envoi de mails avec pièces jointes depuis VBA, en pilotant Outlook Office par automation.
 

Sub SendMailAutomation()
    Dim Ol_App As New Outlook.Application
    Dim Ol_Item As Outlook.MailItem
    Set Ol_Item = Ol_App.CreateItem(olMailItem)

    With Ol_Item
        .To = "destinataire@domaine.fr"
        .Subject = "L'objet du message"
        .Body = "Le corps du message"
        .Attachments.Add "F:Mes Documentsfichier.jpg"
        .Save
        .send
    End With

    Set Ol_Item = Nothing
    Set Ol_App = Nothing
End Sub


Catégorie : Les mémos - Outlook
Page lue 12435 fois