Iš naujo siųsdami arba persiųsdami el. laišką, galbūt norėsite neišsaugoti kopijos aplanke Išsiųstos prekės. Šiame straipsnyje sužinosite, kaip sukonfigūruoti „Outlook“, kad būtų raginama išsaugoti kopiją, ar ne, naudojant „Outlook VBA“.
Iš tikrųjų daugelio įprastų el. laiškų kopijas turėtumėte išsaugoti aplanke „Išsiųsta“. Vis dėlto kai kuriais atvejais, pavyzdžiui, kai persiunčiate el. laišką, jį persiunčiate arba kai prie jo pridedamas labai didelis priedas, galite manyti, kad nereikia saugoti kopijos. Tokiomis aplinkybėmis turėtumėte tikėtis, kad „Outlook“ jus paragins ir leis jums atlikti pasirinkimus.
Sprendimas: naudokite parinktį „Neišsaugoti“.
Tiesą sakant, „Outlook“ šios funkcijos neturi. Bet jūs galite naudoti problemos sprendimą. Tai yra parinktis „Neišsaugoti“ pranešimo lange. Jį galite pasiekti perjungę į skirtuką „Parinktys“ ir spustelėję mygtuką „Išsaugoti išsiųstą elementą“, kaip parodyta šioje ekrano kopijoje:
Kad būtų lengviau pasiekti šią parinktį, galite pridėti ją prie greitosios prieigos įrankių juostos. Dešiniuoju pelės mygtuku spustelėkite jį ir iškylančiajame meniu pasirinkite „Pridėti prie greitosios prieigos įrankių juostos“.
Nuo šiol, jei nenorite išsaugoti kopijos, galite tiesiog pažymėti žymimąjį langelį šalia parinkties „Neišsaugoti“ greitosios prieigos įrankių juostoje. Nors tai išties patogu, dauguma vartotojų vis dar skundžiasi, kad dažnai pamiršta pažymėti žymimąjį langelį. Todėl jie vis dar ilgisi iššokančiojo „Outlook“ lango, kuriame klausiama, ar išsaugoti kopiją. Norėdami tai padaryti, turėtumėte naudoti „Outlook VBA“. Skaitykite toliau, kad sužinotumėte išsamius kodus ir veiksmus.
VBA: paklauskite, ar išsaugoti kopiją, ar ne, kai siunčiate el
- Pirmiausia paleiskite „Outlook“ ir pereikite į skirtuką „Kūrėjas“.
- Tada spustelėkite mygtuką „Visual Basic“, kuris atvers naują langą.
- Lange „Visual Basic“ dukart spustelėkite „ThisOutlookSession“, kad atidarytumėte projekto langą „ThisOutlookSession“.
- Tada nukopijuokite ir įklijuokite šiuos kodus.
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
- Po to turėtumėte pasirašyti šį kodą kaip įprasta ir pakeisti makrokomandos nustatymus, kad įgalintumėte tik skaitmeniniu būdu pasirašytas makrokomandas.
- Galų gale galite pabandyti. Spustelėję mygtuką „Siųsti“, gausite „Outlook“ įspėjimą, kaip ir toliau pateiktame paveikslėlyje. Jei pasirinksite mygtuką „Ne“, dabartinis pranešimas nebus išsaugotas aplanke „Išsiųstas“. Jei paspausite mygtuką „Taip“, šis pranešimas bus išsaugotas.
Susitvarkykite su dažnomis „Outlook“ problemomis
Kaip ir kitos programos, „Outlook“ gali susidurti su įvairiomis problemomis, tokiomis kaip staigus gedimas, nereaguojimas, retkarčiais pateikiami klaidų pranešimai ir pan. Taigi, jei esate nuolatinis „Outlook“ vartotojas, geriau įsigykite Outlook failų taisymo įrankis, Kaip DataNumen Outlook Repair tai bus naudinga, kai pastebėsite, kad jūsų „Outlook“ failas yra sugadintas dėl nežinomų priežasčių.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas SQL Server mdf duomenų bazės pažeidimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com