begin process at 2010 02 10 08:52:47
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > ENVOYER UN MAIL AVEC LES COMPOSANTS INDY

ENVOYER UN MAIL AVEC LES COMPOSANTS INDY


 Information sur la source

Note :
Aucune note
Catégorie :Réseau & Internet Niveau :Débutant Date de création :21/06/2002 Date de mise à jour :21/06/2002 12:23:41 Vu / téléchargé :7 419 / 1 177

Auteur : bassman64

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Petit programme permettant d'envoyer des mails à partir des composants Indy.
Ces composants sont téléchargeables ici : http://www.nevrona.com/Indy/

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.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 !';
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 !';


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip BASE64/BASE64URL ENCODE/DECODE par f0xi
Source avec Zip AFFICHAGE DES INFODFS par fbalien
Source avec Zip Source avec une capture INTRA MESSENGER - DELPHI par keket
Source avec Zip CODAGE DÉCODAGE PDU 7BITS par AccessToYou
Source avec Zip Source avec une capture SIMPLEWEBBROWSER par cantador

Commentaires et avis

Commentaire de Djidane1208 le 05/06/2003 09:42:44

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

Commentaire de achovovich le 12/02/2004 11:07:49

juste pour signaler que ton with ne sert a rien dans ce cas, non?

Commentaire de ni69 le 22/11/2004 17:19:32

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

Commentaire de nethacker le 04/11/2006 13:46:46

exactement l'adresse email c'est pas la meme chose que le texte !!!

Commentaire de nethacker le 12/07/2007 15:01:59

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 !

-------------------------------------------------------------------

Commentaire de Grandalleau le 20/12/2009 18:08:35

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.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,499 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales