Mail signature til 2007 og 2003

Lige lidt mere nyt, og hele koden

Jeg har også to problemer.

1. Når jeg køre et vbs script i stilen med dette, får jeg min .normal med i bunden. kan dette omgåes på nogen måde.

2. Min office 2003 siger at word ikke findes eller ikke er i det rigtige format.

----------------

'Mail Signatur
'Nova C - 97 51 44 51
'Brian Kudsk

On Error Resume Next

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

'Variabler fra ad laves
strFirstName = objUser.FirstName
strLastName = objUser.LastName
strTitle = objUser.Title
strPhone = objUser.telephoneNumber
strMobile = objUser.mobile
strFax = objuser.FaxNumber
strEmail = objUser.mail

Set objWord = CreateObject("Word.Application")
objWord.Visible = true
pause
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature

Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

'Dette kan give en fejl hvis du mangler oplysnigner se de næste 3 linier
'If strMobile = "" Then
'wscript.echo "Du mangler Mobil nr.!"
'End If

'Font på hilsen og navn
objSelection.Font.Name = "Verdana"
objSelection.Font.Size = "12"
objSelection.Font.Italic = False
objSelection.Font.Bold = False
objSelection.TypeText "Med venlig hilsen"
objSelection.TypeParagraph()

objSelection.Font.Size = "7,5"
objSelection.TypeText "Best regards" & Chr(11)
objSelection.Font.Size = "12"
If strFirstName <> "" Then
objSelection.TypeText strFirstName & " " & strLastName & Chr(11)
End If

Set objSelection = objDoc.Range()

objSignatureEntries.Add "Standart Signatur", objSelection
objSignatureObject.NewMessageSignature = "Standart Signatur"
'objSignatureObject.ReplyMessageSignature = "Standart Signatur"

objDoc.Saved = True
objWord.Quit