请问那位大虾,有没有做过发送。。。。 看看pop3协议和smtp协议以及vb得winsock空件 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 20分太少了吧!,不过看在你刚的情况下,给你一段范例吧!如果有什么不明白的,留EMAIL下来,我发其它的给你Private Sub cmdSend_Click() ' 开始 MAPI Session MAPISession1.SignOn ' 当 MAPI Session 建立后, ' Session 所产生的 Handle 会存于 SessionID 属性中 If MAPISession1.SessionID <> 0 Then ' 建立 MAPIMessages 与 MAPISession 间之有效联系 MAPIMessages1.SessionID = MAPISession1.SessionID ' 建立新的 E-Mail Message MAPIMessages1.Compose ' 收件人 (Recipient's Name) MAPIMessages1.RecipDisplayName = txtName.Text ' 收件人的 E-Mail 地址 MAPIMessages1.RecipAddress = txtAddress.Text ' 是否要检查收件人有无存在于全域 (Global) 或个人 (Personal) 通讯录中 MAPIMessages1.AddressResolveUI = True ' 检查收件人有无存在于全域 (Global) 或个人 (Personal) 通讯录中 MAPIMessages1.ResolveName ' E-Mail 的主题 MAPIMessages1.MsgSubject = txtSubject.Text ' E-Mail 的内文 MAPIMessages1.MsgNoteText = txtNote.Text ' 发送 E-Mail 且不显示"邮件对话框" (直接发送) MAPIMessages1.Send False End If ' 结束 MAPI Session MAPISession1.SignOffEnd SubPrivate Sub cmdExit_Click() EndEnd Sub 人家不是给了吗?你看:回复人: fraser01(王晓栋) (2001-12-3 11:25:41) 得0分 这不是写得清楚,你得0分,呵呵。 to:fraser01(王晓栋):谢谢你!我不是"蚊子",你可能找错人了!我叫阿贵(我的朋友都这么叫我)!我的Email:[email protected]!交个朋友,如何? to:fraser01(王晓栋):怎么给你加分后就不说话呀,我还有问题要问你呀!!! mshflexgrid绑定问题 vb如何知道按了ctrl+v? planetike接分 为什么我使用ActiveReport时只能显示rs的最后一行数据? 内存错误 有关编写数据库作报表的问题 请高手帮帮忙!如何用VB查出ADSL上网时的IP地址!(急!) DCOM问题。 把一个LABEL的属性全部传给另外一个LABEL 请教如何获得某网站的URL和参数 ★☆★☆★☆★☆★☆源码大放送☆★☆★☆★☆★☆★☆★ 如何编译vb程序?
Private Sub cmdSend_Click()
' 开始 MAPI Session
MAPISession1.SignOn
' 当 MAPI Session 建立后,
' Session 所产生的 Handle 会存于 SessionID 属性中
If MAPISession1.SessionID <> 0 Then
' 建立 MAPIMessages 与 MAPISession 间之有效联系
MAPIMessages1.SessionID = MAPISession1.SessionID
' 建立新的 E-Mail Message
MAPIMessages1.Compose
' 收件人 (Recipient's Name)
MAPIMessages1.RecipDisplayName = txtName.Text
' 收件人的 E-Mail 地址
MAPIMessages1.RecipAddress = txtAddress.Text
' 是否要检查收件人有无存在于全域 (Global) 或个人 (Personal) 通讯录中
MAPIMessages1.AddressResolveUI = True
' 检查收件人有无存在于全域 (Global) 或个人 (Personal) 通讯录中
MAPIMessages1.ResolveName
' E-Mail 的主题
MAPIMessages1.MsgSubject = txtSubject.Text
' E-Mail 的内文
MAPIMessages1.MsgNoteText = txtNote.Text
' 发送 E-Mail 且不显示"邮件对话框" (直接发送)
MAPIMessages1.Send False
End If
' 结束 MAPI Session
MAPISession1.SignOff
End SubPrivate Sub cmdExit_Click()
End
End Sub
回复人: fraser01(王晓栋) (2001-12-3 11:25:41) 得0分 这不是写得清楚,你得0分,呵呵。
谢谢你!我不是"蚊子",你可能找错人了!我叫阿贵(我的朋友都这么叫我)!
我的Email:[email protected]!交个朋友,如何?
怎么给你加分后就不说话呀,我还有问题要问你呀!!!