Gert Bouwmeeste
Verenigingslid
- Lid geworden
- 28 nov 2007
- Berichten
- 822
Goedemorgen,
Ik zoek een macrootje voor Outlook (liefst met sneltoets) die verzonden mail automatisch verplaatst van de map "Verzonden items" verplaatst naar de "Inbox".
Ik heb dit geprobeerd (voorbeelden op de site http://www.snb-vba.eu/VBA_Outlook_external.html gecombineerd) maar dat werkt niet.
Iemand een idee?
Ik zoek een macrootje voor Outlook (liefst met sneltoets) die verzonden mail automatisch verplaatst van de map "Verzonden items" verplaatst naar de "Inbox".
Ik heb dit geprobeerd (voorbeelden op de site http://www.snb-vba.eu/VBA_Outlook_external.html gecombineerd) maar dat werkt niet.
Iemand een idee?
Code:
Sub Verzonden_emails_verplaatsen()
On Error Resume Next
With CreateObject("Outlook.Application").GetNamespace("MAPI")
.GetDefaultFolder(5).Items.Move .GetDefaultFolder(3)
Do Until Err.Number <> 0
.GetDefaultFolder(5).Items.FindNext.Move .GetDefaultFolder(3)
Loop
End With
End Sub