Я пытаюсь отправить электронное письмо с несколькими вложениями, используя элемент управления VB6 MAPIMessages
.
1) Я могу использовать этот элемент управления для отправки одного вложения, но отображается сообщение об ошибке «Вложение не найдено», если я пытаюсь отправить более одного файла.
2) Мне также нужно подавить предупреждающее сообщение, когда я пытаюсь отправить электронное письмо
Любые идеи?
Вот код:
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = "[email protected]"
MAPIMessages1.MsgSubject = "MAPI subject with attachments"
MAPIMessages1.MsgNoteText = "This is atest"
MAPIMessages1.AttachmentIndex = 0
MAPIMessages1.AttachmentName = "test.csv"
MAPIMessages1.AttachmentPathName = "C:\test.csv"
MAPIMessages1.AttachmentIndex = 1
MAPIMessages1.AttachmentName = "holidays_2013.xls"
MAPIMessages1.AttachmentPathName = "E:\holidays_2013.xls"
MAPIMessages1.ResolveName
'Send the e-mail message to the Recipient
MAPIMessages1.Send