Discussion :

[Monromero1]

Bonjour à tous,
voilà j'ai réalisé un bout de code
qui envoi un mail avec Turbo Delphi.
Le mail ainsi que sa pièce jointe partent bien au serveur
mais il n'y a que le message qui arrive à son destinataire.
Et là, j'avoue que je sèche.
Quelqu'un pourrait-il m'aider s.v.p.

Merci.

[tourlourou]

Bonjour,

Comment sais-tu que la PJ part bien avec le message ?

Est-ce une erreur systématique ou cela n'arrive-t-il que pour certains destinataires ?

Quel est le type de la PJ ?

[Monromero1]

Bonjour,
en fait,
je n'ai aucune erreur à l'exécution du programme
quand j'envoie mon mail
ce qui me fait dire que le mail part
est que le destinataire reçoit mon mail mais pas la pièce jointe.
Il s'agit pour la pj d'un simple fichier texte.
C'est tout ce que je peux dire pour l'instant.

Merci
Cordialement

Bonjour,

Comment sais-tu que la PJ part bien avec le message ?

Est-ce une erreur systématique ou cela n'arrive-t-il que pour certains destinataires ?

Quel est le type de la PJ ?

[tourlourou]

je vois dans ton post http://www.developpez.net/forums/d12...i/#post6744268
le code suivant :

Code :

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

if (Edit3.Text='') then TIdAttachment.Create(IdMessage.MessageParts,Edit3.Text);

si tu l'utilises, il ne joint en PJ de fichier que si son nom est vide !

[Monromero1]

Bonsoir,
peux-tu me revenir avec plus de précision
au sujet de ce que tu vois sur mon poste ?
Le programme permet à l'utilisateur de choisir son fichier à joindre en pj.
d'où le code affiché sur le poste.
Peux-tu m'en dire d'avantage ?
Merci

je vois dans ton post http://www.developpez.net/forums/d12...i/#post6744268
le code suivant :

Code :

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

if (Edit3.Text='') then TIdAttachment.Create(IdMessage.MessageParts,Edit3.Text);

si tu l'utilises, il ne joint en PJ de fichier que si son nom est vide !

[tourlourou]

Voici ce que fait ton code :

Code :

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

1
2
if (Edit3.Text='') // si l'Edit3 est vide <=> sa propriété Text contient une chaîne vide
then TIdAttachment.Create(IdMessage.MessageParts, Edit3.Text); // crée une PJ avec le fichier qui n'a pas de nom

Je préfèrerais lui voir faire :

Code :

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

1
2
3
if (Edit3.Text <> '') // si l'Edit3 n'est pas vide
and FileExists(Edit3.Text) // et qu'il contient un nom de fichier existant
then TIdAttachment.Create(IdMessage.MessageParts, Edit3.Text);