send mail with delphi

**momedalhouma** · 03/02/2012, 20h19

bonsoir
j'avais déjà mis une discutions ici concernant l'envoi des émail avec Delhi.
mon application avait bien fonctionné mais aujourd’hui j'ai trouvé des erreur:
pour

Code :

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

IdSMTP1.Username

dans mon programme quand je mets une adresse hotmail.com ça fonctionne très bien
mais quand j'utilise hotmail.fr et yahoo ça fonctionne pas.
est ce le problème est le nom du serveur ,j'ai mis

Code :

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

1
2
IdSMTP1.Host :='smtp.live.com';
  IdSMTP1.Port := 25;

si le serveur de yahoo n'est le même que hotmail je comprends que c'est ici l'ereur, mais hotmail.fr c'est la même chose que hotmail.com je crois.
sinon qu'elle est l'adresse de ces deux serveurs yahoo ety hotmail.fr

**ShaiLeTroll** · 06/02/2012, 10h35

Selon le serveur SMTP, il peut être nécessaire d'être en mode authenticate comme avec le serveur POP !
C'est ce que tu sembles utilisé !

Evidemment si tu remplis UserName et PassWord, tu dois utiliser le BON serveur SMTP, et parfois il change !
Ton identifiant doit être en phase avec le serveur, un compte Hotmail pour smtp.live.com, un compte Yahoo pour smtp.mail.yahoo.fr.
Pour Hotmail.fr, il y a peut être un autre identifiant, tu mets l'adresse en entier ou juste le login ?

Je conseille de mettre cela dans un écran de configuration et de laisser ton utilisateur se débrouiller à trouver les bons ID !
Tu ne peux pas prendre la responsabilité de chercher tous les serveurs (même si ça se trouve avec un moteur de recherche)

je suppose que tu as forcé en Indy 9 ou 10 dans TidSMTP
AuthenticationType := atLogin;
Authenticate \ AuthType := atSASL;
Le Port peut aussi changer si tu choisis une connexion sécurisée !

En général, le SMTP du FAI est le seul sans identité car il le vérifie via le compte de connexion internet !

**momedalhouma** · 08/02/2012, 23h54

salut merci
oui vous avez raison je dois utiliser pour chaqe(hotmail ou yahoo ou ..) un serveur smtp approprié
mais le problème qui se pose maintenant ce que quand j'essaie pour pinguer sur smtp.live.com ça donne rien ,et ce qui m'etonne ce que avant ça marchait et maintenant pas de connexion a ce serveur via le port 25 .
j'ai rien changer dans le code.
et pour yahoo ça fonctionne bien.
pour l'authentification j'ai mis ce que vous m'avez proposé mais c'est pas accéptée

j'utilise delphi xe2

**momedalhouma** · 09/02/2012, 00h06

voila ce que j'ai mis y'a pas d'ereur en compilation;mais quand j'essaie d'envoyer le message j'ai une ereur de type cannot connect to server + @ip ...

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 TForm1.Button1Click(Sender: TObject);
 var i:integer;
begin
  IdSMTP1.Authenticate;
  idsmtp1.AuthType:= TIdSMTPAuthenticationType.satSASL ;
  idMessage1.From.Text :=Edit1.Text; //Adresse email de l'expediteur
  IdMessage1.Recipients.EMailAddresses:=Edit2.Text; //Adresse email du destinataire
  IdMessage1.Subject:=edit3.Text; //Sujet du message
  IdMessage1.Body.text:=Memo1.Lines.Text; //Corps du message
  IdSMTP1.Username:=edit1.Text;
  IdSMTP1.Password:=Edit6.Text;
  if listbox1 <> nil then
   for i := 0 to listbox1.Count -1 do
    TIdAttachmentFile.Create(IdMessage1.MessageParts,listbox1.Items.Strings[i]);
  IdSMTP1.Port:=25;
  IdSMTP1.Host :='smtp.live.com';
  IdSMTP1.Connect;
  try
    IdSMTP1.Send(IdMessage1); //Envoi du message
    showmessage('message envoyé');
    application.Terminate;
  finally
    IdSMTP1.Disconnect; //Déconnexion
  end;
end;