En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1263818 visiteurs

 81 visiteurs en ligne

Nous contacter

Contact

SendMail Automation

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 13911 fois

Vous êtes ici :   Accueil » SendMail Automation