проблема с smtp-клиентом.
программа считывает письмо в eml-формате и выводит его текст в текстбокс.
кодировка utf-8
Если отправлять используя этот код:
переменная copy хранит мой дополнительный email,переменная poluchatel хранит мой основной email,они 100% рабочие.
Вариант № 1
первый раз письмо отправилось без проблем и программа прочитала его.
На второй раз программа при попытке отправить письмо выкидывает мсдж-бокс который я сделал для исключения если ящик нерабочий.
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.
Imports System.Net.Mail
Imports System.Text
(...)
If ComboBox1.SelectedIndex = -1 Then
MsgBox("Вы не выбрали получателя!")
Else
Try
Dim email As New MailMessage
Dim smtp As SmtpClient
poluchatel = ComboBox2.SelectedItem
smtp = New SmtpClient(smtp1)
smtp.Credentials = New Net.NetworkCredential(mail, parol)
email.From = New MailAddress(mail)
email.To.Add(New MailAddress(poluchatel + ";" + copy))
email.Body = TextBox1.Text
email.Subject = TextBox2.Text
If TextBox3.Text <> Nothing Then
email.Attachments.Add(New System.Net.Mail.Attachment(TextBox3.Text))
End If
smtp.Send(email)
MsgBox("Сообщение отправлено!")
TextBox3.Clear()
TextBox2.Clear()
TextBox1.Clear()
ComboBox1.SelectedIndex = -1
TextBox1.Text = vbCrLf + "Сообщение отправлено:" + mail
Catch ex As Exception
MsgBox("Данный почтовый ящик (e-mail) не существует или заблокирован!")
TextBox3.Clear()
End Try
End If
Вариант № 2
Отправляется без проблем,но при чтении eml файла кракозябры,хотя кодировку указал utf-8
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.
If ComboBox1.SelectedIndex = -1 Then
MsgBox("Вы не выбрали получателя!")
Else
Try
poluchatel = ComboBox2.SelectedItem
Dim o_Mess As Object, v_Conf As String
o_Mess = CreateObject("CDO.Message")
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
o_Mess.BodyPart.CharSet = "utf-8"
With o_Mess
.To = poluchatel + ";" + copy
.From = mail
.Subject = TextBox2.Text
.TextBody = TextBox1.Text
If TextBox3.Text <> Nothing Then
.AddAttachment(TextBox3.Text)
End If
With .Configuration.Fields
.Item(v_Conf & "sendusing") = 2
.Item(v_Conf & "smtpserver") = smtp1
.Item(v_Conf & "smtpauthenticate") = 1
.Item(v_Conf & "sendusername") = mail
.Item(v_Conf & "sendpassword") = parol
.Item(v_Conf & "smtpserverport") = 25
.Item(v_Conf & "smtpusessl") = False
.Item(v_Conf & "smtpconnectiontimeout") = 60
.Update()
End With
.send()
MsgBox("Сообщение отправлено!")
TextBox3.Clear()
TextBox2.Clear()
TextBox1.Clear()
ComboBox1.SelectedIndex = -1
TextBox1.Text = vbCrLf + "Сообщение отправлено:" + mail
End With
Catch ex As Exception
MsgBox("Сообщение не отправлено! Возможно, данный почтовый ящик не существует или заблокирован.")
TextBox3.Clear()
End Try
End If
В чем может быть проблема?
И как ее решить?
