Delphi 给Gmail发送邮件

本文整理自网络，侵删。

 
exe目录需要包含libeay32.dll和ssleay32.dll文件
var
SMTP:TIdSMTP;
EPosta: TIdMessage;
LHandler: TIdSSLIOHandlerSocketOpenSSL;
HtmlPart:TIdText;
mailhtml:string;
ImagePart: TIdAttachmentFile;
HtmlPart:TIdText;
begin
SMTP:=TIdSMTP.Create(nil);
EPosta:=TIdMessage.Create(nil);
LHandler:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
try
SMTP.Host:='smtp.gmail.com'  ;
SMTP.Username:='xxxxx@gmail.com'; //g?nderen Email
SMTP.Password:='xxxxx'; //G?nderen Email ?ifresi
SMTP.Port:= 587;
SMTP.AuthType := satDefault;
LHandler.Destination := SMTP.Host+'587';
LHandler.Host := SMTP.Host;
LHandler.Port := SMTP.Port;
LHandler.DefaultPort := 0;
LHandler.SSLOptions.Method := sslvTLSv1 ;
LHandler.SSLOptions.Mode := sslmUnassigned;
LHandler.SSLOptions.VerifyMode := [];
LHandler.SSLOptions.VerifyDepth := 2;
{ // Email ile html g?nderimi i?in www.delphitop.com
HtmlPart := TIdText.Create(EPosta.MessageParts);
HtmlPart.ContentType := 'text/html';
HtmlPart.CharSet := 'iso-8859-9';
HtmlPart.Body.LoadFromFile('html dosya dizini');
TIdAttachmentFile.Create(EPosta.MessageParts, 'ek dizini');
ImagePart := TIdAttachmentFile.Create(EPosta.MessageParts, 'foto?raf dizini');
ImagePart.ContentType := 'image/png';
ImagePart.ContentDisposition := 'inline';
ImagePart.ExtraHeaders.Values['content-id'] := ExtractFileName('foto?raf dizini');
ImagePart.DisplayName := ExtractFileName('foto?raf dizini');
}
SMTP.IOHandler := LHandler;
SMTP.UseTLS := utUseExplicitTLS;
SMTP.ConnectTimeout := 10000;
SMTP.Connect;
EPosta.From.address := 'xxx@xx.com'; // g?nderilecek e mail adresi aralar?na ; koyarak bir ?ok ki?iye g?nderebiliriz.
EPosta.Subject:= 'Android Mail Servisi'; // mail konusu
EPosta.Body.Add(''); // Mail yaz?s?
EPosta.From.Name := 'Android Mail Servisi'; // mail g?neren ismi
EPosta.Recipients.EMailAddresses := 'xxxxxx@gmail.com'; // gelen mailde g?rünecek mail adresi
EPosta.CharSet:='iso-8859-9';
SMTP.Authenticate;
try
SMTP.Send(EPosta);
finally
SMTP.Disconnect;
end;
finally
SMTP.Free;
EPosta.Free;
LHandler.Free;
end;
end;

 

相关阅读 >>

Delphi dpr文件误删怎么办

Delphi �c 如何将多个文件扩展名传递给tdirectory.getfiles？

Delphi memo1 行倒序排列三种方法

Delphi firedac 连接sql server一些要注意的地方

Delphi 获取本地网络连接

Delphi : tstringlist的find，indexof和sort

Delphi idhttpserver实现webservice

Delphi 弹出输入框的inputquery, inputquery 函数用法

Delphi delete 字符串函数

Delphi 如何检测你的电脑日期或时间的变化

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 给Gmail发送邮件