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

 1222376 visiteurs

 3 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 : - Outlook
Page lue 13731 fois
Vous êtes ici :   Accueil » SendMail Automation