När du skickar eller vidarebefordrar ett e-postmeddelande kanske du inte vill spara en kopia i mappen Skickade objekt. Den här artikeln lär dig hur du konfigurerar Outlook för att be om att spara en kopia eller inte med Outlook VBA.
I själva verket föredrar du att spara kopiorna av de flesta vanliga e-postmeddelanden i mappen Skickat. I vissa situationer, till exempel när du skickar om, vidarebefordrar ett e-postmeddelande eller när e-postmeddelandet innehåller en mycket stor bilaga, kan du dock tycka att det är onödigt att behålla en kopia. Under dessa omständigheter måste du hoppas att Outlook kan uppmana dig och låta dig göra val.
Lösning: Använd alternativet "Spara inte"
Egentligen har Outlook inte den här funktionen. Men du kan använda en lösning. Det är alternativet "Spara inte" i meddelandefönstret. Du kan komma åt den genom att växla till fliken "Alternativ" och sedan klicka på knappen "Spara skickat objekt till", som följande skärmdump:
För enklare åtkomst till det här alternativet kan du lägga till det i snabbåtkomstverktygsfältet. Högerklicka på den och välj “Lägg till i snabbåtkomstverktygsfältet” från popup-menyn.
Från och med nu, om du inte vill spara en kopia, kan du helt enkelt markera kryssrutan bredvid alternativet "Spara inte" i verktygsfältet Snabbåtkomst. Även om detta sätt är bekvämt klagar de flesta användare fortfarande på att de ofta glömmer att markera kryssrutan. Därför längtar de fortfarande efter en popup-fråga i Outlook som frågar om du vill spara en kopia. För att uppnå detta bör du använda Outlook VBA. Läs vidare för att få de detaljerade koderna och stegen.
VBA: Fråga om du vill spara en kopia eller inte när du skickar e-post
- För det första startar du Outlook och växlar till fliken "Utvecklare".
- Klicka sedan på “Visual Basic” -knappen, som visar ett nytt fönster.
- I "Visual Basic" -fönstret dubbelklickar du på "ThisOutlookSession" för att öppna projektfönstret "ThisOutlookSession".
- Nästa kopia och klistra in följande koder i den.
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
- Därefter bör du underteckna den här koden som vanligt och ändra makroinställningarna för att endast aktivera digitalt signerade makron.
- Så småningom kan du prova. När du klickar på knappen "Skicka" får du en Outlook-varning, som följande bild. Om du väljer “Nej” -knappen sparas inte det aktuella meddelandet i mappen Skickade objekt. Medan du trycker på “Ja” -knappen sparas detta meddelande.
Hantera frekventa Outlook-problem
Liksom andra applikationer kan Outlook drabbas av olika problem, som plötslig krasch, inte svarar, enstaka felmeddelanden och så vidare. Därför, om du är en vanlig användare av Outlook, skulle du bättre skaffa en Verktyg för reparation av Outlook-filer, tycka om DataNumen Outlook Repair genom att det kommer att vara till nytta när du upptäcker att din Outlook-fil är skadad av okända skäl.
Författarintroduktion:
Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparation SQL Server mdf-databasskada och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com