Hallo zusammen,
ich habe eine Frage:
Ich habe mir ein Skript asu dem Netz soweit zusammengebastelt, womit ich via einer Schaltfläche in Excel einen Termin in Notes setzen kann. Das funktioniert auch soweit, allerdings noch nicht so wie ich es möchte...
Hier der Code:
Private Sub Reminder_Click()
Dim VornameX As String, NachnameX As String
Dim WDatumX As Variant, SubjectX As Variant
Dim LocationX As Variant
Dim MailadressX As Variant
WDatumX = Worksheets("HR & IT-Prozess").Range("B68").Value
SubjectX = "Eintritt " & Worksheets("HR & IT-Prozess").Range("B56").Value & " " & Worksheets("HR & IT-Prozess").Range("B57").Value
LocationX = Worksheets("HR & IT-Prozess").Range("B7").Value
MailadressX = Worksheets("E-Mails").Range("E33").Value
'Set up the objects required for Automation into lotus notes
Dim Maildb As Object 'The mail database
Dim MailDbName As String 'The persons notes mail database name
Dim CalenDoc As Object 'The calendar entry itself
Dim WorkSpace As Object
Dim Subject As String 'The Headline
Dim Appdate As String 'The calendardate
Set WorkSpace = CreateObject("Notes.NOTESUIWORKSPACE")
Set CalenDoc = WorkSpace.COMPOSEDOCUMENT("", "", "Appointment")
CalenDoc.FIELDSETTEXT "AppointmentType", "3"
'AppointmentType 1 = Jahrestag
'AppointmentType 2 = Ganztägige Veranstaltung
'AppointmentType 3 = Besprechung
'AppointmentType 4 = Erinnerung
CalenDoc.FIELDSETTEXT "StartDate", CStr(Format(WDatumX, "dd/mm/yy"))
CalenDoc.FIELDSETTEXT "StartTime", CStr("09:30:00")
CalenDoc.FIELDSETTEXT "EndDate", CStr(Format(WDatumX, "dd/mm/yy"))
CalenDoc.FIELDSETTEXT "EndTime", CStr("09:30:00")
'CalenDoc.FIELDSETTEXT "Duration", CStr(Duration)
CalenDoc.FIELDSETTEXT "Location", LocationX
'CalenDoc.FIELDSETTEXT "SendTo", MailadressX
CalenDoc.FIELDSETTEXT "Subject", SubjectX
CalenDoc.FIELDSETTEXT "Body", "" 'SubjectX
CalenDoc.FIELDSETTEXT "Categories", ""
'CalenDoc.Save False, False, False
'CalenDoc.Close
Set Maildb = Nothing
Set CalenDoc = Nothing
Set WorkSpace = Nothing
MsgBox "Der Wiedervorlagetermin ist in Notes übertragen worden"
End Sub
Wenn ich nun die Schaltfläche in Excel betätige, wird leider nur ein Appointment erstellt, aber kein Meeting, obwohl ich diese per AppointmentType definiert habe...
Was muss man machen, damit auch ein Meeting herauskommt?
Zusatzfrage: Welche Befehlszeile benötigt man, um die Funktion "Notify me" zu aktivieren und die Erinnerung auf eine Woche vorher zu stellen?
Vielen Dank im Voraus für eure großartige Hilfe.
Gruß,
hexbsc