Snelle Knop ( doel knop postvak in selecteren

Status
Niet open voor verdere reacties.
P

pietermathijssen

Gebruiker
Lid geworden
2 okt 2012
Berichten
24
Beste,

Normaal gezien kan ik met de recorder in excel wel wat taken automatiseren. helaas heeft outlook deze functie niet.

ik gebruik nu de "snelle knop" om alles te lezen en te verplaatsen naar de prullenbak. En een groot aantal mails te verplaatsen naar mappen

Wat ik wil bereiken is het volgende: een macroknop toevoegen aan het lint.
postvak in => alles selecteren => alles lezen => verplaatsen naar verwijderde items
 
Super snelle reactie.

bedankt hoe ik knoppen toe moet voegen aan het lint dat is geen probleem, echter de code achter de knop
 
Is dit wat je bedoelt?
Code: 
Sub CommandButton1_Click()
    Dim objInbox As Outlook.MAPIFolder
    Dim objDeleted As Outlook.MAPIFolder
    Dim objnSpace As Object, objMessage As Object
    
    Set objnSpace = Application.GetNamespace("MAPI")
    Set objInbox = objnSpace.GetDefaultFolder(olFolderInbox)
    Set objDeleted = objnSpace.GetDefaultFolder(olFolderDeletedItems)
    
    For Each objMessage In objInbox.Items
        objMessage.UnRead = False
        objMessage.Move objDeleted
    Next
    
    Set objDeleted = Nothing
    Set objnSpace = Nothing
    Set objInbox = Nothing
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan