Discussion :

[micom59]

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.

[Krovax]

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

[Fvandermeulen]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[micom59]

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?

[Fvandermeulen]

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/