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

 1026497 visiteurs

 3 visiteurs en ligne

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

Vous êtes ici :   Accueil » SendMail Automation