Discussion :

[fveto]

Bonjour à tous,

J'utilise ces code pour envoyer un mail avec des pièces jointes, je viens de me rendre compte que ça fonctionne quand il l'envoi se fait avec une seule pieces jointes et ça déclenche une erreur si je le fait avec plusieurs PJ

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 While Not TablePiecesJ.Eof Do
        Begin
             Idmessage1.ContentType := 'multipart/mixed ';
             If FileExists (FieldByName ('PieceJ').AsString) Then
                With TIdAttachmentFile.Create (Idmessage1.MessageParts, FieldByName ('PieceJ').AsString) Do
                Begin
                     FileName           := ExtractFileName(FieldByName ('PieceJ').AsString);
                     ContentType        := 'image/pdf';      //  'image/jpg';
                     ContentDisposition := 'attachment';     //'UUe'; // 'inline';      // 'attachment';     // 'inline'   ;
                End;
 
        End;

Merci de votre aide

[ShaiLeTroll]

TablePiecesJ.Next() manquant ?
Est-ce vraiment le code que tu utilises ou une version édulcorée ?

ça déclenche une erreur si je le fait avec plusieurs PJ

Laquelle ?

Sur un code que je maintiens, cela ne touche ni à ContentType (ni du message, ni du attach) pas plus qu'à ContentDisposition
Dans un projet précédent, je crois que je touchais au moins de chose que possible

Pas plus tard qu'hier : Envoi de pièce jointe avec Indy
et la conclusion de jerfe : "Il fallait tout simplement laisser Indy se charger du content-type. "