하이퍼링크 내에서 편지 병합 필드 사용

메서드 2: 하이퍼링크 텍스트를 동적으로 수정하는 매크로 만들기

Microsoft는 명시되거나 묵시적 보증 없이 설명에 대한 프로그래밍 예제만 제공합니다. 여기에는 특정 목적에 대한 상품성 또는 적합성에 대한 묵시적 보증이 포함되지만 이에 국한되지는 않습니다. 이 문서에서는 설명되는 프로그래밍 언어와 프로시저를 만들고 디버그하는 데 사용되는 도구에 익숙하다고 가정합니다.

Microsoft 지원 엔지니어는 특정 프로시저의 기능을 설명하는 데 도움을 줄 수 있지만 특정 요구 사항을 충족하기 위해 추가된 기능 또는 생성 프로시저를 제공하도록 이러한 예제를 수정하지는 않습니다. 병합된 전자 메일 메시지에서 하이퍼링크 텍스트를 동적으로 수정하려면 매크로를 만듭니다.

이러한 단계를 수행하면 하이퍼링크에 데이터 원본의 URL을 기반으로 하는 텍스트가 표시됩니다. 이렇게 하려면 다음과 같이 하십시오.

1. "메서드 1: 편지 병합 필드 주위에 하이퍼링크 필드 추가"의 단계를 따릅니다.

2. 도구 메뉴에서 매크로를 가리킨 다음 Visual Basic Editor를 선택합니다.

3. F7 키를 누릅니다. 코드 창이 나타납니다.

4. 다음 코드를 복사하여 코드 창에 붙여넣습니다.

   Sub MergeToEmail()
   
       Dim bDone As Boolean
       bDone = False
   
       Do While bDone = False
   
           ActiveDocument.Fields.Update
   
           For Each oHyperlink In ActiveDocument.Hyperlinks
               oHyperlink.TextToDisplay = oHyperlink.Address
               oHyperlink.Range.Font.Color = wdColorBlue
               oHyperlink.Range.Font.Underline = wdUnderlineSingle
               oHyperlink.Range.Font.UnderlineColor = wdColorBlue
           Next oHyperlink
   
           With ActiveDocument.MailMerge
               .Destination = wdSendToEmail
               .SuppressBlankLines = True
               ' You can modify the text "Enter Your Subject Here" or 
               ' remove the following line if you do not want a subject
               ActiveDocument.MailMerge.MailSubject = "Enter Your Subject Here"
               With .DataSource
                   .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
                   .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
               End With
               .Execute Pause:=False
           End With
   
           If ActiveDocument.MailMerge.DataSource.ActiveRecord = _
               ActiveDocument.MailMerge.DataSource.RecordCount Then
               bDone = True
           End If
           ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
       Loop
   End Sub
   
   

5. 도구 메뉴에서 매크로를 가리킨 다음 매크로를 선택합니다.

6. MergeToEmail 을 선택한 다음 실행을 선택합니다.