Як надрукувати електронне повідомлення без одержувачів в Outlook?
Наприклад, ви хочете надрукувати електронне повідомлення в Outlook. Однак одержувачів електронної пошти так багато, що вони займають багато місця в заголовку повідомлення. Задля економії паперу, цей метод запровадить сценарій VBA для друку електронного листа без одержувачів у Outlook.
Роздрукуйте електронне повідомлення без одержувачів за допомогою VBA
Легко друкуйте надісланий електронний лист із одержувачами прихованої копії в Outlook
Як відомо, поле Прихована копія не роздруковується під час друку надісланого електронного листа в Outlook. Однак із фантастичним Розширений друк функція Kutools для Outlook, ви можете легко надрукувати надісланий електронний лист без заголовка, без імені користувача, включаючи фони, і з прихованою копією одержувачів.
- Автоматизуйте надсилання електронних листів за допомогою Авто CC / BCC, Автоматичне пересилання вперед за правилами; відправити Автовідповідь (Поза офісом) без необхідності сервера обміну...
- Отримуйте нагадування як Попередження BCC коли ви відповідаєте всім, поки ви перебуваєте в списку прихованих копій, і Нагадати про відсутність вкладень за забуті вкладення...
- Підвищте ефективність електронної пошти за допомогою Відповісти (всім) із вкладеннями, Автоматичне додавання привітання або дати й часу до підпису чи теми, Відповісти на кілька електронних листів...
- Оптимізація електронної пошти за допомогою Відкликати електронні листи, Інструменти кріплення (Стиснути все, автоматично зберегти все...), Видалити дублікати та Швидкий звіт...
Роздрукуйте електронне повідомлення без одержувачів за допомогою VBA
Виконайте кроки нижче, щоб застосувати VBA для друку вибраного електронного листа, ігноруючи його одержувачів в Outlook.
1. Виберіть електронний лист, який ви надрукуєте без одержувачів, і натисніть клавішу інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.
2. клацання Insert > Модулі, а потім вставте нижче коду VBA у вікно модуля, що відкривається.
VBA: Друк електронного листа без одержувачів
Public Sub PrintWithoutRecipient()
Dim oItem As Outlook.MailItem
Dim i As Long
For i = 1 To Application.ActiveExplorer.Selection.Count
Set oItem = Application.ActiveExplorer.Selection.Item(i)
oItem.To = ""
oItem.CC = ""
oItem.PrintOut
oItem.Close olDiscard
Set oItem = Nothing
Next
End Sub
3 Натисніть кнопку F5 або клацніть на прогін для запуску цього VBA.
Тепер вибраний електронний лист роздруковується без одержувачів.
Примітка: Цей VBA надрукує електронне повідомлення за допомогою принтера за замовчуванням та параметрів друку, які ви налаштовуєте в Outlook.
Статті по темі
Шукайте електронні листи за іменами одержувачів в Outlook
Підрахуйте кількість одержувачів у полях Кому, Копія та Прихована копія в Outlook
Друк одержувачів прихованих копій у надісланому електронному листі в Outlook
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.