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

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

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

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

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

1. Откройте вашу рабочую книгу, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль, затем скопируйте приведенный ниже код 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.
• Замените «Адрес электронной почты» в строках .To, .CC и .BCC на фактические адреса электронной почты, на которые вы хотите отправить письмо. Если вам не нужны строки CC и BCC, просто удалите их из всего кода или добавьте одинарную кавычку перед этими строками, например, 'CC =”Адрес электронной почты”.
• Замените «Тема письма» в строке .Subject на свою собственную тему письма.

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

Раскройте магию Excel с Kutools AI

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

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

Связанные статьи