Bonjour à toutes et à tous,

Avec les composants Indy, je crée une application qui doit envoyer des mails avec une pièce jointe.

Si j'envoie le mail sans pièce jointe, tout se passe bien.

Si je joins une pièce (une image) j'ai alors une erreur :

Le projet SendMail a levé une classe d'exception "EldSMTPReplyError" avec le message :
Spam Detected - Mail Rejected. Please see our policy at : http//postmaster.free.fr/#spam-detected
J'ai fait ce qui m'était demandé : je leur ai envoyé le mail avec à peu près la même explication qu'ici.

Mais c'est peut-être parce que mon mail est mal configuré qu'il y a cette erreur.

Vous en avez peut-être une idée.

Voici le programme :

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
  Screen.Cursor:= crHourGlass; //Curseur sablier
  IdMessage1.Clear; //Efface l'entête et le corps du message
  IdMessage1.From.Text := Edit1.Text; //Adresse email de l'expediteur
  IdMessage1.ReplyTo.EMailAddresses:= Edit1.Text; //Adresse email où le destinataire pourra répondre
  IdMessage1.Recipients.EMailAddresses:= Edit2.Text; //Adresse email du destinataire
  IdMessage1.Date:= Now; //Date de l'envoi du message
  IdMessage1.Subject:= Edit4.Text; //Sujet du message
  IdMessage1.Priority:= mpNormal; //Priorité du message
  if not (Edit3.Text = '') then
    IdAttachment:= TIdAttachmentFile.Create(IdMessage1.MessageParts, Edit3.Text); //Attache le fichier
  IdMessage1.Body.Assign(Memo1.Lines); //Corps du message
  //Connexion au serveur smtp
  IdSMTP1.AuthType:= satNone;
  IdSMTP1.Host:= 'smtp.free.fr'; //Hôte (par exemple pour Free : smtp.free.fr)
  IdSMTP1.Port:= 25; //Port (par exemple pour Free : 25)
  IdSMTP1.UserName:= '**chauveau**'; //Nom d'utilisateur
  IdSMTP1.Password:= '********'; //Mot de passe
  IdSMTP1.Connect; //Connexion
  try
    IdSMTP1.Send(IdMessage1); //Envoi du message
  finally
    IdSMTP1.Disconnect; //Déconnexion
  end;
  Screen.Cursor:= crDefault; //Curseur par défaut
À la ligne 10, pour idAttachement, il y a peut-être une propriété que je n'ai pas mise.

Cordialement.

Pierre