Email com anexo

Question

Boa noite, eu tenho um projeto bem antigo, ele envia e-mail pelo form, mas agora

queria complementar ele, colocando anexo, mas nem tenho ideias de onde começar....

Código original...

Imports System
Imports System.Net
Imports System.Net.Mail



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim smsg As New MailMessage
        smsg.From = New MailAddress("email")
        smsg.To.Add("email")
        smsg.Priority = MailPriority.High
        smsg.Body = textbox2.text
        smsg.Subject = textbox1.text

        Dim ssmtp As New SmtpClient
        ssmtp.Credentials = New NetworkCredential("Meu email", "minha senha")
        ssmtp.EnableSsl = True
        ssmtp.Host = "smtp.live.com"
        ssmtp.Port = "587"
        ssmtp.Send(smsg)






On Error GoTo Err

Err:
        Label3.Text = "Status:" & "Error"

        Label3.Text = "Status:" & "Enviada"

Answer 1

  smsg.Attachments.Add(new Attachment("Ficheiro"));

Answer 2

Olá, você pode fazer da seguinte forma...

smsg.Attachments.Add(new Attachment(Textbox1.Text))

Fazendo isto, você coloca pra escolher o arquivo clicando em um botão, e ele pega o valor do Textbox1 e anexa ao e-mail.

---

Se For Util, Classifique como Util... Se Resolver Seu Problema, Maque Como Resposta! Fazendo Isto, Você pode ajudar outras pessoas com o mesmo problema!