Outlook Signature

[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
Format>Signatures?

Paul

 

[Michael Bauer [MVP - Outlook]]

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?productid=300120654&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

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

 

[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 signature:

returnValue =
wrdApp.Activedocument.AttachedTemplate.AutotextEntries("*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]]

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?productid=300120654&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)


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

 

[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]]

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?productid=300120654&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)


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

 

[A+P]

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.AutotextEntries("*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.AutotextEntries("*PickUpMailSig").Value

Thanks again for your help.

Paul