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
-
Grandalleau
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

Grandalleau
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.
nethacker
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 !

-------------------------------------------------------------------
nethacker
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 !!!
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
9
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
achovovich
Messages postés
17
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
4 janvier 2006

juste pour signaler que ton with ne sert a rien dans ce cas, non?
cs_Djidane1208
Messages postés
10
Date d'inscription
mercredi 29 janvier 2003
Statut
Membre
Dernière intervention
5 juin 2003

J'voulais savoir si on pouvait envoyer des mails ac ton progz à n'importe quel serveur de mùail (caramail , laposte....)