Re: Aufgaben aus Outllok nach Excel exportieren!
27.01.2003 16:51:20
Bernd Held
Hallo Randolf,über folgendes MAkro werden alle Aufgaben aus Outlook in eine Excel-Tabelle importiert:
Sub AufgabenVonExcelNachOutlookÜbertragen()
Dim appOutLook As Outlook.Application
Dim taskOutLook As Outlook.TaskItem
Dim s As String
Set appOutLook = CreateObject("Outlook.Application")
Range("A2").Select
Do Until ActiveCell.Value = ""
Set taskOutLook = appOutLook.CreateItem(olTaskItem)
With taskOutLook
.Subject = ActiveCell.Value
.Body = ActiveCell.Offset(0, 1).Value
.DueDate = ActiveCell.Offset(0, 2).Value
If ActiveCell.Offset(0, 3).Value = "erl." _
Then .Complete = True Else .Complete = False
'Zuordnung zur passenden Kategorie
Select Case ActiveCell.Offset(0, 4).Value
Case 1
s = "Geschäftlich"
Case 2
s = "Persönlich"
Case 3
s = "Telefonanrufe"
Case Else
s = "Verschiedenes"
End Select
.Categories = s
'Erinnerungsfunktion nur einschalten, wenn Aufgabe noch aktuell ist
If .Complete = False Then
.ReminderSet = True
.ReminderTime = DateAdd("n", 5, ActiveCell.Offset(0, 2).Value)
.ReminderPlaySound = True
.ReminderSoundFile = "C:\Windows\Media\Ding.WAV"
End If
.Save
End With
ActiveCell.Offset(1, 0).Select
Loop
MsgBox "Alle Aufgaben an Outlook übertragen!"
Set taskOutLook = Nothing
Set appOutLook = Nothing
End Sub
Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de