Имеется форма с 3мя TextBox-ами (1 ввод email-а отправителя; 2 пароль к ящику; 3 тема сообщения), 1 - RichTextBox (тело письма), и кнопкой, которая имеет следующий код:
| Код | Dim mail As New MailMessage
Dim passwd As String
Dim email As String
Dim client As New SmtpClient("smtp.mail.ru", 25)
client.Credentials = New Net.NetworkCredential(email, passwd)
mail.From = New MailAddress(email)
mail.To.Add("mymail@mail.ru")
email = TextBox1.Text
passwd = TextBox3.Text
mail.Subject = TextBox2.Text
mail.Body = RichTextBox1.Text
Try
client.Send(mail)
Catch ex As Exception
MsgBox(ex.Message)
End Try |
при отправке ругается на эту строку: mail.From = New MailAddress(email) - обоснование: Значение не может быть неопределенным.
Но как значение может быть неопределенным если подставляется переменая значение которой берется из TextBox1?
При указаном в коде значения:
| Код | Dim mail As New MailMessage
Dim passwd As String
Dim email As String
Dim client As New SmtpClient("smtp.mail.ru", 25)
client.Credentials = New Net.NetworkCredential("mymail@mail.ru", "**********")
mail.From = New MailAddress("mymail@mail.ru")
mail.To.Add("mymail@mail.ru")
mail.Subject = TextBox2.Text
mail.Body = RichTextBox1.Text
Try
client.Send(mail)
Catch ex As Exception
MsgBox(ex.Message)
End Try |
письмо отправляется....
Помогите пжалуста доработать первый кусок кода |
