Як конвертувати декілька нотаток в окремі електронні листи одночасно в Outlook?
Іноді вам може знадобитися створити окремі нові електронні листи із вмістом приміток у програмі Outlook. Зазвичай ви можете перетягнути всі нотатки в піктограму Пошта на навігаційній панелі, але всі нотатки будуть вставлені в один електронний лист. Як можна перетворити кілька нотаток на нові електронні листи окремо в Outlook?
Перетворюйте кілька приміток на окремі електронні листи одночасно за допомогою коду VBA
Перетворюйте кілька приміток на окремі електронні листи одночасно за допомогою коду VBA
Щоб створити кілька окремих електронних листів на основі вмісту приміток, застосуйте такий код VBA:
1. Перейдіть на панель Нотатки, а потім виберіть нотатки, які потрібно перетворити на електронні листи.
2. Потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
3. А потім натисніть Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль:
Код VBA: Перетворити кілька приміток на окремі електронні листи одночасно:
Sub BatchCreateEmailsFromNotes()
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xItem As Object
Dim xNote As Outlook.NoteItem
Dim xMail As Outlook.MailItem
Dim xYesNo As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection Is Nothing Or xSelection.Count = 0 Then Exit Sub
xYesNo = MsgBox("Are you sure to convert the selected notes to emails?", vbOKCancel + vbQuestion, "Kutools for Outlook")
If xYesNo = VbMsgBoxResult.vbCancel Then
Exit Sub
End If
For Each xItem In xSelection
If xItem.Class = olNote Then
Set xNote = xItem
Set xMail = Outlook.Application.CreateItem(OlMailItem)
With xMail
.Subject = "Note: " & Mid(xNote.Body, 1, 10)
.Body = xNote.Body
.Attachments.Add xNote
.Display
End With
End If
Next
End Sub
4. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться вікно повідомлення, щоб нагадати вам, якщо ви хочете конвертувати нотатки в електронні листи, натисніть OK, див. скріншот:
5. А потім усі вибрані нотатки були перетворені в електронні листи, як показано на наступному скріншоті:
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.