Mail uit "Verzonden items" verplaatsen naar "Inbox" met een macro

Status
Niet open voor verdere reacties.
Gert Bouwmeeste

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?

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
 
"Werkt niet" is altijd te kort door de bocht.
Geef aan wat er wel gebeurt.

Wil je niet van foldertype 4 naar 5 i.p.v. van 5 naar 3?
Zie sectie 1.2.1 Overzicht standaardmappen op de pagina waar je de link van plaatste.
 
Deze achter je ThisOutlookSession

Code: 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  If TypeOf Item Is Outlook.MailItem Then
    Set Item.SaveSentMessageFolder = Application.Session.GetDefaultFolder(6)
  End If
End Sub
 
Code: 
Code: 

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  If TypeOf Item Is Outlook.MailItem Then
    Set Item.SaveSentMessageFolder = Application.Session.GetDefaultFolder(6)
  End If
End Sub

Top, dit werkt!

Echter, ik heb meerdere (drie) mailaccounts. De verzonden mail wordt met deze macro in de Inbox van mijn privé-account (=hoofdaccount) geplaatst. Kan het ook dat, als ik een mail verstuur vanaf één van de andere accounts, dat het verzonden bericht dan in de Inbox van dat account geplaatst wordt?
 
Je zou deze kunnen proberen

Code: 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  If TypeOf Item Is Outlook.MailItem Then
    Set Item.SaveSentMessageFolder = Application.Session.Folders(Item.SendUsingAccount).Folders("Postvak IN")
  End If
End Sub
 
Dank je, maar deze laatste macro doet niks. Verzonden berichten worden in de map "Sent items" geplaatst van het mailaccount waarmee ze verzonden zijn. Net alsof er geen macro is.

Moet ik misschien eerst nog een library koppelen of zo?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan