Microsoft Outlook

Algemene informatie over Microsoft Outlook

Bijlagen verwijderen van verzonden email

^16/6/10 Als u een email met bijlagen wilt versturen, dan kopieert u op dat moment de bijlagen naar het te verzenden bericht. Als het bericht verstuurd is, wordt dit verplaatst naar de Outlook-map "Verzonden items", inclusief de bijlagen, die soms nogal groot kunnen zijn. Als u zo een tijdje bezig bent hebt u een enorme verzameling gekopieerde bestanden in uw map Verzonden, waardoor uw Outlook-archief onnodig groot wordt en daarmee van alles langzamer wordt, om te beginnen de backup.

Als uw Outlook-bestand (pst-bestand) de 2 Gigabyte nadert, dan wordt het zelfs onmogelijk om verder te werken. Alleen items verwijderen en comprimeren is dan nog mogelijk.

Om dit soort problemen te voorkomen is het zaak om uw Outlook-bestand schoon te houden en binnenkomende bijlagen steeds op te slaan en ze uit uw email te verwijderen. Waarschijnlijk is dat iets, wat uw gewoonte al is. Bij het verzenden van email wordt dit nogal eens vergeten, ook om dat het extra handelingen zijn waarop u niet zit te wachten. Daarom hebben we de onderstaande macro gemaakt. Deze schoont uw Verzonden items op van alle bijlagen.

Option Explicit

Sub VerzondenBijlagenVerwijderen()
Dim outlNsp As Object, outlSentMail As Object, outlItems As Object
Dim nAtt As Long, Antw, I, Meldingen As Boolean, N
Meldingen = True
Set outlNsp = GetNamespace("MAPI")
Set outlSentMail = outlNsp.GetDefaultFolder(olFolderSentMail)
Set outlItems = outlSentMail.Items
For I = 1 To outlItems.Count
  N = 0
  With outlItems(I)
   While .Attachments.Count > 0
    If Meldingen Then
     Antw = MsgBox(.Subject & " - dd: " & .SentOn & vbCrLf & _
     .Attachments(1).FileName & " uit verzonden bericht verwijderen?", vbYesNoCancel, "Bijlage verwijderen?")
     If Antw = vbCancel Then Exit Sub
    Else
     Antw = vbYes
    End If
    If Antw = vbYes Then
     .Attachments.Remove 1
     N = N + 1
    End If
   Wend
   If N > 0 Then
    .Save
    If Meldingen Then Meldingen = MsgBox(N & " bijlagen verwijderd." & vbCrLf & _
    "Meer meldingen?", vbYesNo, "Meer meldingen?") = vbYes
   End If
  End With
Next
End Sub

Bovenstaande programmacode kunt u kopiëren en plakken in een nieuwe Outlook-macro. In Outlook 2002 is dat via het menu Extra > Macro > Macro's. Geef daar eerst een macro-naam op en druk dan op Maken. Plak dan de bovenstaande code in het grote witte vlak. Druk op F5 om de macro te draaien.

Succes!

Nieuws rond Microsoft Outlook

IDEOMA Relatie leest uw email
^16/6/10 Wist u dat u uw email in Outlook kunt laten verwerken door IDEOMA Relatie? We gebruiken het zelf elke dag. Door op "Email importeren" te drukken wordt het Postvak IN van Outlook ingelezen in een tijdelijk werkblad, waarin wordt aangegeven wat IDEOMA Relatie heeft herkend en wat hij ermee wil doen. Dit gebeurt op basis van door u zelf eerder aangegeven regels. Zo kunnen bijv. nieuwsbrieven worden verplaatst naar een aparte Outlook-map en de email van belangrijke afzenders worden ingelezen in de database van IDEOMA Relatie. Dit systeem is zelflerend en na enige tijd zult u merken dat u alleen nog met nieuwe afzenders bezig bent. Alle bekende afzender komen vanzelf in de database terecht. Dit is een open Access-database, waar u uw eigen toepassingen aan kunt koppelen.

Meer over IDEOMA Relatie