VB邮件接收

VB邮件接收

Private Sub Command1_Click()

Dim WebAddr$, Email As Object

WebAddr = "

Set Email = CreateObject("CDO.Message")

Email.From = Text1.Text '发件人的邮箱地址

Email.To = Text3.Text ' 收件人的邮箱地址

Email.Subject = Text4.Text '邮件标题

Email.Textbody = Text5.Text '邮件内容

'Email.AddAttachment Text7.Text 这里可发附件

With Email.Configuration.Fields

.Item(WebAddr & "sendusing") = 2

'SendUsing 指定发送邮件的方法。您可以选择网络 SMTP 服务或本地 SMTP 服务拾取目录。若要使用远程 SMTP 服务，在 RSReportServer.config 文件中必须将此值设置为 2。

'SMTPServer 指定远程 SMTP 服务器或转发器。如果使用远程 SMTP 服务器或转发器，则必须指定此值。

'“发件人”用于设置显示在电子邮件的“发件人:”行中的值。如果使用远程 SMTP 服务器或转发器，则必须指定此值。

.Item(WebAddr & "smtpserver") = "smtp.163.com" '邮件发送服务器

.Item(WebAddr & "smtpserverport") = 25 '邮件发送服务器开放的端口号

.Item(WebAddr & "smtpauthenticate") = 1 '指定如何将报表服务器连接到远程 SMTP 服务器。默认值为 0（或不进行身份验证）。这种情况下，将通过匿名访问创建连接。报表服务器和 SMTP 服务器可能需要成为同一域的成员，这取决于域配置。

'若要向受限制的通讯组列表发送电子邮件（例如，只接受经过身份验证的帐户发来的邮件的通讯组列表），则将 SMTPAuthenticate 设置为 2。

.Item(WebAddr & "sendusername") = Text1.Text '发件人的帐号

.Item(WebAddr & "sendpassword") = Text2.Text '发件人的密码

.Update

End With

Email.Send

End Sub

这是很久以前一个老师给我的代码，我加了注释，可以用的，你试一下

有问题亲追问，满意请采纳！