Envoi de mail avec Indy : initialiser "message-id"

Version imprimable

13/10/2007, 14h28
bib34690

Envoi de mail avec Indy : initialiser "message-id"

Bonjour,

J'utilise Indy10 avec Delphi7 pour créer et envoyer des mails.
Je ne trouve pas le moyen d'initialiser la propriété "Message-Id".

qq saurait-il comment faire ?
merci.

vu sur ce site

trouvé sur ce site , si cela peut t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Screen.Cursor:=crHourGlass;
IdMessage1.Clear;
IdMessage1.From.Text :=Edit4.Text;
IdMessage1.ReplyTo.EMailAddresses:=Edit4.Text;
IdMessage1.Recipients.EMailAddresses:=edit3.text;
IdMessage1.Date:=Date;
IdMessage1.Subject:=edit2.text;
IdMessage1.Priority:=mpNormal;
IdMessage1.Body.Assign(Memo1.Lines);
if not (Edit1.Text='')
then Tidattachment.create(IdMessage1.MessageParts,edit1.text);
IdSMTP1.AuthType:=atdefault;
IdSMTP1.Host:='SMTP.free.fr';
IdSMTP1.Port:=25;
IdSMTP1.UserName:='xxxxx';
IdSMTP1.Password:='xxxxx';
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
Screen.Cursor:=crDefault;
Statusbar1.panels[0].text := 'le message à été envoyé';
end;
end;

14/11/2007, 21h17
tourlourou

Code:

Reponse.Headers.Add( 'Message-ID: <123456789>' );

fonctionne avec Indy 9 en D5
15/11/2007, 10h00
Rayek
Avec Indy 10 normalement
Code:

1 2 3 if not (Edit1.Text='') then Tidattachment.create(IdMessage1.MessageParts,edit1.text);
Ne fonctionnera pas.

il faut utiliser TidattachmentFile (penser à mettre dans les uses idattachmentFile)
06/11/2019, 10h05
SergioMaster

Bonjour,

Citation:

Envoyé par tourlourou

Code:

Reponse.Headers.Add( 'Message-ID: <123456789>' );

fonctionne avec Indy 9 en D5

c'est ce que je cherchais mais ta réponse est un peu laconique Reponse = idmessage1 ? Et qu'en est-il du format de l'ID numérique uniquement, obligatoirement entre <> ?
si tu as des précisions pendant que je fais mes propres tests, je suis preneur ;)
12/11/2019, 17h35
tourlourou

Bonjour Serge,

Il semble qu'il y ait un format obligatoire : l'identifiant doit être unique et doit respecter la forme d'une adresse mail.
Mon exemple de l'époque n'était donc pas valable...
Il s'agit bien d'un TIdMessage pour la variable Reponse.
Je suppose (pas de souvenir) que c'est Indy qui impose le format pour ajouter une ligne d'entête ; à tester si les <> sont obligatoires.
12/11/2019, 18h12
SergioMaster
Bonjour,

entre-temps, j'ai pu trouver, il faut savoir qu'en plus la version de Indy joue :aie:
Il ne me reste plus qu'à implémenter le DKIM pour un score mail-tester maximum (actuellement je suis à 9/10) cf ce post
Code:

1 2 3 4 5 // indy 10 IdMessage1.Subject := sujet.text; // Sujet du message IdMessage1.MsgId:= '2018test.pdf@danseazur.com'; IdMessage1.ExtraHeaders.Values['Message-Id'] := IdMessage1.MsgId;