Comment utiliser une macro Excel pour envoyer un e-mail sans utiliser Outlook

Il existe de nombreuses raisons d'envoyer du courrier à partir d'une macro Excel. Par exemple, lorsqu'une somme de ventes atteint une certaine valeur, un responsable peut vouloir le savoir immédiatement. Bien qu'il existe plusieurs façons d'envoyer des e-mails à partir d'une macro Excel, la méthode la plus couramment utilisée consiste à exploiter Outlook. C'est un problème si Outlook n'est pas installé sur l'ordinateur que vous utilisez pour ouvrir la feuille de calcul. Dans ce cas, vous pouvez utiliser CDO, qui signifie Collaboration Data Object, à la place.

Étape 1

Appuyez sur "Alt" et "F11" en même temps à partir de la feuille de calcul Excel pour ouvrir l'éditeur Visual Basic intégré.

Étape 2

Copiez et collez le code suivant dans la fenêtre de code vide :Sub CDO_Mail_Small_Text() Dim iMsg As Object Dim iConf As Object Dim strbody As String ' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

.Item("http://schemas.Microsoft.com/cdo/configuration/sendusing") =2 ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserver") _ ' ="Remplir dans votre serveur SMTP ici" ' .Item("http://schemas.Microsoft.com/cdo/configuration/smtpserverport") =25 ' .Update ' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
 "This is line 1" & vbNewLine & _
 "This is line 2" & vbNewLine & _
 "This is line 3" & vbNewLine & _
 "This is line 4"

With iMsg
 Set .Configuration = iConf
 .To = "[email protected]"
 .CC = ""
 .BCC = ""
 .From = """Person"" < [email protected] >"
 .Subject = "Subject Line"
 .TextBody = strbody
 .Send
End With

Fin du sous-titre

Étape 3

Remplacez "Remplissez ici votre serveur SMTP" par l'adresse du serveur SMTP que vous souhaitez utiliser.

Étape 4

Appuyez sur "F5" pour exécuter la macro et envoyer votre message électronique.

Astuce

Si vous ne possédez pas le vôtre, Google fournit un serveur SMTP (http://gmail.google.com) que vous pouvez utiliser gratuitement.