怎么通过VBA调用 microsoft OUTLOOK 自动写发邮件
1个回答
展开全部
MAPISession1.SignOn
'MAPI1.MsgType = 1 'how to send html code ?
'MAPI1. = mailsvr.Text
MAPI1.SessionID = MAPISession1.SessionID
MAPI1.MsgIndex = -1
MAPI1.RecipAddress = mailto.Text
'MAPI1.RecipDisplayName = mailto.Text
'MAPI1.MsgOrigAddress = mailfrom.Text '未啥只能读，对了，这是收到的信
'MAPI1.MsgOrigDisplayName = mailfrom.Text '发件人用OE默认，收信用fetch
MAPI1.MsgSubject = mailhead.Text
MAPI1.MsgNoteText = mailbody.Text
MAPI1.Send '0[缺省]不出现编辑框了，1出现编辑框！
MAPISession1.SignOff
'MAPI1.MsgType = 1 'how to send html code ?
'MAPI1. = mailsvr.Text
MAPI1.SessionID = MAPISession1.SessionID
MAPI1.MsgIndex = -1
MAPI1.RecipAddress = mailto.Text
'MAPI1.RecipDisplayName = mailto.Text
'MAPI1.MsgOrigAddress = mailfrom.Text '未啥只能读，对了，这是收到的信
'MAPI1.MsgOrigDisplayName = mailfrom.Text '发件人用OE默认，收信用fetch
MAPI1.MsgSubject = mailhead.Text
MAPI1.MsgNoteText = mailbody.Text
MAPI1.Send '0[缺省]不出现编辑框了，1出现编辑框！
MAPISession1.SignOff
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
