Discussion :

[PhilLU]

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 :

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

1
2
3
4
 
MailMessage  := TIdMessage.Create(nil);
...
MailMessage.MessageParts.Add.FileName:=chemin+nom du fichietr+'.pdf';

Metrci d'avance,
PhilLu

[ShaiLeTroll]

Comme dans la FAQ Comment envoyer un e-mail ?

Pour Indy 9

Code :

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

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

Pour Indy 10

Code :

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

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'

[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.

[PhilLU]

Merci ShaiLeTroll,

J'ai bien Indy 10 sur delphi XE2.

Quelle est le type de LFilePart?

Merci d'avance,
PhilLu

[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 :

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

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é?!?

[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

[anapurna]

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 :

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
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;