Ich hatte so etwas schon mal angefangen, allerdings bin ich nicht dahinter gekommen, wie ich die $FilterFormula_x auslese.
Hier mal der Code und das Mail, was dabei generiert wird :
Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim text As String
Dim itemname As String
Dim itemvalue As Variant
Set session = New NotesSession
Set db = New NotesDatabase("SERVER", "mail\xyz.nsf")
Set doc = db.getprofiledocument("CalendarProfile")
text = "Felder und Werte des CalendarProfiles : " & Chr$(13) & Chr$(13)
If doc Is Nothing Then
Msgbox "Kein CalendarProfile vorhanden"
Else
Forall item In doc.Items
itemname = item.Name
If item.Type = RICHTEXT Then
text = text & itemname & Chr$(13) & "RTF-Item, keine Werte _
extrahiert" & Chr$(13) & Chr$(13)
Else
If item.Type = FORMULA Then
itemvalue = item.abstract(100, False, False)
text = text & Cstr(itemname) & Chr$(13) & Cstr(itemvalue)_
& Chr$(13) & Chr$(13)
Else
If Not Isnull(item.Values) Then
itemvalue = item.Values
text = text & Cstr(itemname) & Chr$(13) &_
Cstr(itemvalue(0)) & Chr$(13) & Chr$(13)
End If
End If
End If
End Forall
Dim d As notesdocument
Set d = New notesdocument(db)
d.form = "Memo"
d.Subject = "CalendarProfile der Mail-DB : " & Cstr(db.Title)
d.Body = text
d.SendTo = "Mich"
Call d.send(False)
End If
Dabei kommt dann z.B. für mein Kalenderprofil folgendes bei rum (ich habe 6 Regeln aktiv, ist allerdings noch ne 5er Mail-DB) :
Felder und Werte des CalendarProfiles :
$DialogMode
0
$Name
$profile_015calendarprofile_
$PrevBusyName
CN=Mich/OU=OU/O=O/C=DE
WDEFAULTMAILOPT
2
WENABLETRASHICON
1
WCALGRIDTYPE
3
WENABLENABS
0
WENABLEFAVORITES
0
WISFOLDER1
1
WISFOLDER2
1
WISFOLDER3
1
WISFOLDER4
1
WISFOLDER5
1
WISFOLDER6
1
NotesNab1
names.nsf
ConflictAnniv
AUTORELOAD
$FilterFormula_0
$FilterFormulaCount
6
$FilterFormula_1
$FilterFormula_3
$FilterFormula_4
MeetingsPeople
AutoProcessMeetings
0
AutoSetAlarms
CalEntryHide
Form
CalendarProfile
ExcludeFromView
D
Subject
Profile document - do not delete
PROTECTFROMARCHIVE
1
$FilterFormula_5
tmpAlarmSounds
att
$Times1
11.07.2004 09:00:00
$Times2
12.07.2004 08:00:00
$Times3
13.07.2004 08:00:00
$Times4
14.07.2004 08:00:00
$Times5
15.07.2004 08:00:00
$Times6
16.07.2004 08:00:00
$Times7
17.07.2004 09:00:00
AltOwner
CN=Mich/OU=OU/O=O/C=DE
$LangOwner
Owner
CN=Mich/OU=OU/O=O/C=DE
SpellCheck
FormatReplies
OffSetChar
1
DefaultLogo
StdNotesLtr15
EnableSignature
SignatureOption
1
Signature_2
Signature_1
Bla Bla Bla
Signature
Bla Bla Bla
CalEntryType
0
DefaultDuration
60
AutoAnniversaryRepeat
10
ConflictMeeting
1
ConflictOfficeHours
ConflictEvent
ConflictAnniversary
UserCategories
Jahr 2000
Sunday
$TimesDisp1
09:00:00
Monday
2
$TimesDisp2
08:00:00
Tuesday
3
$TimesDisp3
08:00:00
Wednesday
4
$TimesDisp4
08:00:00
Thursday
5
$TimesDisp5
08:00:00
Friday
6
$TimesDisp6
08:00:00
Saturday
$TimesDisp7
09:00:00
AllowBusyAccess
EnableAlarms
1
SetAlarmAppointment
1
AppointmentLead
30
SetAlarmReminder
ReminderLead
0
SetAlarmEvent
EventLead
1
SetAlarmAnniversary
AnniversaryLead
1
SetAlarmTask
TaskLead
1
AlarmSound
chimes
CalendarTimeSlotStart
07:00:00
CalendarTimeSlotEnd
19:00:00
CalendarTimeSlotDuration
60
ExcludeFromAll
ExcludeFromSent
1
$WorkDays
2
AutoProcessType
D
AutoprocessUserList
AutoProcessForwardTo
AutoRemoveFromInbox
PreventRepliesFromInbox
0
TaskFollow
ReadMail
CN=Kollega/OU=OU/O=O/C=DE
WriteMail
EditMail
CN=XTNDConnect/OU=OU/O=O/C=DE
DeleteMail
CN=XTNDConnect/OU=OU/O=O/C=DE
OtherUsers
OtherDomainServers; SERVER
PublicRead
0
ReadCalendar
CN=Kollega/OU=OU/O=O/C=DE
PublicWrite
0
WriteCalendar
CN=XTNDConnect/OU=OU/O=O/C=DE
$BusyName
CN=Mich/OU=OU/O=O/C=DE
$AvailableDays
2
$PublicAccess
1
$CSVersion
2
$UpdatedBy
CN=Mich/OU=OU/O=O/C=DE
$Revisions
08.09.2003 17:48:08
$NoPurge