多收件人

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


 
目前有0条回应
Comment
Trackback
你目前的身份是游客,请输入昵称和电邮!