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

Il existe de nombreuses raisons d'envoyer un e-mail depuis une macro Excel (ex. : alerter un responsable quand un seuil de ventes est atteint). La méthode la plus courante utilise Outlook, mais si Outlook n'est pas installé, vous pouvez utiliser CDO (Collaboration Data Object).

Étape 1

Appuyez simultanément sur « Alt » et « F11 » depuis la feuille Excel pour ouvrir l'éditeur Visual Basic intégré.

Étape 2

Copiez-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

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

iConf.Fields.Item("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2
iConf.Fields.Item("https://schemas.microsoft.com/cdo/configuration/smtpserver") = "Votre serveur SMTP ici"
iConf.Fields.Item("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
iConf.Fields.Update

strbody = "Bonjour" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"

With iMsg
Set .Configuration = iConf
.To = "destinataire@email.com"
.CC = ""
.BCC = ""
.From = """Expéditeur"" <expediteur@email.com>"
.Subject = "Objet du message"
.TextBody = strbody
.Send
End With
End Sub

Étape 3

Remplacez « Votre serveur SMTP ici » par l'adresse de votre serveur SMTP.

Étape 4

Appuyez sur « F5 » pour exécuter la macro et envoyer l'e-mail.

Conseil

Si vous n'avez pas de serveur SMTP, Google en fournit un gratuitement (smtp.gmail.com).