Hallo Experten in LN,
ich bin neu im Bereich LN und habe folgendes Vorhaben. Ich habe einen Abt. Kalender in Excel VBA geschrieben. Dort gibt es diverse Eintragungsmöglichkeiten. Eine ist "I" für Innendienst. Dieser Innendienst ist immer von 08:00 bis 16:00. Dieser Kalender wird in aller Regel monatlich geführt. Nun möchte ich, dass auf Knopfdruck der/die eingetragenen Termine in den LN Kalender des Benutzers eingetragen werden soll. Idealerweise, werden die versch. Datumseinträge in den Bereich "Wiederholung" in LN übernommen.
Dann könnte ich mir vorstellen, dass auf Knopfdruck ein Termin eingestellt wird, der sich dann unter "Wiederholen" die Datumseinträge erhält. Ich komme mit VBA ziemlich gut zurecht, nur wie sag ich dass nun LotusNotes?
Einen alten Code habe ich im Internet gefunden jedoch komme ich damit nicht wirklich klar.
Hier der Code
Public Sub SendNotesAppointment(VornameX As String, NachnameX As String, _
WDatumX As Variant, SubjectX As Variant)
'*****************************************************************************
'*
'* Mit dieser Funktion werden Termine aus in den
'* Lotus Notes Kalender des Anwenders geschrieben.
'*
'*****************************************************************************
'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
Subject = SubjectX 'Vorlauftext
Subject = Subject & VornameX & " " 'Vorname holen
Subject = Subject & NachnameX 'Nachname holen
Set WorkSpace = CreateObject("Notes.NOTESUIWORKSPACE")
Set CalenDoc = WorkSpace.COMPOSEDOCUMENT("", "", "Appointment")
CalenDoc.FIELDSETTEXT "AppointmentType", "4"
'AppointmentType 1 = Jahrestag
'AppointmentType 2 = Ganztägige Veranstaltung
'AppointmentType 3 = Beprechung
'AppointmentType 4 = Erinnerung
CalenDoc.FIELDSETTEXT "StartDate", CStr(Format(WDatumX, "dd/mm/yy"))
CalenDoc.FIELDSETTEXT "startTime", CStr("09:00:00")
'CalenDoc.FIELDSETTEXT "Duration", CStr(Duration)
CalenDoc.FIELDSETTEXT "Subject", Subject
CalenDoc.FIELDSETTEXT "Body", Subject
CalenDoc.FIELDSETTEXT "Categories", "PC" 'PC = Anrufe
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
Wer kann mir helfen???
Vielen Dank im voraus.
Viele Grüße
Jürgen
P.S. Ich habe die gleiche Frage auch noch in das Excel-Forum bei Herber gestellt. Nur damit keiner wg. Cross-Posting schimpft :-[
Hallo allerseits,
ich habe folgenden Code, der mir Termine aus einer Excel datei in den Outlook Kalender schreibt.
Option Explicit
Sub Outlookexport()
Dim OutApp As Object, apptOutApp As Object
'Termine aus Excel-Sheet lesen
Range("A2").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, 6).Value = "x" Then GoTo TerminDa
'Prüfen ob in Spalte G ein x ist,
'dass bedeutet, dass der Termin schon einmal erfasst wurde
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
'Termine werden aus den Zellen gelesen
.Start = Format(ActiveCell.Value, "dd.mm.yyyy") & " " & Format(ActiveCell.Offset(0, 1).Value, "hh:mm")
.End = Format(ActiveCell.Value, "dd.mm.yyyy") & " " & Format(ActiveCell.Offset(0, 5).Value, "hh:mm")
.Subject = ActiveCell.Offset(0, 2).Value
'Zusätzlicher Text
.Body = ""
'Ort
.Location = ActiveCell.Offset(0, 3).Value
.Save
End With
ActiveCell.Offset(0, 6).Value = "x"
' In die 6. Spalte ein x setzen heißt:
' der Termin wurde schon einmal in den Kalender eingetragen
' Deshalb den Code ab hier weiter abarbeiten
TerminDa:
'Nächste Zeile auswählen
ActiveCell.Offset(1, 0).Select
Set apptOutApp = Nothing
Set OutApp = Nothing
Loop
MsgBox "Termine wurden in den Outlook Kalender übertragen!"
End Sub
Was muss ich denn ändern, wenn ich das in den Notes Kalender schreiben will. Ich bin zwar den Lnks hier gefolgt, aber ich habe von den Notes Namen leider zu wenig bis gar keine Ahnung und weiss so gar nicht, was ich da machen soll.
Vielleicht kann mir ja hier jemand helfen.
Danke und Gruss