上一篇
下一篇
MAPI 控件多收件人/多附件
作者:JiaJia 日期:2008-02-24
多收件人
引用内容
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
引用内容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
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: -
发表评论