title image


Smiley Problem mit automatischer Mailsignatur
Hallo,



ich habe wiedermal ein Problem mit der automatischen Signatur in Notes.



Die Signatur wird über einen Agenten (siehe unten) aus den N&A ausgelesen und in das Calendar Profile des jeweiligen Nutzers eingefügt.



Ich habe nun folgendes Problem:



Wenn ich unter Preferences nachsehe steht die Signatur richtig drin. Bei einem Teil der Mailboxen wird diese auch richtig eingefügt. Bei einem etwa genauso großen Teil steht die Signatur zwar drin wird jedoch nicht eingefügt.



Wenn ich die Signatureinstellung bei diesen Mailboxen per Hand mit OK bestätige, dann funtioniert die automatische Signatur wieder.



Woran kann dies liegen ?

Hat jemand eine Idee ?



Danke im voraus.



MfG

Matthias





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



Sub Initialize

Dim session As New NotesSession

Dim db As NotesDatabase

Dim profile As NotesDocument

Dim namesdb As NotesDatabase

Dim namesview As Notesview

Dim namesdoc As NotesDocument

Dim Inhalt As String

Dim agent As NotesAgent

Dim server As String

Dim owner As String

Dim ownername As NotesName

Dim success As Variant



Dim tmp_line As String

Dim tmp_name As String

Dim tmp_abteilung As String

Dim tmp_firma As String

Dim tmp_tel As String

Dim tmp_fax As String

Dim tmp_email As String

Dim tmp_web As String



Set db = session.CurrentDatabase

Set agent = session.CurrentAgent



server = agent.ServerName



Set profile = db.GetProfileDocument("CalendarProfile")



Set ownername = New NotesName(profile.owner(0))

owner = ownername.common



Set namesdb = New NotesDatabase(server, "names.nsf")

Set namesview = namesdb.GetView("look1")

Set namesdoc = namesview.GetDocumentByKey(owner, True)



Inhalt = namesdoc.Columnvalues(1)



REM Aufbau von Inhalt: Abteilung~Kurzname~Telefon~Fax~(Firma)



tmp_firma = Strrightback(Inhalt, "~")



...



Hier werden die tmp Felder gefüllt ...



...



profile.DefaultLogo = "StdNotesLtr16"



REM Unter StdNotesLtr16 ist das Firmenlogo abgelegt



profile.EnableSignature = "1"

profile.SignatureOption = "1"

profile.Signature_1 = Chr$(13) + Chr$(13) +Chr$(13) + tmp_line + tmp_name + tmp_abteilung + Chr$(13) + tmp_firma + Chr$(13) + tmp_tel + tmp_fax + tmp_email + tmp_web + tmp_line



success = profile.ComputeWithForm (False, False)

Call profile.save (False,True,True)



End Sub



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

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: