Envoi de mail dans une macro VBA

stani75 Messages postés 1 Date d'inscription vendredi 28 janvier 2005 Statut Membre Dernière intervention 28 janvier 2005 - 28 janv. 2005 à 15:26
cs_algori Messages postés 868 Date d'inscription dimanche 26 décembre 2004 Statut Membre Dernière intervention 26 février 2008 - 28 janv. 2005 à 19:52
salut,
devant la profusion de solutions je suis perdu ...

En VBA (pas VB donc), quelle est le meilleur code d'écriture d'une macro permettant l'envoi d'un mail ??

Merci !

2 réponses

cs_algori Messages postés 868 Date d'inscription dimanche 26 décembre 2004 Statut Membre Dernière intervention 26 février 2008 1
28 janv. 2005 à 19:48
Si t'es sur XP, essaie le code suivant dans une macro (chez moi ça marche) :
Set obmail = CreateObject("CDO.Message")
obmail.From = "émetteur@free.fr"
obmail.To = "destinataire@wanadoo.fr"
obmail.Subject = "Un message"
obmail.Textbody = "Le joli petit message !"
obmail.AddAttachment "C:\texte.doc"
obmail.Send
Normalement, ça doit marcher sur XP.
Réponds moi pour me dire si ça marche...
0
cs_algori Messages postés 868 Date d'inscription dimanche 26 décembre 2004 Statut Membre Dernière intervention 26 février 2008 1
28 janv. 2005 à 19:52
J'ai oublier de te dire : l'émetteur peut avoir un nom bidon tant que le domaine écrit existe (ici, c'est free mais tu aurais pu mettre wanadoo ou hotmail ou caramail...). De plus, tu peux mettre un corps en HTML. C'est obmail.HTMLbody (je crois...)
Allez !!! Tchao !!!
0
Rejoignez-nous