查人人中国名人网菏泽市招标采购信息网:用vb编写发送邮件的程序
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/20 16:37:31
现在还能直接发邮件吗？
是不是也要设置smtp服务器，进行身份验证后才能法？
请告诉我怎样做一个类似outlook发邮件的程序，要通过身份验证的，只要能发就行
我已经在网上找到了，并测试通过，谢谢大家！
有兴趣的可以看看
http://www.yesky.com/20020917/1630892.shtml
是不是也要设置smtp服务器，进行身份验证后才能法？
请告诉我怎样做一个类似outlook发邮件的程序，要通过身份验证的，只要能发就行
我已经在网上找到了，并测试通过，谢谢大家！
有兴趣的可以看看
http://www.yesky.com/20020917/1630892.shtml
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
这个好麻烦啊…你加QQ66720459，他应该会帮你的~