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.
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.
trouvé sur ce site , si cela peut t'aider
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
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;
fonctionne avec Indy 9 en D5
Code : Sélectionner tout - Visualiser dans une fenêtre à part Reponse.Headers.Add( 'Message-ID: <123456789>' );
Avec Indy 10 normalement
Ne fonctionnera pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 if not (Edit1.Text='') then Tidattachment.create(IdMessage1.MessageParts,edit1.text);
il faut utiliser TidattachmentFile (penser à mettre dans les uses idattachmentFile)
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.
Bonjour,
entre-temps, j'ai pu trouver, il faut savoir qu'en plus la version de Indy joue![]()
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager