Wanneer u een e-mail opnieuw verzendt of doorstuurt, wilt u misschien geen kopie opslaan in uw map Verzonden items. In dit artikel leert u hoe u Outlook configureert om te vragen om al dan niet een kopie op te slaan met Outlook VBA.
In de praktijk is het voor de meeste e-mails aan te raden een kopie op te slaan in de map 'Verzonden items'. Toch kan het in sommige situaties, bijvoorbeeld bij het opnieuw verzenden of doorsturen van een e-mail, of wanneer een e-mail een zeer grote bijlage bevat, onnodig zijn om een kopie te bewaren. In dergelijke gevallen is het raadzaam om Outlook te gebruiken om een keuze te maken.
Tijdelijke oplossing: gebruik de optie "Niet opslaan".
Eigenlijk heeft Outlook deze functie niet. Maar u kunt een tijdelijke oplossing gebruiken. Dat is de optie "Niet opslaan" in het berichtenvenster. U kunt het openen door over te schakelen naar het tabblad "Opties" en vervolgens op de knop "Verzonden item opslaan in" te klikken, zoals de volgende schermafbeelding:
Om gemakkelijker toegang tot deze optie te krijgen, kunt u deze toevoegen aan de werkbalk Snelle toegang. Klik er met de rechtermuisknop op en kies "Toevoegen aan werkbalk Snelle toegang" in het pop-upmenu.
Vanaf nu kunt u, als u geen kopie wilt opslaan, eenvoudig het selectievakje naast de optie 'Niet opslaan' in de werkbalk Snelle toegang aanvinken. Hoewel dit erg handig is, klagen de meeste gebruikers dat ze vaak vergeten het selectievakje aan te vinken. Daarom willen ze graag een pop-upvenster in Outlook zien waarin wordt gevraagd of ze een kopie willen opslaan. Om dit te bereiken, kunt u Outlook VBA gebruiken. Lees verder voor de gedetailleerde code en stappen.
VBA: vraag of u een kopie wilt opslaan of niet bij het verzenden van e-mails
- Start in de eerste plaats Outlook en ga naar het tabblad "Ontwikkelaar".
- Klik vervolgens op de knop "Visual Basic", waardoor een nieuw venster wordt geopend.
- Dubbelklik in het venster "Visual Basic" op "ThisOutlookSession" om het projectvenster "ThisOutlookSession" te openen.
- Kopieer en plak vervolgens de volgende codes erin.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strMsg As String
Dim nRes As Integer
strMsg = "Do you want to save a copy of this message?"
nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Confirm Saving Copy")
If nRes = vbNo Then
Item.DeleteAfterSubmit = True
End If
End Sub
- Daarna moet u deze code zoals gewoonlijk ondertekenen en de macro-instellingen wijzigen om alleen digitaal ondertekende macro's in te schakelen.
- Uiteindelijk kun je het proberen. Wanneer u op de knop "Verzenden" klikt, ontvangt u een Outlook-waarschuwing, zoals de volgende afbeelding. Als u de knop "Nee" selecteert, wordt het huidige bericht niet opgeslagen in de map Verzonden items. Als u op de knop "Ja" drukt, wordt dit bericht opgeslagen.
Omgaan met veelvoorkomende Outlook-problemen
Net als andere toepassingen kan Outlook verschillende problemen ondervinden, zoals een plotselinge crash, niet reageren, incidentele foutmeldingen, enzovoort. Daarom, als u een regelmatige gebruiker van Outlook bent, kunt u beter een Hulpprogramma voor het herstellen van Outlook-bestanden, zoals DataNumen Outlook Repair in die zin zal het van pas komen wanneer u merkt dat uw Outlook-bestand om onbekende redenen beschadigd is.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie SQL Server mdf-database corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com