求教高手!
求教高手!
我用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