Bestimmten Eintrag in Outlook Kalender finden und Kategorie, oder Datum ändern

Question

Hallo Zusammen,

vielleicht kann mir jemand helfen mein Problem zu lösen. Ich bin leider kein VBA Programmierer und bekomme das allein nicht hin.

Im folgenden Code rufe ich einen bestimmten Kalender in Outlook auf und setze einen Termin. Diesen Termin würde ich jetzt gerne nachträglich über VBA mit Kriterien die zb. im Body Text stehen aufrufen und ändern. Im Text wird immer eine Vorgangsnummer mitgegeben, die eindeutig ist. Das heißt, man könnte im Bodytext nach "Vorgangsnummer1" suchen lassen um den Eintrag zu finden.

Dim oapp As New Outlook.Application
Dim oNamespace As Outlook.Namespace
Dim oEmpfang As Outlook.Recipient
Dim oOrdner As Outlook.Folder
Dim oTermin As Outlook.AppointmentItem






'Zugriff auf Mapi Dateien
Set oNamespace = oapp.GetNamespace("MAPI")

'Empfänger festelegen
Set oEmpfang = oNamespace.CreateRecipient("Leihgeräte")

'Empfänger suchen
oEmpfang.Resolve

'Prüfen ob Empfänger gefunden wurde
If oEmpfang.Resolved = False Then
'Benuter benachrichtigen
MsgBox "nicht vorhanden", vbCritical, "Fehler"

'Prozedur beenden
Exit Sub

End If

'Ordner festlegen, in dem der Termin erstellt wird
Set oOrdner = oNamespace.GetSharedDefaultFolder(oEmpfang, olFolderCalendar)

'Termin esrstellen

Set oTermin = oOrdner.Items.Add(olAppointmentItem)

With oTermin

.Display
.subject = "test"

.body = "Vorgangsnummer1"

End With

Gruss Georgy

Answer 1

Hallo Georgios,

Die Klasse AppointmentItem besitzt die GlobalAppointmentID-Eigenschaft, die den angegebenen Terminelement mit einem eindeutigen Bezeichner versieht. Mit dieser Eigenschaft lässt sich ein bestimmtes Terminelement leichter ermitteln als mit einer Textsuche im Body. Wenn Du jedoch die Textsuche vornehmen möchtest, sieh Dir den Beispielcode in diesem Thread an:
Using VBA to find (search for) and edit a AppointmentItem

Gruß,
Dimitar

---

Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „IT-Pros helfen IT-Pros“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 2

Hallo Dimitar,

danke für deine Hilfestellung.

das mit der Klasse Appointmentitem ist in meiner Situation eher unbrauchbar.

Die zweite Variante hilft mir auch nicht so viel weiter, weil ich überhaupt keine Ahnung habe, wie ich den Code umschreiben muss, dass er auch meinen Kalender aufruft, der leihkalender heißt.

Vielleicht könntest Du mir anhand meines Codes, den ich übrigens auch nur kopiert habe, sagen wo ich in deinem Beispielcode was eintragen muss, damit er auch meinen "Leikalender" aufruft und die Änderungen auch dort macht.

Ich hoffe, ich habe mich einigermaßen verständlich ausgedrückt.

Gruss

Georgy