Ok. Seems like Word/Outlook 2K3 and 2K7 do not like the same things. Below is my working code for 2K3 and 2K7. We have a mixed environment so we have a need for two flavors of code. Lots of credits go to Arend who posted the working code for 2K7.

 Code:
;Get Outlook installation path.
$olpath = ReadValue("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE", "Path")
;Get outlook version.
$olversion = GetFileVersion($olpath + "outlook.exe", "ProductVersion")

Select
	;Set social network thumbnails for outlook 2K3.
	;Add a space to adjust for differences in spacing between 2K3 and 2K7.
	Case Left($olversion, 2) = "11"
		;Add two empty lines.
		$objSelection.TypeText(Chr(11))
		$objSelection.TypeText(Chr(11))
		;Add Youtube thumbnail.
		$objShape = $objSelection.InlineShapes.AddPicture(@LDRIVE + "\tools\Youtube.gif")
		;Add Youtube link to thumbnail.
		$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl1.com")
		;Add a space to adjust for differences in spacing between 2K3 and 2K7.		
		$objSelection.TypeText(" ")
		;Add Twitter thumbnail.		
		$objShape = $objSelection.InlineShapes.AddPicture(@LDRIVE +  "\tools\Twitter.gif")
		;Add Twitter link to thumbnail.
		$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl2.com")
		;Add a space to adjust for differences in spacing between 2K3 and 2K7.		
		$objSelection.TypeText(" " )
		;Add Blogspot thumbnail.		
		$objShape = $objSelection.InlineShapes.AddPicture(@LDRIVE +  "\tools\Blogspot.gif")
		;Add Blogspot link to thumbnail.
		$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl3.com")
		;Add a space to adjust for differences in spacing between 2K3 and 2K7.		
		$objSelection.TypeText(" " )
		;Add Facebook thumbnail.
		$objShape = $objSelection.InlineShapes.AddPicture(@LDRIVE +  "\tools\Facebook.gif")
		;Add Facebook link to thumbnail.
		$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl4.com")
	Case Left($olversion, 2) = "12"
		;Set social network thumbnails for outlook 2K7.
		;Add two empty lines.
		$objSelection.TypeText(Chr(11))		
		$objSelection.TypeText(Chr(11))
		;Add Youtube thumbnail.
		$objShape = $objSelection.InlineShapes.AddPicture(@LDRIVE +  "\tools\Youtube.gif")
		;Add Youtube link to thumbnail.
		$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl1.com",,, "Visit our Youtube chanel")
		;Add Twitter thumbnail.
		$objShape = $objSelection.InlineShapes.AddPicture(@LDRIVE +  "\tools\Twitter.gif")
		;Add Twitter link to thumbnail.
		$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl2.com",,, "Visit our Twitter pages")
		;Add Blogspot thumbnail.
		$objShape = $objSelection.InlineShapes.AddPicture(@LDRIVE +  "\tools\BlogSpot.gif")
		;Add Blogspot link to thumbnail.
		$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl3.com/",,, "Visit our BlogSPot pages")
		;Add Facebook thumbnail.
		$objShape = $objSelection.InlineShapes.AddPicture(@LDRIVE +  "\tools\Facebook.gif")
		;Add Facebook link to thumbnail.
		$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl4.com",,, "Visit our Facebook pages")
	Case 1
		;Unsupported Office version installed.	
EndSelect
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.