mangler signatur ved afsendelse af e-mail ol2000 ol2002

1. Du kan vælge, om der skal bruges signatur ved svar eller ej i indstillingerne.

2. Hvis afsender ikke sender html-formateret emails , vil dit svar heller ikke være det. Kun når du skriver en ny mail, vil den være html-formateret.

Hvorfor afviser du? Jeg bruger selv Outlook 2000, og sådan er det med Outlook.

Til ufc. De indstillinger du har beskrivet er jeg klar over og har gennemgået dem i min Outlook.
Når du sender en fil som jeg har beskrevet i spørgsmålet, får du så en signatur med?

Du gav ikke svar på mit spørgsmål.

Ok, det havde jeg misset. jeg synes bare, det er rart at få at vide, hvorfor et svar afvises, når der ikke er nogen accepterere svar. Du må nok hellere afvise det andet også.

selvfølgelig :-)

fandt svar på:
http://support.microsoft.com/support/kb/articles/Q223/8/84.ASP?LN=EN-US&SD=gn&FR=0&qry=signature&rnk=29&src=DHCS_MSPSS_gn_SRCH&SPR=OUT2K

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