喀什机场怎么去古城:VB中EMAIL发送问题? (送10分)

来源:百度文库 编辑:高校问答 时间:2024/05/05 13:34:06
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

请问这是什么原因??

用控件。