Home-›Foren-›Outlook-›Outlook VBA-›EMails auslesen und abspeichen
- This topic has 2 Antworten, 1 Stimme, and was last updated 12:02 um 29. Januar 2009 by Unbekannt.
- AutorBeitrag
- 5. Oktober 2007 um 15:04 #151145UnbekanntParticipant
Hallo,
die Emails selbst sind keine Excel-files, ich denke du meinst sicher den Anhang in einen Ordner speichern? Das geht aber nur über ein Makro, du müsstest über ein Event abfragen, wenn Outlook aktiviert wird, soll er das Makro aktivieren und dann sollen alle Emails im Posteingang die ungelesen sind durchsuchen und schauen, ob ein Excel-file vorhanden ist. Diese Excel-file soll dann in einen vordefinierten Ordner kopiert werden.
Also vollkommen automatisch könnte ich es dir nicht schreiben, allerdings wenn du sagst,
ich drücke eine Schaltfläche in der Taskleiste in Outlook beim Start, dann könnte ich denke das schon realisieren, die den Code hier hinein zu posten.Gruß Omega_D
29. Januar 2009 um 12:02 #168158UnbekanntParticipantSub InUnterordnerNachJahrenUmsortieren()
\’ Pick a folder and moves Items in Subfolders by yearDim objFolder As MAPIFolder
Set objFolder = Outlook.GetNamespace(\”MAPI\”).PickFolderDim oMsgColl As Items
Dim objItem As Object \’ normally Mailitem, but not always
Set oMsgColl = objFolder.Items
Set objItem = oMsgColl.GetFirst
Do While (Not objItem Is Nothing)
Debug.Print \”Found:\” & objItem.ReceivedTime & \” – \” & objItem.Subject
On Error Resume Next
If objFolder.Folders(objFolder.Name & \”-\” & CStr(Year(objItem.ReceivedTime))) Is Nothing Then
Debug.Print \”Neuer Ordner angelegt: \” & objFolder.Name & \”-\” & CStr(Year(objItem.ReceivedTime))
objFolder.Folders.Add (objFolder.Name & \”-\” & CStr(Year(objItem.ReceivedTime)))
End If
Err.Clear: On Error GoTo 0
objItem.Move (objFolder.Folders(objFolder.Name & \”-\” & CStr(Year(objItem.ReceivedTime))))
Set objItem = oMsgColl.GetNext
Loop
End Sub
\’Q: http://www.msexchangefaq.de/tools/movesubfolder.htm - AutorBeitrag
