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.UserID := Edit3.Text; 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 envoyer !';
Télécharger le zip
J'voulais savoir si on pouvait envoyer des mails ac ton progz à n'importe quel serveur de mùail (caramail , laposte....)
juste pour signaler que ton with ne sert a rien dans ce cas, non?
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
exactement l'adresse email c'est pas la meme chose que le texte !!!
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 ! -------------------------------------------------------------------
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.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 872 757 membres 183 nouveaux aujourd'hui 16 150 membres club