纸白银行情软件:VB中EMAIL发送问题? (送10分)
来源:百度文库 编辑:中科新闻网 时间:2024/10/02 09:12:26
EMAIL发送问题?
Private Sub Form_Load()
MAPISession1.SignOn
'上面这句老是提示“实时错误48389”
End Sub
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub
Private Sub cmdSend_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text
.MsgSubject = txtSubject.Text
.MsgNoteText = txtMessage.Text
.SessionID = MAPISession1.SessionID
.Send
End With
MsgBox "邮件发送完毕!", , "发送邮件"
End Sub
请问这是什么原因??
Private Sub Form_Load()
MAPISession1.SignOn
'上面这句老是提示“实时错误48389”
End Sub
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub
Private Sub cmdSend_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text
.MsgSubject = txtSubject.Text
.MsgNoteText = txtMessage.Text
.SessionID = MAPISession1.SessionID
.Send
End With
MsgBox "邮件发送完毕!", , "发送邮件"
End Sub
请问这是什么原因??
用控件。