Formatting of Hyperlinks word/outlook

[watkins77]

I am trying to add a logo and a formatted hyperlink on one line and the same on the next line.
Image1 Hyperlink1
Image2 Hyperlink2

My code below only gives the output of (all on one line)
Image1 Image2 Hyperlink1

When i remove the "Set objSelection = objDoc.Range(objSelection.End-(Len("EMail@EMail.com")+1),objSelection.End)" line the document format is correct but then i lose the hyperlink font changes. :banghead:

Any help would be very much appreciated.

'------------------------
lync = "C:\lync.png"
outlooklogo = "C:\outlooklogo.png"
'------------------------
Set outlook = CreateObject("outlook.application")
Set objWord = CreateObject("Word.Application") 
Set objDoc = objWord.Documents.Add() 
Set objSelection = objWord.Selection 
Set objEmailOptions = objWord.EmailOptions 
Set objSignatureObject = objEmailOptions.EmailSignature 
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries 
'.... Create Document and Outlook objects
Set objRange = objSelection.Range
'******* Add logo and formatted email hyperlink on same line
Set objPic1 = objSelection.InlineShapes.AddPicture(outlooklogo) ' Add Image  
objSelection.Hyperlinks.Add objSelection.Range, "mailto: EMail@EMail.com", , , "Email@EMail.com", "_blank" ' Add HyperLink Email on SAME line as image above
Set objSelection = objDoc.Range(objSelection.End-(Len("EMail@EMail.com")+1),objSelection.End) ' Select range of email hyperlink           
objSelection.Font.Name = "Franklin Gothic Book" ' Add Font Type Selected email hyperlink
objSelection.Font.Size = 10
objSelection.Font.Bold = True
objSelection.Font.Underline = False
objSelection.Font.Color = RGB (0,0,255)
objSelection.TypeText Chr(11) ' Line break for next logo
'******* Add logo and formatted tel. hyperlink on same line
Set objPic2 = objSelection.InlineShapes.AddPicture(lync) ' Add Image
objSelection.Hyperlinks.Add objSelection.Range, "tlf:PhoneNumber", , , "PhoneNumber", "_blank" ' Add HyperLink Email on SAME line as image above
Set objSelection = objDoc.Range(objSelection.End-(Len(EMail)+1),objSelection.End) ' Select range of email hyperlink
objSelection.Font.Name = "Franklin Gothic Book" ' Add Font Type Selected PhoneNumber hyperlink
objSelection.Font.Size = 10
objSelection.Font.Bold = False
objSelection.Font.Underline = False
objSelection.Font.Color = RGB (0,255,0)

Set objSelection = objDoc.Range() 
objSignatureEntries.Add "HOSDEFAULT", objSelection 
objSignatureObject.NewMessageSignature = "HOSDEFAULT" 
objDoc.Saved = True 
objWord.Quit

[watkins77]

Each selection must be reinitiated using the following

set objSelection = objWord.Selection
'-------------------------------------------
'.... Create Document and Outlook objects
Set objRange = objSelection.Range
'******* Add logo and formatted email hyperlink on same line
Set objPic1 = objSelection.InlineShapes.AddPicture(outlooklogo) ' Add Image  
objSelection.Hyperlinks.Add objSelection.Range, "mailto: EMail@EMail.com", , , "Email@EMail.com", "_blank" ' Add HyperLink Email on SAME line as image above
Set objSelection = objDoc.Range(objSelection.End-(Len("EMail@EMail.com")+1),objSelection.End) ' Select range of email hyperlink           
objSelection.Font.Name = "Franklin Gothic Book" ' Add Font Type Selected email hyperlink
objSelection.Font.Size = 10
objSelection.Font.Bold = True
objSelection.Font.Underline = False
objSelection.Font.Color = RGB (0,0,255)
set objSelection = objWord.Selection ' Reinitiate Selection 
objSelection.TypeText Chr(11) ' Line break for next logo
'******* Add logo and formatted tel. hyperlink on same line
Set objPic2 = objSelection.InlineShapes.AddPicture(lync) ' Add Image
objSelection.Hyperlinks.Add objSelection.Range, "tlf:PhoneNumber", , , "PhoneNumber", "_blank" ' Add HyperLink Email on SAME line as image above
Set objSelection = objDoc.Range(objSelection.End-(Len(EMail)+1),objSelection.End) ' Select range of email hyperlink
objSelection.Font.Name = "Franklin Gothic Book"' Add Font Type Selected PhoneNumber hyperlink
objSelection.Font.Size = 10
objSelection.Font.Bold = False
objSelection.Font.Underline = False
objSelection.Font.Color = RGB (0,255,0)
set objSelection = objWord.Selection ' Reinitiate Selection 
'-------------------------------------------