Comment utiliser une macro Excel à Email Sans utiliser Outlook

Comment utiliser une macro excel à l`email sans utiliser outlook

Il`s possible to send email from Excel without calling up Outlook.

Il y a beaucoup de raisons d`envoyer du courrier à partir d`une macro Excel. Par exemple, lorsqu`une somme des ventes atteint une certaine valeur, un gestionnaire peut vouloir savoir tout de suite. Bien qu`il existe quelques façons d`envoyer email à partir d`une macro Excel, la méthode la plus couramment utilisée consiste à exploiter Outlook. C`est un problème si vous n`avez pas Outlook installé sur l`ordinateur que vous utilisez pour ouvrir la feuille de calcul. Dans ce cas, vous pouvez utiliser CDO, qui représente l`objet de données de collaboration, à la place.

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

Copiez et collez le code suivant dans la fenêtre de code vide:
Sous CDO_Mail_Small_Text ()

Dim IMsg As Object
Dim ICONF As Object
strbody Dim As String
`Dim Flds As Variant


Set IMsg = CreateObject ("CDO.Message")
Set ICONF = CreateObject ("CDO.Configuration")

.Article("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

`.Article("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
`= "Remplissez votre serveur SMTP ici"
`.Article("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
`.Mettre à jour
`Terminer parstrbody = "salut" &Amp vbNewLine &Amp vbNewLine &_ Amp
"Ceci est la ligne 1" &Amp vbNewLine &_ Amp
"Ceci est la ligne 2" &Amp vbNewLine &_ Amp
"Ceci est la ligne 3" &Amp vbNewLine &_ Amp
"Ceci est la ligne 4"
Avec IMsg
Set .configuration = ICONF
.to = "[email protected]"
.CC = ""
.BCC = ""
.De = """Personne"" lt; [email protected] gt;"
.= Sujet "Sujet ligne"
.TextBody = strbody
.Envoyer
Terminer par

End Sub

Remplacer "Remplissez votre serveur SMTP ici" avec l`adresse du serveur SMTP que vous souhaitez utiliser.
presse "F5" pour exécuter la macro et envoyer votre message.