كيف ترسل ايميلات من برنامجك المكتوب على Delphi2010

SendEmail //Delphi 2010 //http://indy.fulgan.com/SSL/

Uses

IdSMTP, IdSSLOpenSSL, IdMessage, IdExplicitTLSClientServerBase, IdIOHandler;

procedure SendEmail(uHost: string; uPort: integer;

uUsername, uPassword: string; uMailMessage: TIdMessage);

var

vIdSMTP: TIdSMTP;

begin

vIdSMTP := TIdSMTP.Create(nil);

try

//-----------------------------

vIdSMTP.IOHandler := nil;

vIdSMTP.ManagedIOHandler := True;

try

vIdSMTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(vIdSMTP);

if (uPort = 465) then

vIdSMTP.UseTLS := utUseImplicitTLS

else

vIdSMTP.UseTLS := utUseExplicitTLS;

except

vIdSMTP.IOHandler.Free;

vIdSMTP.IOHandler := nil;

end;

if (vIdSMTP.IOHandler = nil) then

begin

vIdSMTP.IOHandler := TIdIOHandler.MakeDefaultIOHandler(vIdSMTP);

vIdSMTP.UseTLS := utNoTLSSupport;

end;

//-----------------------------

vIdSMTP.Host := uHost;

vIdSMTP.Username := uUsername;

vIdSMTP.Password := uPassword;

vIdSMTP.Port := uPort;

vIdSMTP.Connect();

Application.ProcessMessages;

vIdSMTP.Send(uMailMessage);

Application.ProcessMessages;

finally

vIdSMTP.Free;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

vMailMessage: TIdMessage;

begin

vMailMessage := TIdMessage.Create(nil);

try

vMailMessage.Sender.Address := 'mhm_net@hotmail.com'; //From

vMailMessage.Recipients.EMailAddresses := 'mhm.programmer@gmail.com'; //To

vMailMessage.Subject := 'Test for "info@example.com"'; //Subject

vMailMessage.Body.Text := 'Hi All'; //Body

SendEmail('mail.tarassul.sy', 25, 'info@example.com',

'******************', vMailMessage);

SendEmail('smtp.live.com', 587, 'mail@example.com',

'******************', vMailMessage);

finally

vMailMessage.Free;

end;

end;

-------------------------------------------------------------------------------------Index Email

var

vMsgCount: integer;

vMailMessage: TIdMessage;

vIdPOP3: TIdPOP3;

i: integer;

begin

vIdPOP3 := TIdPOP3.Create(Self);

vMailMessage := TIdMessage.Create(nil);

try

BodyMemo.Lines.Clear;

vIdPOP3.Host := POPEdit.Text;

vIdPOP3.Username := UserIDEdit.Text;

vIdPOP3.Password := PassEdit.Text;

vIdPOP3.Port := StrToInt(PortPopEdit.Text);

Application.ProcessMessages;

vIdPOP3.Connect();

try

vMsgCount := vIdPOP3.CheckMessages;

for i := 0 to vMsgCount - 1 do

begin

vIdPOP3.Retrieve(i, vMailMessage);

BodyMemo.Lines.Add('-------------Start-------------');

BodyMemo.Lines.Add('Address : ' + vMailMessage.From.Address);

BodyMemo.Lines.Add

('MailAddresses: ' + vMailMessage.Recipients.EMailAddresses);

BodyMemo.Lines.Add('Subject : ' + vMailMessage.Subject);

BodyMemo.Lines.Add('Sender : ' + vMailMessage.Sender.Address);

BodyMemo.Lines.Add('Body : ' + vMailMessage.Body.Text);

BodyMemo.Lines.Add('-------------------------------');

Application.ProcessMessages;

end;

finally

vIdPOP3.Disconnect;

end;

finally

vIdPOP3.Free;

vMailMessage.Free;

end;

end;

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