在Delphi中使用indy SMTP发送gmail邮件[转]

2012-01-01 22:44:30| 分类： Delphi | 标签： |举报 |字号大中小订阅

在Delphi中发送email很简单，发送ssl方式的gmail邮件也很简单，只要在使用的idSMTP上附加一个TIdSSLIOHandlerSocket 就可以了。

使用控件

procedure sendMail(sToMail, sSubject, sContent: String);

var

SMTP: TIdSMTP;

MailMessage: TIdMessage;

SSLSocket: TIdSSLIOHandlerSocket;

begin

SMTP := TIdSMTP.Create(nil);

SSLSocket := TIdSSLIOHandlerSocket.Create(nil);

MailMessage:= TIdMessage.Create(nil);

SMTP.IOHandler := SSLSocket;

SMTP.Port := 465;

SMTP.Host := 'smtp.gmail.com';

SMTP.AuthenticationType := atLogin;

smtp.UserName := 'SunnyYu2000';

smtp.Password := 'xxxxxx';

// 设置邮件的信息

MailMessage.From.Address := 'SunnyYu2000@gmail.com';

MailMessage.Recipients.EMailAddresses := sToMail;

MailMessage.Subject := sSubject;

MailMessage.Body.Text := sContent;

//发送邮件

try

SMTP.Connect(1000);

SMTP.Send(MailMessage);

ShowMessage('发送成功');

except on E:Exception do

ShowMessage('发送失败: ' + E.Message);

end;

finally

if SMTP.Connectedthen

SMTP.Disconnect;

end;

MailMessage.Free;

SSLSocket.Free;

SMTP.Free;

end;

编译后需要SSL动态库支持，支持库可以到Indy网站上下载到。

如果需要发送附件，可以再发送前添加如下类似代码

// 添加邮件的附件

TIdAttachment.Create(MailMessage.MessageParts, sAttachmentFileName);

————–

Indy需要的SSL支持dll下载地址 http://www.indyproject.org/Sockets/SSL.EN.aspx

转载于:https://www.cnblogs.com/honeynm/p/4196087.html

在Delphi中使用indy SMTP发送gmail邮件[转]相关推荐

delphi中利用Indy的TIdFtp控件实现FTP协议
2019独角兽企业重金招聘Python工程师标准>>> delphi中利用Indy的TIdFtp控件实现FTP协议版权声明:本文为博主原创文章,未经博主允许不得转载.现在很多应用都需 ...
oracle 发的邮件qq,python基于SMTP发送QQ邮件
python基于SMTP发送QQ邮件,供大家参考,具体内容如下第一步: 1.打开qq邮箱,开启smtp服务 2.验证密保 3.获取授权码 python代码里面使用在Python中, smtplib ...
python 使用smtp发送群邮件
###背景最近在做监控时需要使用smtp发送群邮件,但使用python smtp时遇到一个很坑的地方,刚刚越过,所以记录一下直接上代码: def send_mail(server, fro, to ...
java发送gmail邮件_如何从R和Gmail发送电子邮件
java发送gmail邮件在您的R人生的某个时刻,您可能希望与不使用R的同事共享分析结果. 有很多方法可以做到这一点. 最简单(也是最便宜)的方法之一是通过电子邮件发送结果. 但它是一种悲哀自动化您 ...
JAVA 发送GMAIL 邮件
JAVA发送GMAIL邮件废话不多说上代码不懂的方法可以百度都有 package com.pos.pos_conn.util.email;import java.util.Propert ...
java通过SMTP发送QQ邮件的完全步骤
java通过SMTP发送QQ邮件的完全步骤首先,我们需要打开QQ邮箱的SMTP服务,因为QQ邮箱对于一般的用户都是默认关闭SMTP服务的. 打开QQ邮箱,点击设置点击帐户找到SMTP服务的选项, ...
用Delphi中的Indy控件实现收发邮件
这几天心里颇不宁静,不是因为项目延期,而是因为自己几个月前做的邮件发送程序至今无任何进展,虽然一向谦虚的人在网上发贴总以"小弟"自称.也发过N多关于此类问题的贴子,但总是收益甚少, ...
python3.x下 smtp发送html邮件和附件
综合网络上的文章以及自己的实验,在python的IDEL下成功的通过SMTP发送出去了邮件.现将过程记录如下: 一.准备工作: 1.安装好python3.x 2.拥有一个支持smtp服务的邮箱,我是用 ...
（Python）使用SMTP发送QQ邮件
要想通过QQ邮箱来发送邮件,需要开启QQ邮箱的设置-账户里SMTP服务,接下来会通过发送短信验证来获得授权码,有了授权码后就可以在代码里添加了. 接下来看看QQ的邮件服务器配置: (授权码填写在代码的 ...

在Delphi中使用indy SMTP发送gmail邮件[转]

在Delphi中使用indy SMTP发送gmail邮件[转]

在Delphi中使用indy SMTP发送gmail邮件[转]相关推荐

最新文章

热门文章