Excel에서 이메일 본문에 하이퍼링크를 포함하여 이메일을 보내는 방법은 무엇입니까?

Excel에서 VBA 코드를 사용하여 이메일을 보내본 적이 있습니까? 그리고 이메일을 보낼 때 본문 텍스트에 하이퍼링크를 추가하려면 어떻게 해야 합니까? 이 기사는 이 문제를 해결하는 데 도움이 될 것입니다.

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 키를 누릅니다. 그런 다음 하이퍼링크가 포함된 필드와 본문으로 이메일이 생성됩니다. 보내기 버튼을 클릭하여 이메일을 보냅니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

관련 기사