Когато изпращате или препращате имейл, може да искате да не запазвате копие в папката си Изпратени. Тази статия ще ви научи как да конфигурирате Outlook да извежда подкана за запазване на копие или не с Outlook VBA.
В действителност, за повечето често срещани имейли е по-добре да запазвате копията им в папката „Изпратени“. Въпреки това, в някои ситуации, например когато изпращате повторно, препращате имейл или когато този имейл съдържа много голям прикачен файл, може да смятате за ненужно да запазвате копие. При тези обстоятелства трябва да се надявате, че Outlook ще ви подкани и ще ви позволи да направите избор.
Заобиколно решение: Използвайте опцията „Не запазвай“.
Всъщност Outlook няма тази функция. Но можете да използвате заобиколно решение. Това е опцията „Не запазвай“ в прозореца на съобщението. Можете да получите достъп до него, като преминете към раздела „Опции“ и след това щракнете върху бутона „Запазване на изпратения елемент в“, като следната екранна снимка:
За по-лесен достъп до тази опция можете да я добавите към лентата с инструменти за бърз достъп. Щракнете с десния бутон върху него и изберете „Добавяне към лентата с инструменти за бърз достъп“ от изскачащото меню.
Отсега нататък, ако не искате да запазвате копие, можете просто да поставите отметка в квадратчето до опцията „Не запазвай“ в лентата с инструменти за бърз достъп. Въпреки че този начин е наистина удобен, повечето потребители все още се оплакват, че често забравят да поставят отметка в квадратчето. Следователно, те все още копнеят за изскачащ прозорец на Outlook, който да ги пита дали да запазят копие. За да постигнете това, трябва да използвате Outlook VBA. Моля, прочетете по-нататък, за да получите подробните кодове и стъпки.
VBA: Попитайте дали да запазите копие или не, когато изпращате имейли
- На първо място стартирайте Outlook и преминете към раздела „Разработчик“.
- След това кликнете върху бутона „Visual Basic“, който ще отвори нов прозорец.
- В прозореца „Visual Basic“ щракнете два пъти върху „ThisOutlookSession“, за да отворите прозореца на проекта „ThisOutlookSession“.
- След това копирайте и поставете следните кодове в него.
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
- След това трябва да подпишете този код както обикновено и да промените настройките на макросите, за да активирате само цифрово подписани макроси.
- В крайна сметка можете да опитате. Когато щракнете върху бутона „Изпращане“, ще получите предупреждение от Outlook, като следното изображение. Ако изберете бутона „Не“, текущото съобщение няма да бъде запазено в папката „Изпратени“. Ако натиснете бутона „Да“, това съобщение ще бъде запазено.
Справете се с честите проблеми с Outlook
Подобно на други приложения, Outlook може да страда от различни проблеми, като внезапен срив, липса на отговор, случайни съобщения за грешка и т.н. Следователно, ако сте редовен потребител на Outlook, по-добре си набавете Инструмент за поправка на файлове на Outlook, като DataNumen Outlook Repair в това, че ще бъде полезно, когато установите, че вашият Outlook файл е повреден по някакви неизвестни причини.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт SQL Server mdf повреда в базата данни и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com