求含STMP身份验证的VB发送电子邮件的程序？

来源：百度知道 编辑：UC知道 时间：2024/06/15 02:34:40
网上搜vb发送电子邮件的程序全都是不含身份验证的，没法用。
看到很多人都在网上问这个问题，没找到一个可以用的回答。我记得两年前曾在网上搜到一篇专门介绍这个问题的文章，很好用，现在找不到了。
有简单的程序吗？直接可以运行的，因为这个程序是要提供给其他用户用的，步骤越简单越好，不需要安装其他程序和做设置

Private Sub Command1_Click()
If Text1.Text + Text2.Text + Text3.Text <> "" Then
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = Text1.Text
.MsgSubject = Text2.Text
.MsgNoteText = Text3.Text
.SessionID = MAPISession1.SessionID
.Send
End With
Else
MsgBox "资料填写不完整！"
End If

End Sub

Private Sub Form_Load()
Me.MAPISession1.SignOn

End Sub

Private Sub Form_Unload(Cancel As Integer)
Me.MAPISession1.SignOff
End Sub
×××××××××××××××××××××

这是我刚刚写好的源代码，窗体上有三个文本框，分区用于填写收件人地址、主题、邮件内容，还有两个按钮，最重要的是有MAPISession控件（MAPI会话控件）和MAPIMessages控件（MAPI消息控件），这两个控件要通过添加“Microsoft MAPI Control 6.0”部件才能加到VB工具箱中。
×××××××××××××××××××××
下面是下载地址，运行这个程序要求在OUTLOOK中设置了邮件服务器地址。
http://wxd.g4l.net/send.rar