Domino 9 und frühere Versionen > ND8: Entwicklung

Lotus Notes Kalender aus VBA ansprechen

<< < (2/3) > >>

koehlerbv:
Die AtNotes-Community IST flott  ;)

Bernhard

lancelot2011:
Hallo allerseits,
ich habe folgenden Code, der mir Termine aus einer Excel datei in den Outlook Kalender schreibt.

--- Code: ---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

--- Ende Code ---

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

koehlerbv:
Wenn Du mit den verlinkten Dokumentationen und Anleitungen aus Post #1 nicht klar kommst, bist Du ohne Chance.

Bernhard

lancelot2011:
Hallo Bernhard,

ist das so aufwändig bzw. kompliziert ?

Gruss
Stephan

koehlerbv:
Das musst Du nach dem Studium der Dokus für Dich selbst bestimmen, Stephan.

Bei konkreten Fragen helfen wir natürlich gern.

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete