主题:是高手的进来看一下...此问题有点难度
我们知道用MAPI 下的两个控件可以发送邮件:
例:
**thisform.MailSess 控件
**thisform.MailMess 控件
**发送代码**
thisform.MailSess.SignOn
thisform.MailMess.SessionID=thisform.MailSess.SessionID
thisform.MailMess.MsgIndex = -1
thisform.MailMess.RecipDisplayName = "你好"
thisform.MailMess.RecipAddress="21616607@qq.com"
thisform.MailMess.MsgSubject = "想死你了"
thisform.MailMess.MsgNoteText = "请给我发邮件!"
thisform.MailMess.Send (.F.)
thisform.MailSess.SignOff
**
但是这有一个问题,寻就是他会调用OUTLOOK的默认设置发送此邮件,但是如果对方的电脑上没有设置OUTLOOK,或者根本没没有装OUTLOOK怎么办.
我仔细研究了一下MailSess控件,但是他只能设置用户名和密码,不知道能不能设置发送邮箱在址,如:smtp.163.com 之类的
例:
**thisform.MailSess 控件
**thisform.MailMess 控件
**发送代码**
thisform.MailSess.SignOn
thisform.MailMess.SessionID=thisform.MailSess.SessionID
thisform.MailMess.MsgIndex = -1
thisform.MailMess.RecipDisplayName = "你好"
thisform.MailMess.RecipAddress="21616607@qq.com"
thisform.MailMess.MsgSubject = "想死你了"
thisform.MailMess.MsgNoteText = "请给我发邮件!"
thisform.MailMess.Send (.F.)
thisform.MailSess.SignOff
**
但是这有一个问题,寻就是他会调用OUTLOOK的默认设置发送此邮件,但是如果对方的电脑上没有设置OUTLOOK,或者根本没没有装OUTLOOK怎么办.
我仔细研究了一下MailSess控件,但是他只能设置用户名和密码,不知道能不能设置发送邮箱在址,如:smtp.163.com 之类的