DelphiSource

Topic: Email sender

Body:

I written a little program for email
send.

begin
IdSMTP1.Username :='username@gmail.com';
IdSMTP1.Password :='password';
IdSMTP1.Host :='smtp.gmail.com';

if CheckBox1.Checked then
IdSMTP1.AuthenticationType:=atLogin

else
IdSMTP1.AuthenticationType:=atNone;
try
IdSMTP1.Connect;
except
ShowMessage('didn't connect.');
begin
IdMessage1.From.Address :='emailaddress';
IdMessage1.Recipients.EMailAddresses:='';
IdMessage1.Subject :='subject';
IdMessage1.Body.Assign(Memo1.Lines);
try
IdSMTP1.Send(IdMessage1);
ShowMessage('Mail sent.');

finally
IdSMTP1.Disconnect;
end;

but it doesn't work. What am I do for it? I am using gmail pop service...

Reply to this Topic

Sponsored Links

Advertise Here!

Video component for Delphi/C++Builder
AVI and ASF recording, compression on-the-fly or after recording, live network streaming, media player, DV timecode, DV date/time, DV camcorder control, motion detection, frame capture, frame overlay, TV tuning, videos built from set of images, deinterlacing, video rotation, brightness/contrast, dual display, and more...
[Visit Sponsor]

CoolDev.Com - Award winning Delphi components, CD/DVD toolkits, consulting and offshore development services.
[Visit Sponsor]

Datastead - VCL components for web and multimedia applications.
[Visit Sponsor]

Search DelphiSource.com


Welcome Guest [Login] [Register] [Add/Edit/Delete Resources] [Link Us!]	30 Users Online, September 9, 2010


© Copyright DelphiSource 1998 - 2002
Contact Us: delphisource@delphisource.com