`

MAPI 控件多收件人/多附件

    博客分类：
  • vb
 
阅读更多

多收件人

frmMain.mapMess.Compose
frmMain.mapMess.AddressResolveUI = False

frmMain.mapMess.MsgSubject = "This is a subject."
frmMain.mapMess.MsgNoteText = "This is a body."

frmMain.mapMess.RecipIndex = 0
frmMain.mapMess.RecipType = 1
frmMain.mapMess.RecipAddress = "me@here.com"
frmMain.mapMess.ResolveName '每个收件人地址后面一定要调用 ResolveName

frmMain.mapMess.RecipIndex = 1
frmMain.mapMess.RecipType = 1
frmMain.mapMess.RecipAddress = "you@there.com"
frmMain.mapMess.ResolveName '每个收件人地址后面一定要调用 ResolveName

frmMain.mapMess.Send False


多附件

For I = 0 To List.ListCount - 1
MAPIMessages.AttachmentIndex = Acnt 'Index
MAPIMessages.AttachmentName = "附件名称" 'Name
MAPIMessages.AttachmentPathName = "附件路径" 'Path

DoEvents
Next I

 

分享到：
| VB 调用 Jmail 组件发邮件
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

Magicbox
Global site tag (gtag.js) - Google Analytics