Стакнулся с такой проблемой. Я пытаюсь отправить эл. почту через Exec при этом одна из ячеек FT1 содержить текст в виде ссылки (http://....). Я пытаюсь его преобразовать в гиперссылку и прикрепить к сообщению. В итоге ничего не получается. Созданная гиперссылка (через Exel) ячейки FT1 просто копируется и в эл. письме отображается просто как текст. Вот чать кода: [vba]
Код
With OutMail .To = Count .Subject = Range("FQ1").Value .Body = Range("FR1").Value & Chr(13) & Range("FS1").Value & Chr(13) & Range("FT1").Val .Display End With
[/vba]
Уважаемы форумчане доброе утро!
Стакнулся с такой проблемой. Я пытаюсь отправить эл. почту через Exec при этом одна из ячеек FT1 содержить текст в виде ссылки (http://....). Я пытаюсь его преобразовать в гиперссылку и прикрепить к сообщению. В итоге ничего не получается. Созданная гиперссылка (через Exel) ячейки FT1 просто копируется и в эл. письме отображается просто как текст. Вот чать кода: [vba]
Код
With OutMail .To = Count .Subject = Range("FQ1").Value .Body = Range("FR1").Value & Chr(13) & Range("FS1").Value & Chr(13) & Range("FT1").Val .Display End With
A_3485, например можно так, если в ячейке A1 лежит адрес.
UPD: Поправил код и комментарии.
[vba]
Код
Sub Rio_Send_HTML_Email_with_Link()
'Author: Roman Rioran Voronov 'Date: the 6-th of October, 2014 'Feedback: voronov_rv@mail.ru
Dim OutApp As Object 'Для вызова Outlook Application Dim OutMail As Object 'Для обращения к новому сообщению Outlook Dim strX As String 'Для обращения к http адресу в подготовленой ячейке
'Присваиваем переменной значение ячейки с http адресом strX = ThisWorkbook.Worksheets(1).Cells(1, 1).Value
Set OutApp = CreateObject("outlook.application") 'Создаём новую сессию Outlook Set OutMail = OutApp.CreateItem(0) 'Создаём новое сообщение
With OutMail
.Subject = "HTML Link example." 'Заголовок письма .To = "voronov_rv@mail.ru" 'Адрес, куда отправляем
'Заполняем тело письма с использованием HTML разметки .HTMLBody = "<span LANG=EN><p class=style2><span LANG=EN><font FACE=Calibri SIZE=3>" & _ "Hello, Mr. Someone!<BR><BR>I am looking forward to recommend you one wanderful site.<BR><BR>" & _ "You will find it <a href=" & strX & ">HERE</a>, if it please you." & _ "<BR><BR><BR><B>Best Regards,<BR>Roman Rioran Voronov</B></font></span>"
.Display 'Или .Send если хотим сразу отправить
End With
'Не обязательно, обнуление переменных Set OutApp = Nothing Set OutMail = Nothing
End Sub
[/vba]
A_3485, например можно так, если в ячейке A1 лежит адрес.
UPD: Поправил код и комментарии.
[vba]
Код
Sub Rio_Send_HTML_Email_with_Link()
'Author: Roman Rioran Voronov 'Date: the 6-th of October, 2014 'Feedback: voronov_rv@mail.ru
Dim OutApp As Object 'Для вызова Outlook Application Dim OutMail As Object 'Для обращения к новому сообщению Outlook Dim strX As String 'Для обращения к http адресу в подготовленой ячейке
'Присваиваем переменной значение ячейки с http адресом strX = ThisWorkbook.Worksheets(1).Cells(1, 1).Value
Set OutApp = CreateObject("outlook.application") 'Создаём новую сессию Outlook Set OutMail = OutApp.CreateItem(0) 'Создаём новое сообщение
With OutMail
.Subject = "HTML Link example." 'Заголовок письма .To = "voronov_rv@mail.ru" 'Адрес, куда отправляем
'Заполняем тело письма с использованием HTML разметки .HTMLBody = "<span LANG=EN><p class=style2><span LANG=EN><font FACE=Calibri SIZE=3>" & _ "Hello, Mr. Someone!<BR><BR>I am looking forward to recommend you one wanderful site.<BR><BR>" & _ "You will find it <a href=" & strX & ">HERE</a>, if it please you." & _ "<BR><BR><BR><B>Best Regards,<BR>Roman Rioran Voronov</B></font></span>"
.Display 'Или .Send если хотим сразу отправить
End With
'Не обязательно, обнуление переменных Set OutApp = Nothing Set OutMail = Nothing