CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 12:24:21

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

OPENGL ET LE ZBUFFER par User8

RE : CHANGER L'IMAGE (GLYPH) D'UN BOUTON AVEC UNE IMAGELIST par wiz4rd

RE : CHANGER L'IMAGE (GLYPH) D'UN BOUTON AVEC UNE IMAGELIST par JulioDelphi

RE : CHANGER D'IMAGE A PARTIR D'UN TIMAGE par wiz4rd

CHANGER L'IMAGE (GLYPH) D'UN BOUTON AVEC UNE IMAGELIST par wiz4rd

+ de logiciels à télécharger

1 467 761 membres
169 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 108 codes, 1 304 842 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ENVOYER UN MAIL AVEC LES COMPOSANTS INDY

Information sur la source

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 017 / 1 113

Auteur : bassman64

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (5)

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Project1.cfg 386 octets
Project1.dof 1 048 octets
Project1.dpr 188 octets
Project1.res876 octets
Unit1.~dfm4 349 octets
Unit1.~pas1 758 octets
Unit1.dcu5 648 octets
Unit1.dfm4 075 octets
Unit1.pas 1 682 octets

Télécharger le zip

Sources de la même categorie

WEB-BUILDER par numeror86

GESTION DES PARAMÈTRES DU PARE FEU WINDOWS par laidi

EXPLORE CACHE IE par titout2

IMAGE WEBCAM SUR SITE WEB. par titout2

WEBCAM TCHAT ET VIDEOCONFÉRENCE par titout2

Toutes les sources de la catégorie Réseau & Internet

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 !

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