Agent til at ændre signatur

Dim profile as NotesDocument
Set profile = maildb.GetProfileDocument( "CalendarProfile")
       
profile.EnableSignature = "1"
profile.Signature = "c:\dummy.html"
profile.Signature_2 = "c:\dummy.html"
profile.SignatureOption ="2"

profile.save true, true

Kunne ikke lige få maildb til at virke, hvordan er det nu man hiver den fra den enkelte user?
Virkede sådanher:

Sub Initialize
    Dim session As New NotesSession
    Dim db As notesdatabase
   
    Set db = session.currentdatabase
    Dim profile As NotesDocument
    Set profile = db.GetProfileDocument( "CalendarProfile")
   
    profile.EnableSignature = "1"
    profile.Signature = "d:\signature.htm"
    profile.Signature_2 = "d:\signature.htm"
    profile.SignatureOption ="2"
   
    profile.save True, True   
   
    Msgbox "TRUE"
   
   
   
End Sub

---
Og så smid lige et svar, ikke ;-)

eeejjj som du herrser:

Dim db As NotesDatabase
dim maildb as NotesDatabase
dim dummydoc as NotesDocument
Dim mailvar As Variant
Set db = session.currentdatabase
Set dummydoc = db.CreateDocument
mailvar = Evaluate( "@MailDbName", dummydoc)
Set maildb = session.GetDatabase( mailvar(0) , mailvar(1) )

Dette er kode som hver enkelt bruger skal udføre.
Hvis du vil lave en central agent, f.eks. i adressebogen, som sætter værdierne, så ligger værdierne for postfilen i felterne MailServer og MailFile.

glemte lige dem her :  :-)

10000 tak for hjælpen!