Indy fichier en attachment

Version imprimable

16/01/2025, 12h01
PhilLU

Indy fichier en attachment
Bonjour,
Est-ce que la grammaire de cette ligne de code est correcte (joindre un fichier pdf dont le chemin et le nom sont précisés?
Code:

1 2 3 4 MailMessage := TIdMessage.Create(nil); ... MailMessage.MessageParts.Add.FileName:=chemin+nom du fichietr+'.pdf';
Metrci d'avance, :ccool:
PhilLu
16/01/2025, 14h30
ShaiLeTroll
Comme dans la FAQ Comment envoyer un e-mail ?

Pour Indy 9
Code:

1 2 LFilePart := TIdAttachment.Create(IdMessage.MessageParts, chemin+nom_du_fichietr+'.pdf');
Pour Indy 10
Code:

1 2 LFilePart := TIdAttachmentFile.Create(MailMessage.MessageParts, chemin+nom_du_fichietr+'.pdf'); LFilePart.FileName := nom_du_fichietr+'.pdf';
En supposant que
chemin soit une variable contenant par exemple 'C:\Dossier\SousDossier\' avec \ terminal
nom_du_fichietr soit une variable contenant par exemple 'MaFacture'
16/01/2025, 14h32
ShaiLeTroll

Si tu veux, tu peux t'inspirer de mon wrapper : TSLTSMTP.SendTextStream

Je l'ai surtout utilisé pour envoyer des mails texte, genre des batch nocturnes envoyant un mail de log + fichier de monitoring, en réseau local
Il faudra gérer le SSL avec IdSSLIOHandlerSocketOpenSSL (inclus dans Delphi + Libeay32.dll et ssleay32.dll) ou Execute.IdSSLSChannel (à récupérer sur git mais sans DLL)

Pour un mail utilisateur, j'ai d'autres fonctions orienté HTML mais ça c'est pas OpenSource (c'est la même unité mais évolué pour mon employeur), on y voit d'ailleurs une bribre avec ctTextHTML.
16/01/2025, 15h45
PhilLU

Merci ShaiLeTroll,

J'ai bien Indy 10 sur delphi XE2.

Quelle est le type de LFilePart?

Merci d'avance,
PhilLu
16/01/2025, 16h15
PhilLU
... J'ai bien ajouter IdattachmentFile dans uses.
... et ajouté dans var: LFilePart: TIdattachmentFile;

mais je reçois une erreur au run à la première ligne de
Code:

1 2 LFilePart := TIdAttachmentFile.Create(MailMessage.MessageParts, chemin+nom du fichietr+'.pdf';); LFilePart.FileName := chemin+nom du fichietr+'.pdf';
Sans ces deux lignes mon email est correctement envoyé?!?
:weird:
17/01/2025, 09h16
ShaiLeTroll

Sans l'erreur, difficile de répondre
Sans le contenu des variables et vérifier que le fichier existe, va savoir

As-tu étudié TSLTSMTP.SendTextStream ?
Cela montre que le body doit être dans un TIdText pour créer un mail multipart

Autre point, ne pas le chemin complet dans FileName (seconde ligne), c'est le nom du fichier affiché dans le mail

Salut

Un code de ce genre la fonctionne parfaitement
le ssl est geré par l'objet IdSMTP
J'ai minimisé au maximun le code util afin que tu comprenne le deroulement de la creation d'un courriel

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
    with Idmessage1 do
    begin
      From.Address := 'monAdresse@MonDomaine.fr';
      From.Name := 'Mon nom';
      Recipients.EMailAddresses := StrDestinataire;
      if  trim(StrCCopy) <> '' Then
       if BoolDestuniquement Then
         Recipients.EMailAddresses := StrMyDestinataire+','+StrCCopy
       else
         CCList.EMailAddresses := StrCCopy
    end
 
    if BoolHightPriority Then
      Idmessage1.Priority := mpHighest
    else
      Idmessage1.Priority := mpNormal;
 
    Idmessage1.Subject := 'Mon Suject';
 
    corps := TStringList.Create;
 
    corps.Add(#13+#10+'  ');
    corps.Add('Veuillez trouver ci-joint ');
    corps.Add('les documents journaliers vous concernant.');
    IdMessage1.Body.Text := corps.Text;
    corps.free;
 
   TIdAttachmentFile.Create(IdMessage1.MessageParts,Nomfichier);
   IdSMTP1.Connect;                    // Connexion
    try
    if (IdSMTP1.connected) then
    begin
      Try
        IdSMTP1.Send(IdMessage1);         // Envoi du message
        IdSMTP1.Disconnect;               // Déconnexion
        DelayMs(5000);
      except
        onMessage(Format('Erreur envois : %s ',[StrMonMessage]));
      end;
    end;
  except
  end;
  IdMessage1.Clear;