Accusé réception avec OUTLOOKRésolu

Question

Bonjour, j'utilise un objet outlook.application pour envoyer un mail avec des pièces jointes : Set AppMail = CreateObject("Outlook.Application") Set EnvMail = AppMail.CreateItem(0) With EnvMail .Subject = Trim(TitreEmail) .Recipients.add Trim(AdresseEmail) .Body = Trim(CorpsEmail) Masque = Trim(DossierFichiers) & "\*.*" NomFichier = Dir(Masque, vbNormal) While NomFichier <> "" If NomFichier <> "." Or NomFichier <> ".." Then .Attachments.add Trim(DossierFichiers) & "" & Trim(NomFichier) Trouver = True End If NomFichier = Dir Ind = Ind + 1 Wend .Send end with Aucun pb, ça fonctionne parfaitement. Comment faire pour demader un accusé de réception et un confirmation de lecture Merci d'avance, ThGa

michelxld · Accepted Answer

bonjour

j'espere que ces infos pourront t'aider

With EnvMail
...
.OriginatorDeliveryReportRequested = True 'confirmation de réception
.ReadReceiptRequested = True 'confirmation de lecture
...
End With

bonne journée
michel

thga47 · Answer

Merci, c'est exactement ce que je cherchais.

D&#233;sol&#233; d'avoir &#233;t&#233; si long &#224; te remercier.

ThGa

Accusé réception avec OUTLOOK

2 réponses

Discussions similaires