Гиперссылка при отпраке почты через Exel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Гиперссылка при отпраке почты через Exel (Макросы/Sub)

A_3485

Дата: Понедельник, 06.10.2014, 09:58 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Уважаемы форумчане доброе утро!

Стакнулся с такой проблемой.
Я пытаюсь отправить эл. почту через 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]

Ответить

Rioran

Дата: Понедельник, 06.10.2014, 10:05 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

Репутация: 290 ±

Замечаний: 0% ±

Excel 2013

A_3485, здравствуйте.

Формируйте письмо через HTML, пример кода можно найти здесь.

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Ответить

A_3485

Дата: Понедельник, 06.10.2014, 14:09 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

В HTML я ничего не понимаю. По указанной ссылке виден только пример вставки тексат в html при отправке эл. почты, но ничего про гиперссылку.

Ответить

Rioran

Дата: Понедельник, 06.10.2014, 14:17 | Сообщение № 4

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

Репутация: 290 ±

Замечаний: 0% ±

Excel 2013

A_3485, HTML может способствовать решению Вашей задачи. Следующий метод позволяет задавать в HTML ссылку: a href

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Ответить

A_3485

Дата: Понедельник, 06.10.2014, 14:23 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 146

Репутация: 0 ±

Замечаний: 40% ±

2007

Можите привести какой нибудь короткий пример? Если пойму что к чему буду разбираться.

Ответить

Rioran

Дата: Понедельник, 06.10.2014, 14:54 | Сообщение № 6

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

Репутация: 290 ±

Замечаний: 0% ±

Excel 2013

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 = "" & _
 "Hello, Mr. Someone! I am looking forward to recommend you one wanderful site. " & _
 "You will find it <a href=" & strX & ">HERE</a>, if it please you." & _
 " Best Regards, Roman Rioran Voronov"

 .Display 'Или .Send если хотим сразу отправить

End With

'Не обязательно, обнуление переменных
Set OutApp = Nothing
Set OutMail = Nothing

End Sub

[/vba]