How to retrive Outlook default signature

Submitted by Sergey on May 11, 2011 - 13:08 UTC
topic: 
code
vfp
automation
outlook
foxpro
sergey

The Outlook signatures are stored in the %APPDATA%\Microsoft\Signatures\ folder in text, RTF and HTML formats.
In case of multiple signatures, the default can be found through Word automation. Tested in Outlook 2003 and later.

This is sample code. Add error handling and adjust to your requirements as necessary.





 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25




* The folder name where signatures are stored depends on the Windows language version
* English
lcFilePath = GETENV("APPDATA") + "\Microsoft\Signatures\"
* Spanish 
*lcFilePath = GETENV("APPDATA") + "\Microsoft\Firmas\"

loWord = CREATEOBJECT("Word.Application")
loEmOpt = loWord.EmailOptions
loOlSig = loEmOpt.EmailSignature
lcSigFileName = ALLTRIM(loOlSig.NewMessageSignature )
* Text signature
lcPathAndFile = lcFilePath + lcSigFileName + ".txt"
IF FILE(lcPathAndFile )
	lcTextIn = FILETOSTR(lcPathAndFile  )
	
	IF  LEFT( lcTextIn ,2) = 0hFFFE
		* Remove Unicode header
		lcTextIn = SUBSTR(lcTextIn,3)		
	ENDIF	
	
	lcFileContent = STRCONV(lcTextIn ,6)	
	? lcFileContent 
ENDIF

Comments

Submitted by Anonymous on May 13, 2011 - 08:10 UTC 




 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25




* FIX for Spanish version of Windows
lcFilePath = GETENV("APPDATA") + "\Microsoft\Signatures\"
loWord = CREATEOBJECT("Word.Application")
loEmOpt = loWord.EmailOptions
loOlSig = loEmOpt.EmailSignature
lcSigFileName = ALLTRIM(loOlSig.NewMessageSignature )
* Text signature
lcPathAndFile = lcFilePath + lcSigFileName + ".txt"
? lcPathAndFile
IF NOT FILE(lcPathAndFile )
	lcPathAndFile = Strtran(lcPathAndFile,"\Signatures\","\Firmas\")
	? lcPathAndFile
EndIf 	
IF FILE(lcPathAndFile )
	lcTextIn = FILETOSTR(lcPathAndFile  )
 
	IF  LEFT( lcTextIn ,2) = 0hFFFE
		* Remove Unicode header
		lcTextIn = SUBSTR(lcTextIn,3)		
	ENDIF	
 
	lcFileContent = STRCONV(lcTextIn ,6)	
	? lcFileContent 
EndIf

Submitted by Sergey on May 16, 2011 - 13:15 UTC
Thanks, I adjusted the code per your suggestion.

Submitted by John Azevedo on April 2, 2013 - 17:30 UTC
Hi,

I'm failry new to scripting. I'm trying to convert this to powershell.

I have used the following script but that does not work, any help is appreciated.

$MSWord = New-Object -com word.application
$EmailOptions = $MSWord.EmailOptions
$EmailSignature = $EmailOptions.EmailSignature
$EmailSignatureEntries = $EmailSignature.EmailSignatureEntries
$display = $EmailSignature.NewMessageSignature
Write-Host "Signature name is $display"
$MSWord.Quit()

Thanks,

John

Submitted by Anonymous on December 30, 2013 - 13:25 UTC
any script in POWERSHELL ?