Как отправить электронное письмо из Excel с гиперссылкой в ​​теле письма?

Вы когда-нибудь пытались отправить электронное письмо с кодом VBA в Excel? И как добавить гиперссылки в основной текст письма при отправке письма? Эта статья поможет решить эту проблему.

Вставить гиперссылку в тело письма с кодом VBA

Вставить гиперссылку в тело письма с кодом VBA

Приведенный ниже код VBA может помочь отправить электронное письмо из Excel и вставить определенную гиперссылку в тело письма. Пожалуйста, сделайте следующее.

1. Запустите книгу, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft 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 линии.
• Заменить "Ваш e-mail"В . Для, .СС а также .BCC строки с фактическими адресами электронной почты, на которые вы будете отправлять электронную почту. Если вам не нужны строки CC и BCC, просто удалите их из всего кода или добавьте одну кавычку перед строками, например "CC =" Адрес электронной почты ".
• Заменить "Тема линии"В .Тема строку с темой вашего электронного письма.

3. нажмите F5 ключ для запуска кода. Затем создается электронное письмо с указанными полями и телом с гиперссылкой внутри, нажмите кнопку «Отправить», чтобы отправить его.

Разблокируйте магию Excel с помощью Kutools AI

• Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
• VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

Статьи по теме