Skip navigation.

exploreopera

| Help

Sign up | Help

photo

Groumphy au quotidien

Posts tagged with "outlook"

Un peu de tout !

, , , ...

Ce qui se dit sur la toile !

Read more...

Envois d'e-mail avec Microsoft Excel par Visual Basic for Application

, , , ...

Bien souvent il est utile de pouvoir envoyer envoyer un e-mail directement à partir d'une application sans combiner l'utilisation multiple de macro-commande dans les applications séparées.

Visual Basic for Application (VBA) permet cela aisément. Voyons la manière de le faire :

' 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

Rien de plus... Vous pouvez aussi effectuer des envois avec Microsoft Word, Microsoft Powerpoint etc. Le code est similaire.
Il est important de noter que seul la méthode Send ou Display peuvent être employée mais non simultanément.

Le code étant suffisament commenté, je pense que tout est théoriquement clair.
September 2008
MTWTFSS
August 2008October 2008
1234567
891011121314
15161718192021
22232425262728
2930