ENVOYER UN MAIL AVEC LES COMPOSANTS INDY

Signaler
Messages postés
10
Date d'inscription
mercredi 29 janvier 2003
Statut
Membre
Dernière intervention
5 juin 2003
-
Messages postés
4
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 juillet 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/11999-envoyer-un-mail-avec-les-composants-indy

Messages postés
4
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 juillet 2008

Bonjour,
Avec Delphi 2009, les 2 lignes:
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.UserID := Edit3.Text;
sont rejetées. Toutes mes tentatives pour corriger sont veines.
J'ai essayé:
iDSMPT1.AuthType:= atLogin;
idSMTP1.Username:=Edit3.text;
Ca ne marche pas. Quelle est la solution?
Merci d'avance.
Messages postés
288
Date d'inscription
mardi 2 mai 2006
Statut
Membre
Dernière intervention
12 octobre 2011

re salut,
j'ai trouvé un autre probleme sur ta source !

----------------------------------------------------
* with IdMessage1 do
* begin
* IdMessage1.Body.Assign(Memo1.Lines);
* IdMessage1.From.Text := Edit1.Text;
* IdMessage1.Recipients.EMailAddresses := Edit1.Text;
* IdMessage1.Subject := Edit5.Text;
* IdSMTP1.AuthenticationType := atLogin;
* IdSMTP1.username := Edit3.Text; //remplacer userid par username !!!
* IdSMTP1.Password := MaskEdit1.Text;
* end;
* IdSMTP1.Host := Edit4.Text;
* IdSMTP1.Port := 25;
*
* StatusBar1.Panels[0].Text := 'Connection au serveur ...';
* IdSMTP1.Connect;
* try
* IdSMTP1.Send(IdMessage1);
* finally
* IdSMTP1.Disconnect;
* end;
* StatusBar1.Panels[0].Text := 'Message envoyé !'; //envoyé et non pas envoyer ! c'est le passé mon pote !

-------------------------------------------------------------------
Messages postés
288
Date d'inscription
mardi 2 mai 2006
Statut
Membre
Dernière intervention
12 octobre 2011

exactement l'adresse email c'est pas la meme chose que le texte !!!
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
11
J'ai repéré une erreur dans ton code...

IdMessage1.Recipients.EMailAddresses := Edit1.Text;
doit être remplacé par : IdMessage1.Recipients.EMailAddresses := Edit2.Text;
sinon ça envoie le courrier à celui qui l'écrit...

@+
Nico
Afficher les 6 commentaires