Discussion :

[naproc]

bonjour a tous, je dois faire une application qui envoie un email depuis outlook avec delphi 6. jusque la tout va bien je regarde du coté du composant TOutlookApplication et pond rapidement un peit bout de code qui fonctionne :

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
 
 
  vMailItem: variant;
 
  //si outlook n'est pas en cour d'execution ouvre outlook
  if not ExeRunning('outlook',False) then
   //ouvre outlook
   ShellExecute (handle,'Open','outlook.exe','','c:\',SW_SHOWNORMAL);
 
  //cree le mail et l'envoi a l'adresse indique dans la variable sendmail
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add(SendEmail);
  vMailItem.Subject := 'cde';
  vMailItem.Attachments.Add(CheminFichierCsv);
  vMailItem.Send;

Jusque la tout va bien et la on me dit ba il me faut un accusé de reception ( qui n'etait pas prévu a la base évidement) et la c'est le drame je trouve aucune solution. ma meilleur piste etant ceci

Code :

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

1
2
 
vMailItem.headers.add('disposition-notification-to:<'+Expediteur@provider.com+'>');

et la j'ai un super message d'erreur : méthode headers non supportée par l'objet Automation

du coup je me pose la question vuq ue je n'ai rien trouvé la dessus si cela est possible avec le Composant TOutlookApplication de mettre un accusé de reception.

par avance
merci de vos réponses

[cincap]

@ naproc,

A ma connaissance :

l'accusé de réception est traité par le destinataire sur présence d'un "Disposition-Notification-To" dans le mail, peu importe qu'il soit destinataire, Cc ou Bcc...et selon le client mail c'est ignoré, automatique ou sur acceptation du destinataire. la seule réelle preuve de réception d'un mail par le destinataire, c'est qu'il y réponde

Rien que ceci :

Code :

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

1
2
 
vMailItem.Headers.Add('Disposition-Notification-To', tonAdress@email);

@+,

Cincap

[naproc]

merci pour ta réponse je l'ai testé mais j'obtient le même message d'erreur :

méthode headers non supportée par l'objet Automation

[tourlourou]

essaye

Code :

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

vMailItem.ReadReceiptRequested := True;

[naproc]

@tourlourou

merci pour ta réponse elle fonctionne parfaitement