Hallo Entwickler,
ich möchte bei allen Usern im lokalen Adressbuch in allen Arbeitsumgebungen den Paramter "Format für Nachrichten an Internet-Adressen:" auf MIME umstellen. In der Lotus Sandbox habe ich ein Script dazu gefunden. Leider wird im Script nicht abgefragt ob die Arbeitsumgebung schon auf MIME gestellt ist. Kann mir jemand einen Tip geben wie ich das Feld abfragen kann, damit ich das speichern überspringen kann? (siehe Frage im script)
Dim session As New notessession
' For The Current User in The Current Session, Get All The NABs
Forall books In session.addressbooks
'Check If The Current NAB is Private or Public
'If The NAB Is Private, Than It Should Be Your Personal NAB
If books.isprivateaddressbook Then
'Verify if The NAB is Open, If Not, Open it
If Not(Books.isopen) Then
Call Books.open("",books.filename)
'Now Get All The Documents in The Location View
Set view = books.getview("Locations")
Set doc = view.getfirstdocument
While Not (doc Is Nothing)
' Get The Field and Modify it
' hier meine Frage: wie kann ich auf z.B. MessageFormat = 0 prüfen, damit nicht gespeichert wird?
Call doc.replaceitemvalue ("MessageFormat","1")
Call doc.save (True,True)
Set doc = view.getnextdocument(doc)
Wend
End If
End If
End Forall
Ich möchte den Code dann im Postopen in den MailDB's einbauen
Danke für Tipps :-)
Gruß
Bernd
