Here is what i made, need only to display the attached files somehow and option to delete attachment.
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
OpenFileDialog1.FileName = "Select File"
OpenFileDialog1.DefaultExt = "*.*"
OpenFileDialog1.FilterIndex = 6
OpenFileDialog1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
OpenFileDialog1.Filter = "Word Documents|*.doc;*.docx;" +
"|Excel Worksheets|*.xls;*.xlsx;" +
"|PowerPoint Presentations|*.ppt;*.pptx;" +
"|Archive Files|*.zip;*.rar;*.7z" +
"|Images Files|*.jpeg;*.jpg;*.gif;*.png;" +
"|All Files|*.*"
OpenFileDialog1.Multiselect = True
OpenFileDialog1.ShowDialog()
End Sub
Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
attachmentList = New List(Of Net.Mail.Attachment)
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
For Each item As String In OpenFileDialog1.FileNames
'Create a new System.NET.Mail.Attachment class instance for each file.
attachmentList.Add(New Net.Mail.Attachment(item))
Next
MsgBox("I have finished adding all of the selected files! You can do more if you want!")
End If
End Sub