Discussion :

[ChPr]

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

[Jipété]

Salut bonjour,

Je vais peut-être dire une grosse bêtise, mais je le dis quand même : je trouve le paramètre de cette option curieux :

Code :

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

1
2
3
   //Connexion au serveur smtp
  IdSMTP1.AuthType := satNone;
  ...

Moi je lis ça (satNone) comme une manière de ne pas vouloir s'authentifier et peut-être qu'à l'autre bout du tuyau ça ne plait pas ?

Enfin, j'dis ça j'dis rien, hein.

Bon dimanche et joyeux Noël !

[bb84000]

Bonjour,

Il est préférable d'éviter d'utiliser un serveur smtp sur le port 25, parce qu'il n'y a aucune sécurité et aucune authentification de l'expéditeur, comme l'a remarqué Jipété. Les opérateurs bloquent en général le port 25 lorsqu'il pointe vers un autre domaine que le leur, et limitent les possibilités d'envoi (multiple, pièces jointes, etc.).

Il est préférable d'utiliser un envoi sécurisé par ssl/tls sur le port 465 et avec authentification "mot de passe normal" c'est à dire non crypté.

bb

[ChPr]

Merci pour vos réponses et joyeux Noël à vous aussi

... (satNone)... !

Que je mette cela ou satNone, satDefault, satSASL, le problème est le même.
Il ne vient pas de là, mais de la construction du message avec les propriétés et les fonctions de Indy. Il m'en manque certaines et je n'ai pas réussi à trouver lesquelles bien que j'ai vu différents exemples, notamment sur le forum Lazarus/FreePascal.

Par contre, j'y suis arrivé d'une manière extrêmement simple avec les composants de Synapse40. Peut-être est-ce aussi simple avec les composants de Indy, mais je n'ai pas trouvé ce qu'il fallait faire.

Cordialement.

Pierre.