Как отправить письмо из Excel с гиперссылкой в теле сообщения?
Во многих рабочих ситуациях может потребоваться отправка писем непосредственно из Excel, а иногда — с кликабельными гиперссылками в теле письма. Например, вы можете захотеть, чтобы получатели имели возможность открывать файлы, переходить на веб-сайты или другие релевантные документы прямо из письма. В Excel это можно реализовать несколькими практичными способами: с помощью автоматизации на VBA, встроенных возможностей гиперссылок Excel и использования формул. Каждый метод имеет свои особенности и подходит для разных сценариев — будь то предпочтение автоматизации, ручной настройки или генерации ссылок на основе таблицы. В данном руководстве представлены несколько подходов для Создать гиперссылку в тело письма, отправляемого из Excel, а также обсуждаются их практическая ценность и важные аспекты применения.
- Создать гиперссылку в тело письма с помощью кода VBA
- Создание гиперссылок mailto с использованием формулы HYPERLINK в Excel
Создать гиперссылку в тело письма с помощью кода VBA
Этот метод предназначен для пользователей, которым необходимо отправлять письма с гиперссылками, встроенными непосредственно в тело сообщения, используя Outlook в качестве почтового клиента. Применение VBA позволяет автоматически создавать и настраивать письма прямо из Excel, включая любые необходимые гиперссылки или форматированный текст в теле. Это особенно полезно при массовой рассылке, автоматизации рабочих процессов или когда в шаблон письма необходимо включать данные из таблицы.
1. Откройте свою книгу и нажмите Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В редакторе Visual Basic выберите Вставка>Модульи вставьте следующий код VBA в редактор модуля.
Код VBA: Создать гиперссылку в тело письма
Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
xStrBody = "Hi there:" & "<br>" _
& "Please click " & "<a href="/ & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
& "Thank you."
On Error Resume Next
Set xOtl = CreateObject("Outlook.Application")
Set xOtlMail = xOtl.CreateItem(olMailItem)
With xOtlMail
.To = "Email Address"
.CC = "Email Address "
.BCC = " Email Address "
.Subject = "Subject line"
.HTMLBody = .HTMLBody & xStrBody
.Display
End With
Set xOtl = Nothing
Set xOtlMail = Nothing
End Sub
Примечания:
- Отредактируйте гиперссылку и основной текст в строке xStrBody, чтобы соответствовать вашим требованиям. Здесь используется HTML-тег — не забудьте проверить корректность ссылки и отображаемого текста.
<a href="/"></a> - Замените «Адрес электронной почты» в полях .To,.CCи .BCCна реальные адреса получателей Адрес электронной почты. Поля CC/BCC можно опустить, если они не требуются (удалив или закомментировав соответствующие строки).
- Обновите «Subject line» в строке .Subject, чтобы отразить ваше намерение относительно Тема письма.
- Убедитесь, что Microsoft Outlook установлен и доступен перед запуском этого макроса.
3. После редактирования кода нажмите F5, чтобы запустить его. В Outlook откроется окно Новое письмо, предварительно заполненное указанными полями и содержащее вашу гиперссылку в теле письма. Проверьте сообщение и нажмите Отправить, чтобы отправить его.
Совет: Если в Outlook появляются запросы безопасности, убедитесь, что у вас есть разрешение на отправку писем через код и что параметры безопасности макросов позволяют его выполнение. Для наилучшего результата всегда тестируйте отправку на пробном сообщении перед автоматизацией для большой аудитории.
Преимущества:Поддержка настраиваемых HTML-писем с форматированием, встроенными гиперссылками и автоматической отправкой. Автоматизация позволяет значительно сэкономить время при регулярной или массовой рассылке.
Недостатки:Требуется Outlook и, возможно, настройка параметров безопасности макросов. Не подходит для пользователей, не знакомых с VBA.
Создание гиперссылок mailto с использованием формулы HYPERLINK в Excel
Этот подход использует функцию HYPERLINKExcel для создания кликабельных ссылок на листе. При нажатии на такие ссылки запускается почтовый клиент по умолчанию (например, Outlook или Почта), чтобы создать заранее заполненное сообщение. С помощью этого метода можно задать получателя, тему, текст письма и даже дополнительные ссылки, обеспечивая быстрый старт для создания сообщения — хотя отправка всё ещё требует ручного подтверждения пользователем.
Этот способ подходит, если вы хотите предоставить другим пользователям шаблонные ссылки или упростить повторяющиеся задачи по отправке писем без автоматизации. Вы можете комбинировать этот подход с данными таблицы для создания динамических шаблонов писем для разных пользователей.
1.Выберите ячейку, в которую нужно поместить гиперссылку mailto, например, B2.
=HYPERLINK("mailto:someone@example.com?subject=Test Subject&body=Please review this link: https://www.example.com","Send Email")2.После ввода формулы нажмите Enter, и ячейка станет кликабельной ссылкой. При нажатии на неё откроется приложение для работы с почтой по умолчанию с заранее заполненными полями «Кому», «Тема» и «Текст сообщения» в соответствии с содержимым вашей формулы. Вы можете дополнительно адаптировать формулу, используя ссылки на ячейки для создания динамических сообщений.
- Например, чтобы использовать значения из ячейки A2 для адресата и из B2 для ссылки:
=HYPERLINK("mailto:"&,A2&,"?subject=Hello&body=Please visit: "&,B2, "Email User")
Преимущества:Быстрая реализация, не требует программирования и поддерживает динамический контент. Удобно для работы с наборами данных или одновременного создания множества ссылок.
Недостатки:Не обеспечивает автоматическую отправку — пользователь должен вручную проверять и отправлять каждое письмо. Длина тела письма ограничена протоколом mailto; длинные или форматированные сообщения могут обрезаться или отображаться некорректно.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Связанные статьи
Автоматическая отправка письма на основе значения ячейки в Excel
Предположим, вы хотите отправлять письмо через Outlook определённому получателю, когда в Excel достигается заданное значение ячейки. Например, если значение ячейки D7 на листе превышает 200, то письмо создаётся автоматически. В этой статье описан метод на VBA, который поможет быстро решить эту задачу.
Отправка письма при нажатии кнопки в Excel
Предположим, вам нужно отправлять письмо через Outlook, нажав кнопку на листе Excel. Как это сделать? В данной статье подробно описан метод на VBA для реализации этой функции.
Отправка письма, если выполнено условие Срок выполнения в Excel
Предположим, что Срок выполнения в столбце C наступает через 7 дней (текущая дата — 13,09.2017), тогда необходимо отправить напоминание по электронной почте указанному получателю из столбца A с содержанием из столбца B. Как этого добиться? Метод, описанный в этой статье, поможет вам в этом.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек