AW: Outlook Aufgaben nach Excel
03.10.2003 08:15:11
Ramses
Hallo,
nachdem das ansprechen recht unterschiedlich ist ( Lokale Umgebung / Exchange Umgebung / Benennung der Ordner ) hier mal ein Ansatz.
Zusätzliche Hilfe findest du in der OLH von Outlook. Die Anweisungen hinter dem Hochkomma sollten eigentlich in XP funktionieren.
Ansonsten mal ein wenig experimentieren
Sub Hole_Aufgaben()
Dim olkApp As Outlook.Application 'As Object
Dim MyNameSpace As NameSpace
Dim AufgabenOrdner As Object
Dim AktAufgabe As TaskItem 'As Object
Dim Zielzelle As Excel.Range
Dim i As Integer
Dim Startdat As Date
Dim Enddat As Date
Set olkApp = CreateObject("Outlook.Application")
Set MyNameSpace = olkApp.GetNamespace("MAPI")
Set AufgabenOrdner = MyNameSpace.GetDefaultFolder(olFolderTasks)
Set Zielzelle = Application.ThisWorkbook.Worksheets(2).Range("a1")
' Startdatum aus der Zelle auslesen
Range("A1").Select
Startdat = ActiveCell
' Enddatum aus der Zelle auslesen
Range("B1").Select
Enddat = ActiveCell
Zielzelle.Value = "Betreff"
Zielzelle.Offset(0, 1) = "Erledigt am"
Zielzelle.Offset(0, 2) = "Gesamtaufwand"
Zielzelle.Offset(0, 3) = "Abrechnungsinformationen"
Zielzelle.Offset(0, 4) = "Firma"
Zielzelle.Offset(0, 5) = "Reisekilometer"
For i = 1 To AufgabenOrdner.Items.Count
Set AktAufgabe = AufgabenOrdner.Items(1)
With AktAufgabe
Zielzelle.Offset(i, 0).Value = .Subject
Zielzelle.Offset(i, 1).Value = .DateCompleted
Zielzelle.Offset(i, 2).Value = .ActualWork
Zielzelle.Offset(i, 3).Value = .BillingInformation
Zielzelle.Offset(i, 4).Value = .Companies
Zielzelle.Offset(i, 5).Value = .Mileage
End With
Next
End Sub
Und hier noch ein Link
http://www.office.gmxhome.de/_excel_outlook.htm
der dir vielleicht noch ein paar Input's bringt.
Gruss Rainer