Composant Indy & Mailer-Daemon

Version imprimable

09/03/2009, 16h22
loukoum82

Composant Indy & Mailer-Daemon

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:

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

où "bidule@machin.com" existe pour de vrai bien sûr
09/03/2009, 18h20
tourlourou

et en essayant : IdMessage1.From.Text:='bidule@machin.com'; ?
10/03/2009, 06h21
andreditdd

Citation:

Envoyé par tourlourou

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é
10/03/2009, 08h54
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...
10/03/2009, 09h04
ero-sennin

Salut,

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

A+ :D

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:

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:

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;

22/05/2009, 15h17
loukoum82

Quel *** !
Je renseignais l'adresse de l'expediteur en dehors de mon tread... il risquait pas de le trouver.
Merci de m'avoir aidé!