Prilikom ponovnog slanja ili prosljeđivanja e-pošte, možda ne želite spremiti kopiju u svoju mapu Poslane stavke. Ovaj članak će vas naučiti kako konfigurirati Outlook da traži spremanje kopije ili ne s Outlook VBA.
U stvarnosti, za većinu uobičajenih e-poruka, kopije biste trebali spremiti u mapu Poslane stavke. Ipak, u nekim situacijama, kao što je ponovno slanje, prosljeđivanje e-pošte ili kada ta e-poruka sadrži vrlo velik privitak, možda ćete smatrati nepotrebnim čuvati kopiju. U tim okolnostima morate se nadati da će vas Outlook obavijestiti i omogućiti vam da donosite odluke.
Zaobilazno rješenje: upotrijebite opciju "Ne spremaj".
Zapravo, Outlook nema ovu značajku. Ali možete upotrijebiti zaobilazno rješenje. To je opcija "Ne spremaj" u prozoru s porukom. Možete mu pristupiti prebacivanjem na karticu "Opcije", a zatim klikom na gumb "Spremi poslanu stavku u", kao na sljedećoj snimci zaslona:

Za lakši pristup ovoj opciji, možete je dodati na alatnu traku za brzi pristup. Kliknite ga desnom tipkom i odaberite "Dodaj na alatnu traku za brzi pristup" iz skočnog izbornika.
Od sada, ako ne želite spremiti kopiju, jednostavno možete označiti potvrdni okvir pored opcije "Ne spremaj" u alatnoj traci za brzi pristup. Iako je ovaj način doista praktičan, većina korisnika se i dalje žali da često zaborave označiti potvrdni okvir. Stoga i dalje žele skočni Outlookov upit s upitom o spremanju kopije. Da biste to postigli, trebali biste koristiti Outlook VBA. Molimo vas da nastavite čitati kako biste dobili detaljne kodove i korake.
VBA: pitajte želite li spremiti kopiju ili ne prilikom slanja e-pošte
- Prvo, pokrenite Outlook i prijeđite na karticu "Developer".
- Zatim kliknite na gumb "Visual Basic", koji će prikazati novi prozor.
- U prozoru "Visual Basic" dvaput kliknite na "ThisOutlookSession" da biste otvorili prozor projekta "ThisOutlookSession".
- Zatim kopirajte i zalijepite sljedeće kodove u njega.
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
- Nakon toga trebali biste potpisati ovaj kod kao i obično i promijeniti postavke makronaredbe da biste omogućili samo digitalno potpisane makronaredbe.
- Naposljetku, možete pokušati. Kada kliknete na gumb "Pošalji", primit ćete Outlook upozorenje, poput sljedeće slike. Ako odaberete gumb “Ne”, trenutna poruka neće biti spremljena u mapu Poslane stavke. Ako pritisnete gumb "Da", ova poruka će biti spremljena.
Nosite se s čestim problemima s Outlookom
Kao i druge aplikacije, Outlook može imati razne probleme, poput iznenadnog pada, neodgovaranja, povremenih poruka o pogrešci i tako dalje. Stoga, ako ste redoviti korisnik Outlooka, bolje nabavite Outlook alat za popravak datoteka, Kao i DataNumen Outlook Repair utoliko što će vam dobro doći kada otkrijete da je vaša Outlook datoteka oštećena iz nepoznatih razloga.
Uvod za autora:
Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak SQL Server oštećenje mdf baze podataka i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com


