Inserting an Email Address with hyperlink into a Mail Merge Letter

macropod · #2 10-14-2013, 10:15 PM

You could insert the email addresses as plain text, then use a macro like the following to convert them (and any web addresses) to clickable hyperlinks post-merge.

Code:

Sub MakeLinks()
Application.ScreenUpdating = False
With ActiveDocument
  With .Range
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "<[0-9A-ÿ.\-]{1,}\@[0-9A-ÿ\-.]{1,}"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchWildcards = True
      .Execute
    End With
    Do While .Find.Found
      .Duplicate.AutoFormat
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
  With .Range
    With .Find
      .Text = "http://[! ]{1,}"
      .Execute
    End With
    Do While .Find.Found
      .Duplicate.AutoFormat
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
End With
Application.ScreenUpdating = True
End Sub

Depending on your system's regional settings, you may need to replace the three {,} expressions in the code with {;}.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Urgent Supprt Need to Create Mail Merge letter	risnasmhd	Mail Merge	1	09-29-2013 08:11 PM
Mail Merge Many URLs in one email by common email address	instantaphex	Mail Merge	3	04-29-2013 05:46 PM
Split multi-page mail merge document, then name file from letter info.	BriMan83	Mail Merge	1	04-24-2013 11:35 PM
Inserting pages at the end of a mail merge	morten_lysgaard	Mail Merge	3	07-25-2011 11:19 PM
Inserting a Hyperlink and Rich Text in Groupwise Email	cksm4	Word VBA	0	03-07-2011 06:33 PM