Problème de spam avec les composants Indy
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 :
Citation:
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:
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
