MAPI 控件多收件人/多附件

多收件人

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 = "[email protected]"
frmMain.mapMess.ResolveName '每个收件人地址后面一定要调用 ResolveName

frmMain.mapMess.RecipIndex = 1
frmMain.mapMess.RecipType = 1
frmMain.mapMess.RecipAddress = "[email protected]"
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

 

你可能感兴趣的:(map)