Vb.net 电子邮件中的多个文件附件

我正在使用以下代码发送带有附件的电子邮件。我可以发送一个附件，但如何发送多个附件

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

---

您可以向“附件”集合添加多个元素：

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

简而言之：

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

，即可添加任意数量的附件