Несколько файлов вложений по электронной почте

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

Put довольно просто:

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)) 
...