Почтовый клиент - узнать отправителя из заголовка письма - Visual Basic .NET
Формулировка задачи:
Доброго времени суток! Подскажите пожалуйста, используя данный фрагмент кода, можно ли указать имя отправителя в письме? При отправке из браузера в заголовке пишеться Pavel Gostov, а не triff.p
P.S почту использую mail.ru (с yandex.ru аналогичная ситуация)
За ранее спасибо за любую помощь)
Листинг программы
- 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 = "Windows-1251"
- With o_Mess
- .To = "Кому отправляем, например, [email]removed@mail.ru[/email]"
- .From = "Отправитель, например, [email]removed@mail.ru[/email]"
- .Subject = "Тема письма, например, Привет"
- .TextBody = "Текст письма, например, За последнее время участились случаи..."
- .AddAttachment("Вложение1, например, C:\Attachment.zip")
- .AddAttachment("Вложение2")
- .AddAttachment("Вложение3")
- With .Configuration.Fields
- .Item(v_Conf & "sendusing") = 2
- .Item(v_Conf & "smtpserver") = "Сервер SMTP, например, smtp.mail.ru"
- .Item(v_Conf & "smtpauthenticate") = 1
- .Item(v_Conf & "sendusername") = "например, [email]removed@mail.ru[/email]"
- .Item(v_Conf & "sendpassword") = "например, 0123456789"
- .Item(v_Conf & "smtpserverport") = 465
- .Item(v_Conf & "smtpusessl") = True
- .Item(v_Conf & "smtpconnectiontimeout") = 60
- .Update()
- End With
- .send()
- End With
Решение задачи: «Почтовый клиент - узнать отправителя из заголовка письма»
textual
Листинг программы
- .From = """Pavel Gostov"" <pavel@mail.ru>"
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д