Как отправлять фотографии по электронной почте в vb?

Question

У меня есть папка (open.SelectedPath), полная изображений, и вы хотите отправить их по электронной почте, код ниже не работает по какой-либо причине. Однако приведенный ниже код работает.

For Each File In open.SelectedPath 
attachment = New System.Net.Mail.Attachment(File) 
mail.Attachments.Add(attachment) 

код, который делает работу:

attachment = New System.Net.Mail.Attachment("ImageLocation") 
    mail.Attachments.Add(attachment) 

Любая помощь приветствуется

Answer 1

For Each foundFile As String In My.Computer.FileSystem.GetFiles(open.SelectedPath) 
        ListBox1.Items.Add(foundFile) 
       Next 
       For Each item In ListBox1.Items 
        attachment = New System.Net.Mail.Attachment(item) 
        mail.Attachments.Add(attachment) 
       Next