Outlook.Item?!
Andre
ich hoffe mir kann jemand helfen, denn ich komme einfach nicht auf eine vernünftige Lösung!
Ich habe einen Ordner mit einer Reihe an Outlook-Elementen (".msg"), die ich in einen Outlook-Ordner verschieben möchte.
Bei einem neu erstelltem Item ist das kein Problem, da funktioniert folgender Code, aber ich möchte ja keine neuen Nachrichten erstellen, sondern bereits bestehende verschieben. Also im Prinzip müßte ich nur statt "CreateItem" irgendwas ähnliches wie "GetItem" sagen, aber alle Versuche waren bisher vergeblich!
Vielleicht seht ihr ´ne Möglichkeit?!
Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
Set myFolder = OutApp.GetNamespace("MAPI").Folders("Persönliche
Ordner").Folders("Postausgang").Folders("MeinTestOrdner")
With Nachricht
.To =
.Subject =
.Body =
Set myItem = OutApp.CreateItem(olMailItem)
Set myCopiedItem = .Copy
myCopiedItem.Move myFolder
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Nächster Schritt wird dann später sein, diese Nachrichten zu versenden, dies ist aus einem Outlook-Ordner kein Problem (!), aber ohne eine Lösung für dieses Problem kann ich meine nächsten Schritte vergessen.
Gruß Andre