Ontvangen/verzonden e-mails automatisch openen in de modus "Bewerken" met Outlook VBA

Om de inhoud van een ontvangen of verzonden e-mail in Outlook te wijzigen, moet u deze openen en vervolgens in de bewerkingsmodus zetten. Als u vaak wijzigingen in dergelijke e-mails moet aanbrengen, wilt u ze waarschijnlijk automatisch in de bewerkingsmodus openen. Dit artikel helpt u daarbij.

Soms moet je de inhoud van een ontvangen of verzonden e-mail in Outlook aanpassen. In dat geval, zoals uitgelegd in het vorige bericht – “Hoe het onderwerp en de hoofdtekst van ontvangen e-mails in Outlook te wijzigen", moet u de e-mail openen en op de knop "Acties" klikken en "Bericht bewerken" kiezen om de e-mail om te zetten in de modus "Bewerken". U kunt het echter nog steeds een beetje lastig vinden. Daarom wilt u dat Outlook ontvangen/verzonden e-mails altijd opent in de modus "Bewerken". Daarna zullen we introduceren hoe u VBA-code kunt gebruiken om deze functie te bereiken. Lees nu verder voor gedetailleerde stappen.

Open automatisch ontvangen/verzonden e-mails in de modus "Bewerken".

1. In het begin, met verwijzing naar “Hoe u VBA-code in uw Outlook uitvoert", open de Outlook VBA-editor.
2. Kopieer en plak vervolgens de volgende VBA-code in het "ThisOutlookSession" -project.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

3. Klik vervolgens op de macro "Application_Startup" en druk op de F5-toets.
4. Sluit momenteel de VBA-editor.
5. Eindelijk kun je het proberen. Dubbelklik gewoon op een ontvangen of verzonden e-mail om deze te openen. Het zal zeker in de "Bewerken" -modus zijn.

Immuun voor Outlook-gegevensverlies

Is uw PST-bestand ooit ontoegankelijk geworden? In werkelijkheid kan het Outlook PST-bestand gemakkelijk beschadigd raken. Virussen via e-mail kunnen bijvoorbeeld gemakkelijk leiden tot een crash van Outlook en daardoor tot beschadiging van Outlook-gegevens. In dergelijke gevallen kan de eerste oplossing die in je opkomt zijn inbox reparatieprogramma. Over het algemeen is het echter niet in staat om met dergelijke ernstige situaties om te gaan. Daarom wordt altijd aangeraden om met regelmatige tussenpozen een back-up van PST-bestanden te maken, zodat u PST-gegevens van back-ups als een kurk kunt herstellen. Anders moet je terugvallen op een gespecialiseerde externe tool, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder mdf herstel en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com