ENVOYER UN MAIL AVEC LES COMPOSANTS INDY
cs_Djidane1208
Messages postés
10
Date d'inscription
mercredi 29 janvier 2003
Statut
Membre
Dernière intervention
5 juin 2003
-
5 juin 2003 à 09:42
Grandalleau Messages postés 4 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 juillet 2008 - 20 déc. 2009 à 18:08
Grandalleau Messages postés 4 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 juillet 2008 - 20 déc. 2009 à 18:08
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
https://codes-sources.commentcamarche.net/source/11999-envoyer-un-mail-avec-les-composants-indy
20 déc. 2009 à 18:08
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.
12 juil. 2007 à 15:01
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 !
-------------------------------------------------------------------
4 nov. 2006 à 13:46
22 nov. 2004 à 17:19
IdMessage1.Recipients.EMailAddresses := Edit1.Text;
doit être remplacé par : IdMessage1.Recipients.EMailAddresses := Edit2.Text;
sinon ça envoie le courrier à celui qui l'écrit...
@+
Nico
12 févr. 2004 à 11:07
5 juin 2003 à 09:42