用VBA 调用outlook自动发邮件

一封outlook邮件正文里面会添加几个表（比如表格1、表格2、表格3，每个表格区域大小范围每天不定）。没个表之间会有几行文本文字（文字1、文字2、文字3）。。。即邮件正... 一封outlook邮件正文里面会添加几个表（比如表格1、表格2、表格3，每个表格区域大小范围每天不定）。没个表之间会有几行文本文字（文字1、文字2、文字3）。。。即邮件正文的结构就是文字1----表格区域1----文字2----表格区域2----文字3---表格区域3。。。怎么用VBA调用outlook自动添加这种表格正文发送邮件？展开

 我来答

1个回答

#热议# 发烧为什么不能用酒精擦身体来退烧？

好口子
2016-12-20 · 好口子，手把手教你维护好你的征信！

好口子

采纳数：29399 获赞数：66629

向TA提问私信TA

关注

展开全部

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

本回答由提问者推荐