Question : Visual basic emailer, Send with Attachments....

I need to attach items from a referenced folder, within a visual basic project. I've attached a screenshot of the form and the code. The attachment is a selection from a combo box. I would like the users to select the combo box item and the code would them attach the file selected to the emailer and send it with the message. "Please Help!"  I have no idea how to get it to work and I've tried everything! 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Imports System.Net.Mail
Public Class FrmEmail
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        Me.Refresh()
    End Sub

    Private Sub AttachFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AttachFileToolStripMenuItem.Click
        FolderBrowserDialog1.ShowDialog()
    End Sub

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        Me.Close()
    End Sub

    Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        Dim SmtpServer As New SmtpClient()
        ProgressBar1.Value = 5
        Dim Mail As New MailMessage()
        ProgressBar1.Value = 10

        SmtpServer.Credentials = New Net.NetworkCredential(userName:="TxtSendFrom.Text", password:="TxtPassword.Text")
        TxtSendFrom.Text.EndsWith("@domain.com")
        SmtpServer.Port = 25
        SmtpServer.Host = "mail.domain.com"
        SmtpServer.EnableSsl = False

        Mail.To.Add(TxtSendTo.Text)
        ProgressBar1.Value = 27
        Mail.From = New MailAddress(TxtSendFrom.Text)
        ProgressBar1.Value = 53
        Mail.Subject = (TxtSubject.Text)
        ProgressBar1.Value = 68
        Mail.Body = (TxtBody.Text)
        ProgressBar1.Value = 100
        Try
            SmtpServer.Send(Mail)
            MsgBox("Your Email was sucessfully sent.", MsgBoxStyle.Information, "Technical Mailer")
            ProgressBar1.Value = 0
        Catch ex As Exception
            MsgBox("An error has occured, Please verify your Email Address and / or Password!", MsgBoxStyle.Exclamation, "Technical Mailer")
            ProgressBar1.Value = 0
        End Try
    End Sub
End Class
Attachments:
 
mailer.png (34 KB) (File Type Details) 
Form View....
Form View....
 

Answer : Visual basic emailer, Send with Attachments....

so:

Mail.Attachments.Add(New Attachment(io.path.combine("C:\Program Files\Cantrell Presentation Manager\res\",YourComboNameHere.Text)))

Random Solutions  
 
programming4us programming4us