Hallo.
Wir haben in einem Kalender mehrere (ca. 260) Termine, die ich nun nach bestimmten Kriterien umbenennen möchte.
z.B. Wenn Betreff = „Test 123“, dann soll Betreff „321 Test“
Kann man für solche Dinge keine Routine irgendwie machen?
Gibt es eventuell eine Möglichkeit mit VBA?
Bin für jeden Tipp dankbar!
Viele Grüße
Chris
Hi,
wo liegen denn die Termine in einem Mailbox Kalender, einem Public Folder oder einem PST File ?
In einer Mailbox würde ich das ganze mit CDO kurz durchlaufen lassen, und die Dinger umbenennen.
Vielleicht hilft dir auch folgendes Sample etwas weiter:
Private Sub Command1_Click()
Dim objOutlook As Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim objExplorer As Outlook.Explorer
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim objItem As Object
Set objOutlook = CreateObject(„Outlook.Application“)
Set objNamespace = objOutlook.GetNamespace(„MAPI“)
objNamespace.Logon ShowDialog:=True
’ Top level folders.
Set colFolders = objNamespace.Folders
Set objFolder = colFolders.Item(„Personal Folders“)
’ Navigate down one level.
Set colFolders = objFolder.Folders
Set objFolder = colFolders.Item(„HoldAppt“)
’ Get the first AppointmentItem.
Set objItem = objFolder.Items(1)
’ You can access any of the standard AppointmentItem properties,
’ such as the following:
MsgBox objItem.Subject, 0, „Subject“
MsgBox objItem.Location, 0, „Location“
MsgBox objItem.Start, 0, „StartTime“
MsgBox objItem.End, 0, „End Time“
objNamespace.Logoff
End Sub
Gruß
Nicole
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]