Envoyer un email

bonjour

je voudrais envoyer un message par email à lin fin d'une macro

cordialement

Salut,

J'ai utilisé ça dernièrement mais je ne sais plus d'où ca vient

Pour l'application Outlook :

Public Sub testEnvoiMail()

  Dim MonOutlook As Object
  Dim MonMessage As Object  

  ' On crée une instance d'Outlook :
  Set MonOutlook = CreateObject("Outlook.Application")
  ' Et on crée un élément Outlook, qui sera un message E-Mail :
  Set MonMessage = MonOutlook.CreateItem(0)

 MonMessage.To = '"Destinataire(s) à rentrer ici"
  MonMessage.Subject = '"sujet du message"
  MonMessage.Body = '"Corp du message"
  MonMessage.ReadReceiptRequested = False 'Accusé de reception

  MonMessage.Send

  Set MonOutlook = Nothing ' On ferme !

End Sub

Cldt,

Uras

bonjour

cela ne fonctionne pas

cordialement

Bonjour Olivcoco, et le Forum

J'ai propose une solution sur le post suivant, il y a quelques jours.

https://forum.excel-pratique.com/excel/envoi-mail-en-copie-cachee-vers-outlook-t49899.html

Le sujet concernait les destinataires en copie caché mais la trame pour les destinataires, l'objet et le texte existe.

et aussi dans post suivant

https://forum.excel-pratique.com/excel/ouvrir-boite-mail-depuis-textbox-de-l-userform-t49922.html

Reviens vers nous si tes interrogations subsistent toujours.

Bonjour

Merci

les lignes de programation fonctionne, j'ai du faire quelque erreur excuse moi

cordialement

BONJOUR

pour que cela fonctionne il faut que outlook soit déja ouvert

+

dans les réferences dans outil microsoft outlook library soit activé

cordialement