Discussion :

[loukoum82]

Bonjour tout le monde,

J'utilise les composants Indy dans delphi 7 pour envoyer des mails à partir de serveurs SMTP sécurisés ou/et nécessitant un login (orange,gmail,...) les mails sont bien envoyés, pas de problème.

par contre la personne qui les reçoit à 9 fois sur 10 l'expediteur non renseigné, donc c'est "Mailer-Daemon" qui s'affiche à la place.
C'est un peu penible car du coup ça arrive que les mails finissent directement dans les spams, et dans touts les cas, ça empêche le destinataire de repérer qui lui envoie un mail.

Si vous avez une idée...

PS : si jamais vous vous demandez, j'ai bien la ligne :

Code :

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

IdMessage1.From.Address:='bidule@machin.com';

où "bidule@machin.com" existe pour de vrai bien sûr

[tourlourou]

et en essayant : IdMessage1.From.Text:='bidule@machin.com'; ?

[andreditdd]

et en essayant : IdMessage1.From.Text:='bidule@machin.com'; ?

Exact... C'est ce que j'emplois.
'bidule@machin.com' ne doit pas spécialement exister comme adresse.

André

[loukoum82]

J'avais déjà tenté, et je viens de rééssayer au cas où, mais en fait la fonction Text se contente de redispatcher le mail dans FAdress et le Nom dans FName.
Ca ne fonctionne toujours pas, j'ai toujours Mailer-Daemon comme expéditeur...

[ero-sennin]

Salut,

As-tu essayé ce qui est proposé dans la FAQ ?

A+

[loukoum82]

Je me suis servi de ça au départ pour envoyer mon tout premier mail, mais ça n'a aucun rapport avec le fait que le destinataire ne s'affiche pas, je vais mettre le code entier, ça gagnera du temps :


déjà j'ai fait un object MailThread pour pouvoir envoyer des mails en parallèle su reste :

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
25
26
27
28
29
30
31
 
type
  mailThread = class(TThread)
  private
    { Déclarations privées }
    melencours : tIdMessage;
    smtp : tIdSmtp;
    SSLSocket: TIdSSLIOHandlerSocket;
    num : integer;
  protected
    procedure Execute; override;
  public
    adresse : string;
    procedure init; //Configure le smtp en fonction d'un fichier ini. et si besoin crée le SSLSocket pour une connexion securisée.
 end;
 
 
procedure mailThread.Execute;
begin
 
 smtp.Connect();
 smtp.Send(melencours);
 smtp.Disconnect;
 
 melencours.Free;
 smtp.Free;
 if assigned(SSLSocket) then
  SSLSocket.Free;
 
 
end;

La procedure d'envoi :

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
25
 
Procedure EnvoiMail;
var Mel : TIdMessage;
    thread : mailthread;
 
begin
 
 Mel := TIdMessage.Create(nil);
 mel.From.Text:='BoyGeorges@cnn.com';
 mel.ReplyTo.Add.Assign(mel.From);
 mel.Recipients.Add.Address := 'MickaelJackson@cnn.com';
 mel.ClearBody;
 mel.Body.Text := 'Hello Mick, what s UP ! ';
 mel.Subject := 'Hello';
 
 
  thread := mailthread.Create(true);
  thread.init;
  thread.num := Encours;
  thread.melencours := mel;
  thread.adresse := mel.Recipients.EMailAddresses;
  thread.FreeOnTerminate := true;
  thread.Resume;
 
end;