![]() |
使用 SMTP(简单邮件发送协议) 发送邮件
Set smtp = CreateObject("NetBox.Smtp")
BeginData | 开始发送邮件的内容 |
Close | 关闭当前 SMTP 连接。对象退出时将自动关闭连接 |
Connect | 使用 Smtp 对象连接到 strAddr:port |
EndData | 中止发送邮件的内容 |
Hello | 声明 SMTP 会话的本机信息 |
mailFrom | 声明发送邮件的信箱 |
rcptTo | 指定发送邮件的目标信箱 |
Reset | 复位 smtp 会话 |
sendData | 发送邮件的内容 |
sendMail | 发送一封邮件 |
SSLConnect | 使用 Smtp 对象连接到 strAddr:port,并建立 SSL 安全连接 |
WriteData | 发送邮件的内容 |
下面的代码创建一个 NetBox.Smtp 对象,连接到 SMTP 服务器 MySmtp.com 上,并发送一封邮件到 test@MyMail.com。
Set Smtp = CreateObject("NetBox.Smtp") Smtp.Connect "MySmtp.com", 25 Smtp.Hello "MyHost" Smtp.sendMail "me@MyMail.com", "test@MyMail.com", "Subject: title" & vbCrlf & vbCrlf & "body"