Як створити нагадування Outlook з електронної таблиці Excel?
У цій статті йдеться про створення нагадувань Outlook на основі даних електронної таблиці Excel.
Crete Outlook нагадування з таблиці Excel з кодом VBA
Створюйте нагадування Outlook з електронної таблиці Excel із кодом VBA
Якщо ви хочете створити нагадування Outlook з Excel, виконайте наступні дії.
1. Створіть аркуш, що містить заголовки стовпців та відповідні поля нагадування, як показано на знімку екрана нижче.
примітки: Для статус зайнятості стовпець, номер 2 означає, що нагадування відображатиметься як Зайнятий у календарі Outlook. Ви можете змінити його на 1 (попередньо), 3 (поза офісом), 4 (Робота в інших місцях)або 5 (безкоштовно) як вам потрібно.
2 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
3 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте код VBA у вікно коду.
Код VBA: Створення нагадувань Outlook з електронної таблиці Excel
Sub AddAppointments()
'Update by Extendoffice 20180608
Dim I As Long
Dim xRg As Range
Dim xOutApp As Object
Dim xOutItem As Object
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = Range("A2:G2")
For I = 1 To xRg.Rows.Count
Set xOutItem = xOutApp.createitem(1)
Debug.Print xRg.Cells(I, 1).Value
xOutItem.Subject = xRg.Cells(I, 1).Value
xOutItem.Location = xRg.Cells(I, 2).Value
xOutItem.Start = xRg.Cells(I, 3).Value
xOutItem.Duration = xRg.Cells(I, 4).Value
If Trim(xRg.Cells(I, 5).Value) = "" Then
xOutItem.BusyStatus = 2
Else
xOutItem.BusyStatus = xRg.Cells(I, 5).Value
End If
If xRg.Cells(I, 6).Value > 0 Then
xOutItem.ReminderSet = True
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
Else
xOutItem.ReminderSet = False
End If
xOutItem.Body = xRg.Cells(I, 7).Value
xOutItem.Save
Set xOutItem = Nothing
Next
Set xOutApp = Nothing
End Sub
примітки: У наведеному вище коді, A2: G2 - це діапазон даних, на основі якого ви хочете створити зустрічі.
4 Натисніть кнопку F5 клавішу або натисніть кнопку Виконати, щоб запустити код. Тоді всі зустрічі з певними полями будуть відразу вставлені в календар вашого Outlook.
А потім ви можете перейти до календаря вашого прогнозу, щоб переглянути результати, див. Знімок екрана:
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.