… hat mir schon einige weiße Haare beschert. Bevor ich weißhaarig bin, bitte ich Euch jetzt mal um Hilfe. Hallo übrigens.
Folgende Aufgabenstellung:
Ich möchte (alle) Termine von Outlook 2000 in eine Datei auf einem Netzlaufwerk exportieren (alternativ auch lokal). Datei und LW sind fixe Werte und müssen nicht mehr verändert werden (Dateiformat ist auch relativ egal). Die Datei sollte entweder vorgelöscht oder automatisch überschrieben werden.
Vielleicht hat ja schon mal einer von Euch das gelöst? Ganz toll wäre natürlich noch, wenn ich mit einem zweiten Makro die Datei wieder importieren könnte.
ob man einfach die Export-Funktion im File-Menü per Makro anstoßen kann, weiß ich nicht. Glaube nicht. Aber ansonsten gibt die VBA-Hilfe von Outlook eigentlich gut Hilfestellung.
Du kannst Deine Aufgabe mit einem Outlook-Makro, mit einem anderen Office-Makro, mit VB selbst und sogar mit VBScript lösen.
Hier mal ein Beispiel-Outlook-Makro:
Sub AlleTermineAuflisten()
Dim olApp As Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim olCalendar As Outlook.MAPIFolder
Dim olAppointment As Outlook.AppointmentItem
Dim s As String
Dim d As Date
Dim t As Date
Dim ts As String
Dim n As Integer
Set olApp = CreateObject("Outlook.Application") 'oder New Outlook.Application
Set olNameSpace = olApp.GetNamespace("MAPI")
Set olCalendar = olNameSpace.GetDefaultFolder(olFolderCalendar)
n = 0
For Each olAppointment In olCalendar.Items
n = n + 1
s = olAppointment.Subject
If s = "" Then s = "-"
d = Fix(olAppointment.Start)
t = CDate(olAppointment.Start - d)
If t = 0 Then
ts = ""
Else
ts = " (" & CStr(t) & ")"
End If 't=0
Debug.Print Fix(d) & ": " & s & ts
Next 'olAppointment
Set olAppointment = Nothing
Set olCalendar = Nothing
Set olNameSpace = Nothing
Set olApp = Nothing
MsgBox "Insgesamt " & n & " Einträge.", vbInformation, "Fertig"
End Sub 'AlleTermineAuflisten
Um das alles in eine Datei zu schreiben bzw. daraus zu lesen, gucke in der Hilfe mal nach Open, Read und Line Input#. Das sollte Dir weiterhelfen.