A Microsoft Outlook email forum. Outlook Banter

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » Outlook Banter forum » Microsoft Outlook Email Newsgroups » Outlook and VBA
Site Map Home Register Authors List Search Today's Posts Mark Forums Read Web Partners

Setting Font Problem?



 
 
Thread Tools Search this Thread Display Modes
  #1  
Old December 7th 06, 05: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
 




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Font Problem Steve Cochran Outlook Express 9 November 23rd 06 09:51 PM
Font size problem Frank F Outlook Express 1 November 19th 06 06:46 PM
Font color problem Tim Outlook Express 1 September 4th 06 01:48 AM
Outlook font problem Bartly Outlook - Installation 4 June 16th 06 01:35 AM
How can I change font to default setting on calendar task bar? [email protected] Outlook - General Queries 0 January 9th 06 04:30 AM


All times are GMT +1. The time now is 07:05 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.Search Engine Friendly URLs by vBSEO 2.4.0
Copyright ©2004-2025 Outlook Banter.
The comments are property of their posters.