Outlook signature problems

Question

We are using a vbscript to assign a Outlook 2010 signature to the users that are logging in the network.
A few things are a problem. First the logo is different when we open it in a editor it looks sharp etc. In Outlook it looks less sharp and smaller or larger. I have read that this is because Outlook is making a 96 dpi image of it. So i saved the jpg as a
96 dpi image but then it becomes 500 kb so thats to large.
The second problem i have is the color of the text in the script. Whatever i use for color the color is not much changing in Outlook. It looks much lighter then the color code says. Below is a part of the script. Is there something not right?
For example i have made the color www.company.com magenta but it stays the same in Outlook after restarting the system twice. It is also not underlined anymore so it is not a link. Something in the code must be wrong....
Between the lines the fonts are made arial 10 pt and a kind of darkgrey, but in Outlook it isgrey, also when you print it..
Outlook seems to do things on his own or is ignoring the script language in this case?
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strVoornaam = objUser.FirstName
strAchternaam = objUser.LastName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strFax = objUser.FacsimileTelephoneNumber
strMobile = objUser.Mobile
strLand = objUser.st
strGroet = objUser.StreetAddress
strDescription = objUser.Description
strOffice = objUser.PhysicalDeliveryOfficeName
strMail = objUser.Mail
strWeb = objUser.wWWHomePage
strPObox = objUser.postOfficeBox
strCity = objUser.l
strZip = objUser.postalcode
strHome = objUser.HomePhone
strIP = objUser.ipPhone
strNotes = objUser.info
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.Style = "No Spacing"
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "10"
objSelection.Font.Color = RGB(47,79,79)
objSelection.Font.Bold = True
objSelection.TypeText " with kind regards," & Chr(11)
'If strGroet = not "" then objSelection.TypeText strGroet
'objSelection.TypeText ","
ObjSelection.TypeText Chr(11)
objSelection.TypeText strForname & " "
objselection.TypeText strBack & Chr(11)
objSelection.TypeText strTitle & " "
objSelection.TypeText strNotes & Chr(11)
'objSelection.TypeText Chr(11)
'ObjSelection.TypeText Chr(11)
Set objShape = objSelection.InlineShapes.AddPicture("\\path\logo.jpg") & Chr(11)
ObjSelection.TypeText Chr(11)
objSelection.TypeText "Internet: "
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "10"
objSelection.Font.Color = RGB(255,0,255)
objSelection.Font.Italic = False
objSelection.Font.Bold = False
If strWeb = "" Then
objSelection.TypeText "http://www.company.com" & Chr(11)
'objSelection.TypeText Chr(11)
else objSelection.TypeText strWeb & Chr(11)
End If
objSelection.Font.Name = "Arial"
objSelection.Font.Size = "9"
objSelection.Font.Color = RGB(47,79,79)
objSelection.Font.Italic = False
objSelection.Font.Bold = True
Can i do something do do this the right way?
freddie

Answer 1

Hi,
In order to resolve your problem more efficiently, I recommend you ask in the Office Development forum which is staffed by more experts specializing in this kind of problems. You can get better help there.
http://social.msdn.microsoft.com/Forums/office/en-US/home?category=officedev
Thanks for understanding.
Best regards,
Belinda Ma
TechNet Community Support