|
Il ya beaucoup de raisons d'envoyer du courrier à partir d'une macro Excel. Par exemple, lorsque la somme des ventes atteint une certaine valeur , un gestionnaire peut vouloir savoir tout de suite . Bien qu'il existe quelques façons d'envoyer des courriels à 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 est installé sur l' ordinateur que vous utilisez pour ouvrir la feuille de calcul . Dans ce cas , vous pouvez utiliser CDO , qui représente la Collaboration Data Object , à la place. Instructions
1 Appuyez sur " Alt " et "F11" dans le même temps à partir de la feuille de calcul Excel pour ouvrir le rédacteur intégré de Visual Basic.
2 Copier et coller le code suivant dans la fenêtre de code vide : Sous CDO_Mail_Small_Text () IMSG As ObjectDim ICONF Comme ObjectDim strBody Comme Flds Dim cordes ' As Variant
Set IMSG = CreateObject (" CDO.Message ") Set ICONF = = 2 '. Item ( " http://schemas.microsoft.com/cdo/configuration/smtpserver " ) _ = " Remplissez votre serveur SMTP ici " . Item ( " http://schemas.microsoft.com/" End) = 25 ' . Update' Avec
strBody =" cdo /configuration /SMTPServerPort Salut là " et vbNewLine & vbNewLine & _" Ceci est la ligne 1 " et vbNewLine & _" Ce est la ligne 2 "et vbNewLine & _" Ceci est la ligne 3 "et vbNewLine & _" Ceci est la ligne 4 "
iMsgSet . Configuration = iConf.To =" person@email.com " . CC = "" . BCC = "" . From = "" " personne " "< person@email.com >" . Subject = " sujet" . TextBody = strbody.SendEnd Avec
Fin sous
3 Remplacer " Remplissez votre serveur SMTP ici " avec l'adresse du serveur SMTP que vous souhaitez utiliser .
4 Appuyez sur " F5" pour exécuter la macro et envoyez votre message e-mail .
|
