多收件人
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