Envoyer un mail avec delphi :
//////////////////////////////////////////////////// //////////////////////////////////////////////////// //////////////////www.OneSofts.com////////////////// ////////////// PsyckoHia@ifrance.com /////////////// //////////////////////////////////////////////////// ///////////////psyckohia@onesofts.com/////////////// ////////////////////21/11/2007////////////////////// //////////////////////////////////////////////////// unit Main; interface ///////////////////////////////////////////////////////////////////////////// uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,ShellApi, ExtDlgs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdBaseComponent, IdMessage, ExtCtrls; ///////////////////////////////////////////////////////////////////////////// type TPsyckoHia = class(TForm) IdSMTP1: TIdSMTP; IdMessage1: TIdMessage; Panel_Smtp: TPanel; Edit_Pass: TEdit; Edit_Login: TEdit; Edit_Host: TEdit; Label_Host: TLabel; Label_Login: TLabel; Label_Pass: TLabel; Panel: TPanel; Memo: TMemo; Button_Envoyer: TButton; Edit_Exp: TEdit; Edit_Dest: TEdit; Edit_Sujet: TEdit; Label_Exp: TLabel; Label_Dest: TLabel; Label_Reponse: TLabel; Image1: TImage; Image_Mail: TImage; Image_Site: TImage; LMySite: TLabel; procedure Image_SiteClick(Sender: TObject); procedure LMySiteClick(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Button_EnvoyerClick(Sender: TObject); procedure Image1Click(Sender: TObject); procedure Image_MailClick(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var PsyckoHia: TPsyckoHia; implementation {$R *.dfm} /////////////////////////// Votre Code se trouve ici ////////////////////// ///////////////////////////A l'activation de la Form////////////////////// ////////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.FormActivate(Sender: TObject); begin PsyckoHia.Width := 287; end; ////////////////////////////////////////////////////////////////////////// /////////////////////////////////Envoie du message//////////////////////// ////////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.Button_EnvoyerClick(Sender: TObject); begin if (Edit_Exp.Text = '') or (Edit_Dest.Text = '') or (Edit_Sujet.Text ='') or (Edit_Host.Text = '') or (Edit_Login.Text = '') or (Edit_Pass.Text = '') or (Memo.Text = '') then begin ShowMessage('Veuillez remplir tout les champs SVP'); exit; end else begin with IdMessage1 do begin From.Text := Edit_Exp.Text; Recipients.EMailAddresses := Edit_Dest.Text; Subject := Edit_Sujet.Text; Body.Assign(Memo.Lines); end; with IdSMTP1 do Begin AuthenticationType := atLogin; Username := Edit_Login.Text; Password := Edit_Pass.Text; Host := Edit_Host.Text; Port := 25 ; end; try Try PsyckoHia.Caption := 'Tentative de Connection au serveur'; IdSMTP1.Connect; IdSMTP1.Send(IdMessage1); Label_Reponse.Caption := 'Mail envoyé !!'; except on E : Exception do begin ShowMessage('Impossible d''envoyer le mail'+ E.Message); Label_Reponse.Caption := 'Mail non Envoyé ........'; end end; finally IdSMTP1.Disconnect; PsyckoHia.Caption := 'déconnecté du serveur'; end; end; end; procedure TPsyckoHia.Image1Click(Sender: TObject); begin if PsyckoHia.Width = 449 then PsyckoHia.Width := 287 else PsyckoHia.Width := 449; end; ////////////////////////////////////////////////////////////////////////// //////////////////////////////////FIN///////////////////////////////////// ////////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.Image_SiteClick(Sender: TObject); begin ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL); end; ////////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.LMySiteClick(Sender: TObject); begin ShellExecute(0,'Open','http://www.OneSofts.com','null','null',SW_NORMAL); end; ////////////////////////////////////////////////////////////////////////// procedure TPsyckoHia.Image_MailClick(Sender: TObject); begin ShellExecute(0,'OPEN','Mailto:psyckohia@onesofts.com',nil,nil,SW_SHOWNORMAL); end; ////////////////////////////////////////////////////////////////////////// end.
Code Source
