Signature Wizard

HCL Domino Domino Forum
1

I’m trying to configure a default signature for everyone and was using the Signature Block Wizard from Rocky Oliver. I’m in a mixed environment with R7 and 8.5 clients and with the tool no problem with the R7 to run the script but with 8.5 the script runs but does not create the signature.

Would someone know if it’s possible to run a script in 8.5 to make the html signature and save it in the mail file as from what I can understand it’s the new way of doing it, and if yes, how :slight_smile:

Thanks

2

Subject: Email Signature

Yes its possible. Just got mine fixed. The part that made it work was erasing the old signature …

Sub update_email_signature

'----------------------------------------------------------------

'Open users mail database

Set Maildb = New NotesDatabase( "", "" )

Call Maildb.OpenMail

If Not Maildb.IsOpen Then

	Messagebox"Could not open mail database.", 48, "Error"

	Exit Sub

End If



'-----------------------------------------------------------------



Print "Sig file creation complete - enabling sig file for mail..."

Print "Getting handle to Mail Preferences..."



Set mailprof = maildb.GetProfileDocument("CalendarProfile")





'// Remove any existing signature field from CalendarProfile	

Dim itmSig As NotesItem

Set itmSig = mailprof.GetFirstItem("Signature_Rich")

If Not itmSig Is Nothing Then mailprof.RemoveItem("Signature_Rich")



Call mailprof.ReplaceItemValue("EnableSignature", "1")

Call mailprof.ReplaceItemValue("SignatureOption", "2")

Call mailprof.ReplaceItemValue("Signature_1", "")

Call mailprof.ReplaceItemValue("Signature_2", sigpath)

Call mailprof.ReplaceItemValue("Signature", sigpath)

Call mailprof.ComputeWithForm(True, False)

Call mailprof.Save(True, False)



Print "Mail signature enabled - enjoy!"



Messagebox "Your new email Signature is enabled - enjoy!",0+64 , " Email Signature"

End Sub