Hallo Ihr Wisser,
das müsste doch mit VB ganz einfach gehen - ich möchte, dass meine gesendeten Nachrichten in Outlook2000 nicht in „sent items“, sondern in der „inbox“ gespeichert werden. Nur habe ich von VB keine Ahnung und weiß nicht, wo ich anfangen soll. Weiß jemand was?
Vielen Dank im Voraus
Felix
das müsste doch mit VB ganz einfach gehen - ich möchte, dass
meine gesendeten Nachrichten in Outlook2000 nicht in „sent
items“, sondern in der „inbox“ gespeichert werden. Nur habe
ich von VB keine Ahnung und weiß nicht, wo ich anfangen soll.
Hi Felix, abgesehen davon dass ich den Ordner eher outbox als Inbox genannt hätte und ich nur OE benutze.
Du möchtest also ein Makro dass dir alle emails von dem outlookordner sentitems in den Ordner inbox umschaufelt?
Gruß
Reinhard
Hallo Reinhard,
erstmal vielen Dank für die Antwort. Also - ich meine tatsächlich die inbox - heißt vielleicht auf deutsch „Posteingang“? Die outbox ist dann der „Postausgang“ und sent items „Gesendete Nachrichten“ oder so.
Und ich hätte eben gern, dass die gesendeten Nachrichten im Posteingang liegen - da kann ich sie nämlich gleich sehen und erinnere mich an sie.
Cheers,
Felix
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Outlook Nachrichten in anderen Ordner verschieben
das müsste doch mit VB ganz einfach gehen - ich möchte, dass
meine gesendeten Nachrichten in Outlook2000 nicht in „sent
items“, sondern in der „inbox“ gespeichert werden. Nur habe
ich von VB keine Ahnung und weiß nicht, wo ich anfangen soll.
Weiß jemand was?
Hi Felix,
ich würde das in OE mir den Nachrichtenregeln versuchen.
Ungetestet ein Code für Excel-VBA, allerdings läuft der nicht automatisch los wenn du eine nachricht verschickst.
GGfs im Taskplaner die Exceldatei zu bestimmten eiten starten lassen die dann im Workbook_open erignis das Makro startet und danach die Datei schliesst.
Gruß
Reinhard
Sub versch()
Dim oOutlook As Object
Dim oNSpace As Object
Dim oFolderA As Object
Dim oFolderB As Object
Dim oMsg As Object
Dim iCounter As Integer
Dim iCount As Integer
Set oOutlook = CreateObject("Outlook.application")
Set oNSpace = oOutlook.getnamespec("MAPI")
Set oFolderA = oNSpace.folders("Persönliche Ordner").folders("Gelöschte Objekte")
Set oFolderB = oNSpace.folders("Persönliche Ordner").folders("Temp")
iCount = oFolderA.Items.Count
If iCount \> 0 Then
For iCounter = 1 To iCount
Set oMsg = oFolderA.Items(1)
oMsg.Move oFolderB
Next iCounter
End If
Set oOutlook = Nothing
Set oNSpace = Nothing
Set oFolderA = Nothing
Set oFolderB = Nothing
Set oMsg = Nothing
End Sub
Hallo Reinhard,
vielen Dank, aber das würde ich lieber nicht in Excel, sondern direkt in Outlook machen. Da sollten es auch bloß fünf Zeilen Code oder so sein.
Alles Gute
Felix