Форматирование текста письма из Excel в Outlook

[DENGA-RU]

Добрый день!

Имеется макрос по созданию письма в Outlook. Письмо нормально формируется (Вид сформированого письма в Outlook.jpg), но когда приходит на почту (яндекс-почта) текст оказывается какой покоцанный (Вид письма пришедшего на яндекс почту.jpg), при попытке использовать .HTMLBody текст сливается в кучу (заголовок и само тела письма). Может кто-нибудь сталкивался с подобной проблемой ?

Sub SendMail()

Dim objOL As Object
Dim objMail As Object
Dim textmail As Variant, io As String

io = "Статья про Камазы"

textmail = Range("F3").Value
textmail = io & Chr(10) & textmail
Set objOL = CreateObject("Outlook.Application")

Set objMail = objOL.CreateItem(0)

With objMail

.To = "mailto@yandex.ru; " ' почтовый адрес назначения

.CC = ""

.Body = textmail '

'.HTMLBody = io & vbNewLine & textmail

.Subject = "проверка"

'.Attachments.Add "C:\file5.pdf"
.Display ' отпрвлять через экран
'.Send ' отпрвлять

End With

Set objMail = Nothing
Set objOL = Nothing

End Sub

[сфинкс]

существуют ещё другие почты: около 5 бесплатных

[Aleksandr H.]

файл вида пришедшего письма не открывается.

Скорее всего ето яндекс так отображает.

На ukr.net пришло как в Outlook.

может лучше писать статьи в Word а в Outlook добавлять как вложение?

[DENGA-RU]

Сообщение от сфинкс

существуют ещё другие почты: около 5 бесплатных

Дело не в яндексе, а чтобы независимо от почты письмо приходило в нормальном виде.

[DENGA-RU]

Сообщение от Aleksandr H.

файл вида пришедшего письма не открывается.

Скорее всего ето яндекс так отображает.

На ukr.net пришло как в Outlook.

может лучше писать статьи в Word а в Outlook добавлять как вложение?

я сначала хотел сделать через .HTMLBody, но он слил все вместе и заголовок сам текст, потом пытался через .RTFBody, но там вообще никак не пошло, то ли синтаксис другой, то ли вообще другая причина. Хотелось сделать как можно проще, чтобы текст рассылки брался из ячейки. по Word пока незнаю, надо попробовать наверно, раз так не получается.

[Aleksandr H.]

проверил на яндексе макрос из п.1, все отображается нормально.

[DENGA-RU]

Вид письма пришедшего на яндекс почту.jpg

Сообщение от Aleksandr H.

проверил на яндексе макрос из п.1, все отображается нормально.

Вот такой вид как в прилагаемом файлах мне не нравится, так как либо текст разорванный либо все в кучу. Почему то при отправке текста (в настройках outlook выставлен формат HTML) напрямую из outlook, текст приходит с нормальным форматированием (деление на абзацы, текст с красной строки), но через VBA все сливается в кучу. Хотел поставить .BodyFormat = olFormatHTML но почему то вылетает ошибка "Variable not defined".

[Aleksandr H.]

На все почтовики такой текст приходит или только на яндекс?
В outlook перед отправкой как отображается?

[DENGA-RU]

Сообщение от Aleksandr H.

На все почтовики такой текст приходит или только на яндекс?
В outlook перед отправкой как отображается?

у меня вот такой вид из outlook