View Single Post
  #1  
Old December 7th 06, 04:58 PM posted to microsoft.public.outlook.program_vba
Ben
external usenet poster
 
Posts: 5
Default Setting Font Problem?

Hi,

I'm using the below script in a logon script to auto create users
signatures, on 99% of users it's working correctly, however on one, the
signature is being created using the 'Times New Roman' (TNR) font, rather
than the specified 'Arial' font. I've done some testing, and changed the
specified font in the script to something like 'Comic Sans' and it works
fine, even changing it to 'Arial Narrow' works fine, however, the moment I
set it back to 'Arial' this one users signature defaults to 'TNR'. I though
it might be a corrupt font, but I can highlight the signature after it's
created in outlook, and change the font to Arial and it works, outlook
actually defaults to 'Arial' when you create a new email, but the signature
is still in 'TNR'. I've also checked the 'Fonts' specified under the 'Mail
Format' tab, but that is set correctly to 'Arial', word's default font is
'Arial' I've checked the normal.dot and email.dot templates just in case
something was specifying 'TNR' in there, but all are 'Arial'.

Can anyone think of a reason why this strange behaviour would be happening?

Any help, much appreciated.

Ben

Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
blnWeOpenedWord = True
End If
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObjects = objWord.EmailOptions.EmailSignature

Set objSignatureEntries = objSignatureObjects.EmailSignatureEntries

objSelection.Font.Name = "Arial"
objSelection.Font.Size = "10"


Ads