Domino 9 und frühere Versionen > ND6: Entwicklung

Frage zu IsActivatable und GetAgent

<< < (2/2)

Sabine:
@Tode,
ich hatte zunächst im Profildokument OutOfOffice|OutOf Office drinnen stehen gehabt, das war falsch! Habe nun nur noch OutOf Office drin stehen... super dankeschön. Ein Error-Handling komt noch rein  ;)


@Andreas,
genau, herzlichen Dank, da habe ich wohl was falsch in der Designer-Help verstanden...


Hier aber noch der fehlerfreie Code:


--- Code: ---Sub Initialize
'Dieser Agent liest alle Namen der (Mail-) Datenbanken aus dem
'im Profildokument angegebenen Server und Verzeichnis heraus

On Error Resume Next

Dim session As New NotesSession
Dim server As Variant
Dim verzeichnis As Variant
Dim agent As NotesAgent
Dim agentname As Variant
Dim stragentname As String

'Derzeitige Datenbank
Dim dbCurrent As NotesDatabase
Set dbCurrent = session.CurrentDatabase

'Profildokument
Dim pdoc As NotesDocument
Set pdoc = dbCurrent.GetProfileDocument("profil")
server = pdoc.GetItemValue( "Setup_Server_OoO" )
verzeichnis = pdoc.GetItemValue( "Setup_Verzeichnis_OoO" )
agentname = pdoc.GetItemValue( "Setup_AgentName" )

'Zuvor die alten Maildokumente löschen
Call Loeschen()

'Maildatenbanken
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim size As Double
Dim dbdir As New NotesDbDirectory(server(0))
Set db = dbdir.GetFirstDatabase(DATABASE)

While Not (db Is Nothing)
If Instr(db.FilePath, verzeichnis(0))  Then

If Not ( db.IsOpen ) Then
Call db.Open( "", "" )
End If

Set doc = dbCurrent.CreateDocument
stragentname$ = agentname(0)
Set agent = db.GetAgent(stragentname$)

If agent.IsEnabled  = True Then
doc.Merkmal = "OoO aktiv"
Else
doc.Merkmal = "OoO inaktiv"
End If

doc.Form = "Import"
doc.Maildatenbank = db.FileName
doc.Groesse = db.Size
Call doc.Save( True, True )
End If
Set db = dbdir.GetNextDatabase
Wend
End Sub
--- Ende Code ---

Gruß Sabine  :) :)

Navigation

[0] Themen-Index

[*] Vorherige Sete