2013-04-29 63 views
0

我试图用VB6 MAPIMessages控件发送带有多个附件的电子邮件。MAPI控件多个附件

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 
+0

这两个文件确实存在,对不对?如果你分别尝试两种方法,它是否有效? – 2013-04-29 00:35:32

+0

是的..他们确实存在,我可以单独发送他们 – AMS 2013-04-29 00:36:52

回答

1

尝试AttachmentPosition属性设置为相同的值AttachmentIndex

+0

这工作..谢谢 – AMS 2013-04-29 01:05:57