Вложение должно быть в форме, и мое электронное письмо работает, но я хочу отправить электронное письмо без прикрепления в той же форме. Так как это сделать

Question

Моя электронная почта работает, но должна быть отправлена ​​без вложений. Все работает правильно. не могу удалить вложение. Иногда нужно отправить с вложением тоже.

    Dim smtpserver As New SmtpClient
    Dim mail As New MailMessage()
    smtpserver.Credentials = New Net.NetworkCredential(TextBox4.Text, TextBox5.Text)
    smtpserver.Port = 587
    smtpserver.Host = "smtp.gmail.com"
    mail = New MailMessage
    mail.From = New MailAddress(TextBox4.Text)
    mail.To.Add(TextBox1.Text)
    mail.Subject = TextBox2.Text
    mail.Body = TextBox3.Text
    Dim attach As New Attachment(TextBox6.Text)
    mail.Attachments.Add(attach)
        smtpserver.EnableSsl = True
    Try
        smtpserver.Send(mail)
        MsgBox("Email Sent")
    Catch ex As SmtpException
        MsgBox("Its an Error")
    End Try

Answer 1

Если похоже, что ваше вложение находится в TextBox6.Text. Если это так, просто проверьте, что он содержит что-то (или, что еще лучше, содержит что-то действительное), и добавляйте вложение только в том случае, если оно есть.

Примерно так

    If Not String.IsNullorWhitepace(TextBox6.Text) Then
        Dim attach As New Attachment(TextBox6.Text)
        mail.Attachments.Add(attach)
    End If