UC知道用MAPI发邮件？
来源：百度知道 编辑：UC知道 时间：2024/06/01 17:34:15
Private Sub Form1_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 = "whf_103@163.com"
.MsgSubject = "???"
.MsgNoteText = "没事"
.SessionID = MAPISession1.SessionID
.send
End With
MsgBox "邮件发送完毕！", , "发送邮件"
End Sub
大家帮忙看看这代码有什么错误吗？运行的时候总提示“合法的会话标识符不存在”.send 这一行有问题
是不是我本地没有设置好？
MAPISession1.SignOn
End Sub
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub
Private Sub send_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = "whf_103@163.com"
.MsgSubject = "???"
.MsgNoteText = "没事"
.SessionID = MAPISession1.SessionID
.send
End With
MsgBox "邮件发送完毕！", , "发送邮件"
End Sub
大家帮忙看看这代码有什么错误吗？运行的时候总提示“合法的会话标识符不存在”.send 这一行有问题
是不是我本地没有设置好？
Private Sub send_Click()
别和send名字一样
MAPISession1.SignOn
MAPISession1.SignOff 要放在过程里~
Private Sub send1_Click()
MAPISession1.SignOn
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = "123@163.com"
.MsgSubject = "???"
.MsgNoteText = "没事"
.SessionID = MAPISession1.SessionID
.send
End With
MAPISession1.SignOff
MsgBox "邮件发送完毕！", , "发送邮件"
End Sub