View Single Post
  #7  
Old January 23rd 07, 06:26 PM posted to microsoft.public.outlook.program_vba
A+P
external usenet poster
 
Posts: 12
Default Outlook Signature

Hi Michael,

Thanks for wrdApp.Visible=true. That showed me when Word is running and
when it isn't.
Apparently the signature I'm trying to retrieve from Word only works if I
launch another Word session.
Even if there's a Word session opened, the following statement could not
retrieve the signature I called *PickUpMailsig:

wrdApp.Activedocument.AttachedTemplate.AutotextEnt ries("*PickUpMailSig").Value

So now my code looks like this with the GetObject statement commented out:
' Launch Word application
' Set wrdApp = GetObject(, "Word.Application")
If wrdApp Is Nothing Then
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add()
End If
returnValue =
wrdApp.Activedocument.AttachedTemplate.AutotextEnt ries("*PickUpMailSig").Value

Thanks again for your help.

Paul

"Michael Bauer [MVP - Outlook]" wrote in message
...

Do you catch the error caused by GetObject with 'On Error Resume Next'?
Then
for sure your code launches Word but the document isn't visible. you could
make it visible with wrdApp.Visible=true

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)


Am Mon, 22 Jan 2007 11:10:06 -0800 schrieb A+P:

Hi Michael,

I tried the following and Word still doesn't launch. Any other thoughts?

Set wrdApp = GetObject(, "Word.Application")
If wrdApp Is Nothing Then
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add()
End If

Paul

"Michael Bauer [MVP - Outlook]" wrote in message
.. .

First try GetObject. If that fails then Word isn't running and you can
launch it with CreateObject.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)


Am Sat, 20 Jan 2007 02:20:10 -0800 schrieb A+P:

Hi Michael,

I couldn't get Word to start using the following code from Outlook.
What
am
I missing?
Set wrdApp = GetObject(, "Word.Application")
Set wrdDoc = wrdApp.Documents.Add()

I also couldn't figure out how to retrieve the value in the
EmailOptions.EmailSignature entry called *PickUpMailSig" from within
Word.

So I created an AutoTextEntry so I can insert the signatu

returnValue =


wrdApp.Activedocument.AttachedTemplate.AutotextEnt ries("*PickUpMailSig").Value

But the above code only works when Word is already opened. But when

Word
is
not opened, it doesn't work.

Any thoughts?

Paul

"Michael Bauer [MVP - Outlook]" wrote in message
...


Outlook's object model doesn't provide you with any Signature objects.
But
you can use Word's model, please see EmailSignature object in Object
Browser
for its proeprties.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Keep your Outlook categories organized!
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am Fri, 12 Jan 2007 10:00:54 -0800 schrieb A+P:

I'm running Office Outlook 2003 Pro Sp2.

In the Microsoft Visual Basic Editor, how do I get a signature name
property
that's already been entered and saved under Outlook
Tools|Options|Mail
FormatSignatures?

Paul



Ads