envoi mail simple en vba

Bonjour,

j'aimerais automatiser l'envoi d'un mail en cas d'erreur mais je ne comprends pas trop comment faire.
Je suis perdu entre les trucs pop3, smtp tout ca. Je veux juste envoyer un mail tout simple avec un titre et un contenu, sans pièce jointe, en passant par outlook 2003.

que dois-je utiliser?

Merci d'avance pour votre réponse.

Mickaël.

Bonjour,,
une recher sur la faq pourrais peut être te convenir
http://excel.developpez.com/faq/inde...age=Messagerie

Edit plus précisément
http://excel.developpez.com/faq/inde...nkCorpsMessage
ce n'est pas parce qu'il traite des liens hypertext que tu est obligé de les utiliser ;)

Salut,
Voici un exemple de code, reste à voir comment tu défini le(s) destinataire(s)...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub EnvoiFichier()   ' ENVOI PAR E-MAIL DU FICHIER :   Dim MonOutlook As Object Dim MonMessage As Object   Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "xxxx@accor.com" MonMessage.Subject = "Rapport d'erreur" Corps = "Bonjour," 'début du message Corps = Corps & Chr(13) & Chr(10) 'passage à la ligne Corps = Corps & "Voici le fichier convenu." 'suite de message MonMessage.body = Corps MonMessage.send Set MonOutlook = Nothing End Sub

---

A+

Merci pour votre réponse,

le code est très bien! il reste juste un message d'outlook me demandant l'autorisation de poursuivre l'envoi du mail,

y a t'il quelque chose pour valider ceci automatiquement?

Salut,
Pour éviter la confirmation d'envoi tu peux utiliser ceci
http://www.contextmagic.com/express-clickyes/

Ou alors tu dois faire une recherche dans le forum, je crois qu'il y a une astuce en utilisant .display et des sendkeys au lieu de .send

A+

Edit: Voici le post avec le Sendkeys...mais j'ai pas essayé
http://www.developpez.net/forums/d73...ok-sendkeys-v/