Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
В теле письма: Текст + Гиперссылка + Текст, с помощью ВБА
 
#1
21.08.2017 06:36:47
Добрый день!
Помогите, пожалуйста, решить проблему с отправкой письма с помощью ВБА.
Суть состоит в том, что в макросе эксель прописано сохранение отчета с последующей отправкой письма.
В теле письма должен быть текст (текст и текст, заданный переменной), далее гиперссылка, потом снова текст (текст и текст, заданный переменной).
В макросе, прописанном мной, при отправлении исчезают переносы на следующую строку с промежутками между строк, а также конец текста письма прописывается тоже как гиперссылка.
Файл с кодом прикладываю.

В результате моего кода получается:
Привет! Обновлен отчет по прогнозу выполнения планов на текущий месяц для филиалов Новосибирск, Иркутск. C:\Users\i.ivanova\Desktop - Август 2017 новая_авто

А должно получиться вот так:
Привет!
Обновлен отчет по прогнозу выполнения планов на текущий месяц для филиалов Новосибирск, Иркутск.
C:\Users\i.ivanova\Desktop - Август 2017 новая_авто

Подскажите, пожалуйста, как написать, чтобы получить необходимый результат.
Изменено: Atir - 21.08.2017 09:14:22 (поменяла код в приложенном файле и текст задачи)
 
 
 
#2
21.08.2017 07:21:14
Аутлука под руками нет, чтобы проверить  :)

Попробуйте строку в коде заменить на:
Код
    Email_Body = "Привет!" & Chr(13) & Chr(13) & "Обновлен отчет по прогнозу выполнения планов на текущий месяц для филиалов " _
    & spisok & "." & Chr(13) & Chr(13) & "<a href=' C:\Users\i.ivanova\Desktop'>" & "C:\Users\i.ivanova\Desktop " & "</a> - " & mesyac & " новая_авто"
или даже так:
Код
    Email_Body = "Привет!<br><br>Обновлен отчет по прогнозу выполнения планов на текущий месяц для филиалов " _
    & spisok & ".<br><br><a href=' C:\Users\i.ivanova\Desktop'>" & mesyac & " новая_авто</a><br>"
Изменено: AndreTM - 21.08.2017 08:00:22
 
 
 
#3
21.08.2017 07:34:27
В HTML символы CHR(10)  и CHR(13) игнорируются и используется только для удобства форматирования.
Вместо CHR(10) используйте тэг  "<br>":
Email_Body = "Привет!" & "<br><br>" & "..."
Изменено: ZVI - 21.08.2017 07:35:56
 
 
 
#4
21.08.2017 07:45:09
AndreTM,
По первому варианту результат:
Привет! Обновлен отчет по прогнозу выполнения планов на текущий месяц для филиалов Новосибирск, Иркутск. C:\Users\i.ivanova\Desktop- Август 2017 новая_авто
комментарий: Название файла в конце исправлено с гиперссылки на текст, но переходов на новую строку не появилось;
по второму варианту:
Привет! Обновлен отчет по прогнозу выполнения планов на текущий месяц для филиалов Новосибирск, Иркутск. Август 2017 новая_авто
комментарий: гиперссылка с адресом заменена на гиперссылку с названием, что тоже приемлемо, но переноса на новые строки с промежутками также нет.
Изменено: Atir - 21.08.2017 07:45:57 (исправление)
 
 
 
#5
21.08.2017 07:55:34
ZVI,
по Вашему совету заменила Chr(13) & Chr(13) на "<br><br>", - все получилось.
Спасибо, теперь буду знать! )
 
 
 
#6
21.08.2017 07:58:16
В итоге для получения нужного результата соединила первый вариант AndreTM и исправление ZVI:
Код
Email_Body = "Привет!" & "<br><br>" & "Обновлен отчет по прогнозу выполнения планов на текущий месяц для филиалов " _
    & spisok & "." & "<br><br>" & "<a href=' C:\Users\i.ivanova\Desktop'>" & "C:\Users\i.ivanova\Desktop " & "</a> - " & mesyac & " новая_авто" & "<br><br>"
Ура! Всё корректно работает,- всем спасибо )
 
 
 
#7
21.08.2017 07:58:45
А, да, точно, тэгами же надо переносы ставить. Раз там свойство .HTMLBody
Ну нету аутлука под рукой...

Кстати, кросс
Изменено: AndreTM - 21.08.2017 09:05:38
 
 
 
#8
03.03.2022 09:08:34
Добрый день!
в outlook в тело сообщения гиперссылка создаётся без переменной sFile. т.е. путь С:\Папка. Можете подсказать что не так сделал
Код
' sFolder его значение C:\Папка
' sFile его значение Файл.docx
sPath = sFolder & sFile
... 
.HTMLBody = "<a href=" & sPath & "> </a>"
Изменено: Maga Ing - 03.03.2022 09:09:35
 
 
 
#9
03.03.2022 09:24:45
Цитата
написал:
без переменной sFile
с ней. Только у Вас текст тега <a> пуст - там пробел. Попробуйте записать так:
Код
.HTMLBody = "<a href=" & sPath & ">" & sPath & "</a>"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#10
03.03.2022 09:48:19
, я имею ввиду что путь ссылки указывается не полностью.
Код
.HTMLBody = "<a href=" & sPath & " // тут путь С:\Папка> " & sPath & " // тут путь C:\Папка\Файл.docx </a>
 
 
 
#11
03.03.2022 10:43:20
Цитата
Maga Ing написал:
я имею ввиду
послушайте, угадывать что Вы имеете ввиду, когда пишите что-то другое - не мой профиль. Напишите четко и понятно, что именно у Вас есть, что не получается(или получается не так, как ожидалось) и что надо получить.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#12
03.03.2022 10:51:52
, в теге <a href> мы указали переменную sPath, получается путь гиперссылки должна быть виде С:\Папка\Файл.docx, а у меня гиперссылка получается C:\ Папка.
Понятно?  
 
 
 
#13
03.03.2022 11:06:16
Цитата
Maga Ing написал:
' sFolder его значение C:\Папка'
sFile его значение Файл.docx
sPath = sFolder & sFile
Цитата
Maga Ing написал:
тут путь C:\Папка\Файл.docx
Не может быть такого, может быть
Код
C:\ПапкаФайл.docx
Изменено: RAN - 03.03.2022 11:07:11
 
 
 
#14
03.03.2022 11:20:02
, в моём случае получается что может.
Если вывести переменную в ячейку Range("A1") = sPath  или модальным окном MsgBox то путь показывает как надо (C:\Папка\ Файл.docx)  
 
 
 
#15
03.03.2022 12:41:21
заметил, что у Вас не хватает важной вещи - Вы не указываете одинарные кавычки вокруг адреса ссылки:
Код
.HTMLBody = "<a href='" & sPath & "'>" & sPath & "</a>"
Изменено: Дмитрий(The_Prist) Щербаков - 03.03.2022 12:45:17
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#16
03.03.2022 12:49:14
Цитата
написал:
Вы не указываете одинарные кавычки вокруг адреса ссылки
Получилось, Спасибо Вам
 
 
 
Страницы: 1
Наверх