AW: Ich verwende...
26.08.2016 12:03:00
jens
Super das was Problem. sprich die zahl 13..
Wie kann ich dann nun noch z.b. die Aufgaben die ich aus Excel nach Outlook senden in einen bestimmten ordner speichern?
Hier mein Code.
Sub Excel_an_Outlook_Aufgabe()
On Error GoTo ErrorAufgabe
Dim MyError As Integer
Dim Faellig As Date
Dim Link As String
Dim myolApp As Object, myitem As Object
'Eigene Fehleroutine/Nummer eröffnen
MyError = 1
'Fälligkeit ist übermorgen
MyError = 2
For i = 14 To Worksheets("Aufgaben").Cells(Rows.Count, 1).End(xlUp).Row
'If Cells(i, 6) = "" Then
Set myolApp = CreateObject("Outlook.Application")
Set myitem = myolApp.CreateItem(3)
Set myitem = myolApp.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks).Folders(Sheets(1). _
Range("F4").Value).CreateItem(3)
myitem.Subject = Cells(i, 1).Value ' Text der Aufgabe
myitem.Body = Cells(12, 6).Value & ": " & Cells(i, 6).Value
myitem.Companies = Cells(8, 2).Value & " " & Cells(7, 2).Value
myitem.StartDate = Cells(i, 3).Value
If Cells(i, 4).Value = "" Then
myitem.DueDate = "31.12.2100"
Else
myitem.DueDate = Cells(i, 4).Value
End If
If Cells(i, 5).Value "" Then
myitem.DateCompleted = Cells(i, 5).Value
End If
myitem.Save
Set myitem = Nothing
ErrorExit:
'End If
Next i
Exit Sub
ErrorAufgabe:
Select Case MyError
Case 1
MsgBox "Die Datei wurde noch nicht gespeichert"
Case 2
MsgBox "Outlook kann nicht gestartet werden" & Chr$(13) & "Aufgabe wurde nicht erstellt _
End Select
Resume ErrorExit
End Sub