电子邮件中的多个文件附件

Question

我正在使用以下代码发送带附件的电子邮件。我可以发送一个附件，但我怎样才能发送多个附件？

Dim vrAttachFilePath As String = "c:\users\ittahad\documents\abc.doc" 
If vrAttachFilePath.Length > 0 Then 
    oMail.Attachments.Add(New Net.Mail.Attachment(vrAttachFilePath)) 
End If 

Answer 1

把很简单：

Dim vrAttachFilePathFile1 As String = "c:\users\ittahad\documents\abc.doc" 
Dim vrAttachFilePathFile1 As String = "c:\users\ittahad\documents\def.doc" 

oMail.Attachments.Add(New Net.Mail.Attachment(vrAttachFilePathFile1)) 
oMail.Attachments.Add(New Net.Mail.Attachment(vrAttachFilePathFile2)) 

你可以通过调用Attachments.Add每次只要你想简单地添加尽可能多的附件附件。

Answer 2

你可以多元素添加到Attachments集合：

oMail.Attachments.Add(New Net.Mail.Attachment(path1)) 
oMail.Attachments.Add(New Net.Mail.Attachment(path2)) 
oMail.Attachments.Add(New Net.Mail.Attachment(path3)) 
...