Création d’un objet MailItem (Outlook) à partir de Excel, VBA

En ce qui concerne VBA, MailItem est un objet Outlook que vous connaissez très bien comme un message électronique typique qui arrive dans votre boîte de réception. L’objet MailItem est composé des champs familiers To, CC et Subject. Les autres composants de l’objet MailItem sont le corps dans lequel vous tapez le texte de votre message, un niveau facultatif d’importance et peut-être une pièce jointe.

Lorsque vous souhaitez composer un e-mail avec VBA, vous déclarez une variable pour l’objet MailItem et le définissez comme un élément créé de l’objet d’application Outlook. Par exemple, la macro suivante crée un message électronique avec une pièce jointe de classeur.

Sub EnvoyerEmail()

' Déclarez les variables d'objet pour Outlook.

Dim objetOutlook As Object

' Vérifiez qu'Outlook est ouvert.

On Error Resume Next

Set objetOutlook = GetObject(, "Outlook.Application")

' Si Outlook n'est pas ouvert, fermez le sous.

If objetOutlook Is Nothing Then

Err.Clear

MsgBox _

" Impossible de continuer, Outlook n'est pas ouvert.", , _

" Veuillez ouvrir Outlook et réessayer."

Exit Sub

' Outlook est déterminé comme étant ouvert, donc OK pour continuer.

Else

' Établissez une variable Object pour un mailitem.

Dim objetMailItem As Object

Set objetMailItem = objetOutlook.CreateItem(0)

' Créez le mailitem.

With objMailItem

.To = "chancelin@yahoo.com"

.CC = "elie@gmail.com"

.Subject = " Test du code e-mail "

.Importance = 1 'Le définit comme importance normale (Low = 0 and High = 2)

.Body = " Bonjour, c'est un test." & vbNewLine & " Passe une bonne journée."

.Attachments.Add "C:\mesfichiers\monfichier1.xlsx"

' Modifiez la commande Afficher sur Envoyer sans consulter l'e-mail.

.Display

End With

' Fermez le bloc If.

End If

End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x