求教高手!

hwmhwmhwm 2004-02-19 11:55:08
求教高手!
我用vb6.0编了一个发送邮件的程序代码如下:
可是运行时系统总是提示:实时错误“13”,类型不匹配。恳请高手指出错误,在线等您的答案,先谢谢您了!

Private Sub Form_Load()
MAPISession1.SignOn
End Sub

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

Private Sub Send_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text / 收信人地址
.MsgSubject = txtSubject.Text / 邮件主题
.MsgNoteText = txtMessage.Text / 邮件正文
.SessionID = MAPISession1.SessionID / 发送程序和邮件工具之间建立的任务数
.Send
End With
MsgBox "邮件发送完毕!", , "发送邮件" / 发送成功显示信息框

End Sub




...全文
3 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-02-19 11:55
社区公告
暂无公告