Discussion :

[navyg]

Bonjour,

J'arrive a envoyer un mail format text avec avec le composant TidMessage.

Ce que je n'arrive pas à faire c'est trouver la bonne syntaxe pour ajouter une pièce jointe (format pdf ou texte par exemple)

J'ai cru comprendre qu'il fallait créé le messageparts :

Code :

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

TIdAttachment.Create(IdMessage1.MessageParts)

Mais après ?
J'ai essayé plusieurs syntaxes de add ou de loadfromfile mais j'ai toujours une erreur ...

Le code est tout simple mais je n'y arrive pas ...
Merci d'avance pour vos lumières
Je précise que j'ai potassé l'excellent tutoriel de Gilles Vasseur https://gilles-vasseur.developpez.co...-robin/#LVII-B, mais la pièce jointe n'est pas abordé pour le SMTP

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
procedure TForm1.Button2Click(Sender: TObject);
var
   tpj: tidattachment;
begin
//Efface l'entête et le corps du message
IdMessage1.Clear;
//Adresse email de l'expediteur
IdMessage1.From.Text :=Edit1.Text;
//Adresse email où le destinataire pourra répondre
IdMessage1.ReplyTo.EMailAddresses:=Edit1.Text;
//Adresse email du destinataire
IdMessage1.Recipients.EMailAddresses:=Edit2.Text;
//Date de l'envoi du message
IdMessage1.Date:=Date;
//Sujet du message
IdMessage1.Subject:=Edit4.Text;
//Priorité du message
IdMessage1.Priority:=mpNormal;
//Corps du message
IdMessage1.Body.Assign(Memo1.Lines);
 
// si un fichier attaché est mentionné
if Edit3.Text<>'') then
   //Attache le fichier
   begin
   tpj:=TIdAttachment.Create(IdMessage1.MessageParts);
   tpj.LoadFromFile(edit3.text);  //----------> ne fonctionne pas  :o(  cela me renvoie une "erreur abstraite"
   end;
 
//Connexion au serveur smtp
IdSMTP1.AuthType:=satDefault;
IdSMTP1.Host:='smtp.**********';
IdSMTP1.Port:=***;
IdSMTP1.UserName:='********';
IdSMTP1.Password:='*********';
IdSMTP1.Connect;
   try
   IdSMTP1.Send(IdMessage1);
   finally
   IdSMTP1.Disconnect;
   end;
end;

[navyg]

Bon je me réponds tout seul car ça peut aider quelqu'un d'autres.
Quand on pose un composant idmessage sur sur la form, dans la clauses uses, il y a tout un tas de idxxxxx qui s'inscrivent, mais pas idAttachementFile :o(
En le rajoutant manuellement, j'ai enfin accès à

TIdAttachmentFile.Create(IdMessage1.MessageParts, edit3.text)

et non plus à idAttachment.create sans le File !

ensuite, il suffit de rajouter .filename:=edit3.text et le tout est joué

Bon, ça marche avec le port 25, mais il va falloir que je m'attaque maintenent au port 587 je crois, et là il faut le idSSL...etc le dernier ferme la porte ....

[navyg]

Bon, je me réponds encore et c'est tant mieux, ça prouve que je progresse !

Il m'a suffit de rattacher le composant IdSSLIOHandlerSocketOpenSSL à la propriété IOHandler du composant IdSMTP ... et de trouver les dll (lien indiqué dans le tuto ci-dessus), et où placer ces dll et ça a très bien marché.

[ShaiLeTroll]

La FAQ Comment envoyer un e-mail ? avec la seconde partie en Indy doit être un peu vieille D7, Indy 9, tu as dedans le piège du TIdAttachment\TIdAttachmentFile
Pense à gérer tes ContentType du Body et des Attachment
Ainsi que l'encodage CharSet UTF8 ...

Pense à déployer avec ton exe Libeay32.dll et ssleay32.dll sinon le IdSSLIOHandlerSocketOpenSSL ne fonctionnera pas

[navyg]

La FAQ Comment envoyer un e-mail ? avec la seconde partie en Indy doit être un peu vieille D7, Indy 9, tu as dedans le piège du TIdAttachment\TIdAttachmentFile
Pense à gérer tes ContentType du Body et des Attachment
Ainsi que l'encodage UTF8 ...

Pense à déployer avec ton exe Libeay32.dll et ssleay32.dll sinon le IdSSLIOHandlerSocketOpenSSL ne fonctionnera pas

En fait non, c'est le tuto de Vasseur https://gilles-vasseur.developpez.co...-robin/#LVII-B. Il est très bien fait mais peut-être pas à jour, mais ça m'a beaucoup aidé quand même.
Pour les librairies, effectivement il faut y penser, mais j'ai vu dans un autre fil que Paul Toth conseillait son SChannel pour s'affranchir des dll.
J'arrive à le faire marcher pour du HTTP, mais pour envoyer des mails avec SMTP, lors de la connexion, ça semble bien se passer, mais ça fait une exception lors de l'envoi ... je cherche pourquoi.

Si Paul passe par là, je suis preneur d'un conseil ;o)

[navyg]

Allez, je me réponds encore, il suffisait que je supprime le composant idSSL etc ... avec lequel idSMTP devait encore avoir un lien pour que tout fonctionne.
Comme ça je m'affranchis des dll !
Merci Paul pour ces unités !!!