Ajouter un champ DE lors d'un envoi de mail en VBA ?

Ajouter un champ DE lors d'un envoi de mail en VBA ? - VB/VBA/VBS - Programmation

Marsh Posté le 21-01-2011 à 10:33:24    

Bonjour à tous,
Voilà je suis en train de mettre en place un outil excel pour envoyer automatiquement après validation d'un mail.
Seulement voilà, manuellement ce mail part avant le champ DE "xxxx", or actuellement mon code VBA ne contient que les champs TO, BODY et SUBJECT... est-il possible de rajouter le champ FROM ?
 
Voilà le bout de code :  

Code :
  1. Dim ol As Object, myItem As Object
  2.     Set ol = CreateObject("Outlook.Application" )
  3.     Set myItem = ol.CreateItem(olMailItem)
  4.     With myItem
  5.     .From = From_cell [cela ne semble pas marcher j'ai un code erreur ]
  6.     .To = Att_cell
  7.     .Cc = Copy_cell
  8.     .Subject = Topic_cell
  9.     .HTMLBody = SheetToHTML(Content_cell)
  10.     .Send
  11.     End With
  12.     Set ol = Nothing


 
Merci pour votre aide ;)
 
Cordialement
 
Cyril

Reply

Marsh Posté le 21-01-2011 à 10:33:24   

Reply

Marsh Posté le 21-01-2011 à 15:34:13    

J'ai trouvé ;)
 
.ReplyRecipients.Add (adresse_email)
.SentOnBehalfOfName = adresse_email
Les deux ensemble permettent d'afficher le mail avec de la part de adresse_email, et quand on fait un "répondre", adresse_email est utilisé comme réponse ...
 
Cordialement

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed