Note: The other languages of the website are Google-translated. Back to English

Як надіслати графік періодичного електронного листа в Outlook?

У Microsoft Outlook ви можете легко надіслати іншим повторний графік зустрічей, зустрічей або завдань. Але якщо ви просто хочете надіслати регулярний електронний лист за розкладом без будь-якої зустрічі, зустрічі чи завдання, як ви можете це зробити? На жаль, Outlook не надає жодної функції для надсилання періодичних електронних листів за розкладом, але в нашому підручнику ми покажемо вам, як відправляти регулярні електронні листи за розкладом в Outlook.

Надішліть регулярний електронний лист за розкладом в Outlook із кодом VBA

Легко надсилайте розклад повторюваних листів у Outlook за допомогою чудового інструменту


Надішліть регулярний електронний лист за розкладом в Outlook із кодом VBA

Цей підручник розділений на чотири частини, після завершення цих частин вам вдасться надіслати регулярний електронний лист за розкладом. Будь ласка, виконайте наступне.

Частина 1: Створіть нову зустріч

1. Будь ласка, перейдіть до Календар переглянути, натиснувши Календар в Область переходів, а потім створіть нову зустріч, натиснувши Нове призначення при Головна Вкладка.

3 В Призначення діалогове вікно під Призначення вкладку. Тобі потрібно:

В: Введіть Тема B: Введіть адреси електронної пошти одержувачів у Місцезнаходження
C: Налаштуйте Час початку і Час закінчення D: Виберіть нагадування під Нагадування випадаючий список.
Якщо ви виберете 15 хвилин, це означає, що це буде нагадувати вам на 15 хвилин раніше, коли електронний лист буде відправлений.
E: Складіть своє тіло призначення.

примітки: Тема призначення стане повторюваною темою електронної пошти; та Призначення органу стане повторюваним тілом електронної пошти, коли одержувачі отримали електронне повідомлення.

Частина 2: Створіть нову категорію

Тепер вам потрібно створити нову категорію з назвою “Надіслати графік періодичного електронного листа”Наступним чином:

1 В Призначення діалогове вікно, натисніть Узагальнити > всі категорії в Теги група під Призначення Вкладка.

2 Коли Категорії кольорів спливаюче діалогове вікно, натисніть новий кнопку. В Додати нову категорію діалогове вікно, введіть “Надіслати графік періодичного електронного листаНазва поле; а потім виберіть колір у колір випадаючий список. Потім клацніть OK.

3. Тоді ви побачите “Надіслати графік періодичного електронного листаКатегорія вказана, встановіть прапорець і натисніть OK кнопки.

Частина 3: Встановіть повторення

Тепер настав час встановити повторність зустрічі.

1. клацання Повторення в опції група під Призначення вкладку. Дивіться знімок екрана:

2 В Рецидив призначення діалогове вікно, налаштуйте Повторення візерунок. Якщо вам потрібен час завершення, налаштуйте його під Діапазон рецидивів. А потім клацніть OK.

3. Коли він повернеться до Призначення діалогове вікно, натисніть Зберегти та закрити кнопку. Дивіться знімок екрана:

Частина 4: Використовуйте код VBA для надсилання електронної пошти за розкладом

1. Будь ласка, натисніть інший + F11 відкрити Microsoft Visual Basic для додатків діалог

2. Двічі клацніть на Project1 > Об'єкт Microsoft Outlook > ThisOutlookSession на лівій панелі. Дивіться знімок екрана:

3. Скопіюйте та вставте наступний код VBA у редактор VBA. А потім клацніть зберегти кнопки.

VBA: надсилання регулярного електронного листа за розкладом

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4. клацання інструменти > посилання відкрити посилання - Проект діалогове вікно. У діалоговому вікні позначте Бібліотека об’єктів Microsoft Word та натисніть кнопку OK кнопки.

5 Натисніть кнопку інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.

Коли Нагадування спливаючи, електронний лист буде автоматично надісланий одержувачам, яких ви ввели в поле Розташування в першій частині. Потім клацніть відхиляти в Нагадування діалогове вікно. І електронне повідомлення буде надсилатися щотижня в цей час. Дивіться знімок екрана:

примітки: Код VBA був успішно протестований в Outlook 2010 та пізніших версіях.


Легко надсилайте розклад повторюваних листів у Outlook за допомогою чудового інструменту

Для багатьох користувачів Outlook вищевказаний метод надто нудний, щоб його можна було правильно обробляти. Тут настійно рекомендую Запланувати автоматичну відправку особливість Kutools для Outlook. За допомогою цієї функції ви можете легко створювати кілька повторюваних електронних листів і планувати їх регулярне надсилання через щоденні, щотижневі, місячні чи щорічні інтервали. Будь ласка, зробіть наступне, щоб це зробити.

До завантажити Kutools для Outlook і спробуй.

1. клацання Кутулс > Запланувати автоматичну відправку > Створіть розклад автоматичних надсилань.

2. Після цього відкриється вікно повідомлення, і вам потрібно:

2.1) Виберіть одержувачів електронної пошти в папці До, Копія or Бек необхідних полів, а потім заповніть електронний лист предмет;
2.2) Скласти тіло електронної пошти;
2.3) Клацніть Повторення під Kutools Повторюється вкладку. Дивіться знімок екрана:

3. Тепер Повторення електронних листів з'явиться діалогове вікно, потрібно вказати повторюваний час, повторюваний шаблон і діапазон рецидивів для електронної пошти, а потім натисніть кнопку OK кнопки.

4. Тепер він повертається у вікно повідомлення, клацніть Зберегти та закрити кнопку, щоб зберегти повторювані налаштування та закрити вікно.

Порада: Ви можете повторити вищезазначені кроки з 1 по 4, щоб створити кілька повторюваних листів, як вам потрібно.

5. Тепер увімкніть цю функцію, натиснувши Кутулс > Запланувати автоматичну відправку > Увімкнути

6. На відкритті Kutools для Outlook діалогове вікно натисніть кнопку ОК.

Після завершення вищезазначених налаштувань повторювані електронні листи будуть автоматично надсилатися після досягнення зазначеної дати та часу.

Примітка: Ви можете легко керувати своїми повторюваними електронними листами наступним чином.

1. клацання Кутулс > Запланувати автоматичну відправку > Керуйте розкладом автоматичних надсилань.

2 В Редагувати розклад автоматичних надсилань вікно, можна створити новий повторювана електронна пошта, редагувати, видаляти, ввімкнути or від існуючий повторюваний електронний лист, як вам потрібно. Або ви можете натиснути кнопку Ввійти , щоб переглянути історію надсилання повторюваних листів.

Натисніть, щоб дізнатись більше про цю функцію.

  Kutools для Outlook містить понад 100 потужних функцій для Microsoft Outlook. Безкоштовно спробувати без обмежень протягом 60 днів. Завантажити зараз!


Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Коментарі (168)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Метод допоміг. Це спрацювало для початкової зустрічі, створеної, коли я її тестував. Але потім він перестав працювати.
Цей коментар був мінімізований модератором на сайті
У мене була така ж проблема, я повторив кроки кілька разів, і тепер він взагалі не працює, не надсилаються електронні листи чи щось інше. Чи вдалося вам це виправити?
Цей коментар був мінімізований модератором на сайті
Привіт, я зміг налаштувати повторювану електронну пошту, виконавши наведені вище дії, але коли я створив гіперпосилання в тілі зустрічі, коли подія ініціювалася і я отримав лист на пошту, гіперпосилання було перетворено на вихідне посилання. Будь-яка допомога цінується, дякую.
Цей коментар був мінімізований модератором на сайті
Дякую! Це спрацювало. Чи є спосіб включити вкладення в електронний лист, який надсилається? Я спробував виконати тест із додаванням вкладеного файлу до події календаря, але він не надходить у електронному листі.
Цей коментар був мінімізований модератором на сайті
ви коли-небудь отримували відповідь про те, як додати вкладення? Спасибі!
Цей коментар був мінімізований модератором на сайті
Я змусив це працювати для тестової електронної пошти, але тепер він більше нічого не робить, і я видалив все та повторив кроки, чи є в цьому більше? Я також в перспективі 2013
Цей коментар був мінімізований модератором на сайті
У мене була така ж проблема. Це спрацювало в перший раз, але періодичне нагадування про зустріч, схоже, не викликало електронного листа. Хтось знайшов рішення цієї проблеми?
Цей коментар був мінімізований модератором на сайті
[quote]У мене це спрацювало для тестової електронної пошти, але тепер вона більше нічого не робить, я видалив усе та повторив кроки, чи є в цьому більше? Я також в перспективі 2013Автор Wonderful[/quote] Ви коли-небудь вирішували це? Я щойно налаштував це і бачу те саме, що й ви. Перший раз працювало чудово, потім нічого.
Цей коментар був мінімізований модератором на сайті
Зрештою я вирішив це, увімкнувши макроси в Outlook, який за замовчуванням вимкнено. Єдина проблема, яку я маю зараз, полягає в тому, що текст в електронному листі є лише простим текстом, без жирного шрифту, зміни розміру шрифту чи кольору тощо. Чи є спосіб змінити код вище, щоб у вас був текст у форматі RTF або HTML в електронній пошті?
Цей коментар був мінімізований модератором на сайті
Привіт, Ви вирішили це. У мене така ж проблема. Спробував це, але не працює. Sub SetMailFormat_2002_2003_2007_2010(ByRef mail як об'єкт) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32(mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingPromatty)No,GindingPromatty,GetBodyFormat,No. = 0 'OlBodyFormat.olFormatPlain = 1 'OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 Якщо (mailFormat = 1) Тоді mailFormat = 2 mail.GetType().InvokeMember("Bodyflection",.B_in Reformat_Format",.B_in Reflection,. Нічого, mail, New Object() {mailFormat}) End Sub Private Sub Application_Reminder(ByVal Item As Object) Dim MItem As MailItem Встановити MItem = Application.CreateItem(olMailItem) Якщо Item.MessageClass "IPM.Appointment" Потім вийти з Sub If Item .Категорії "Надіслати повторювану електронну пошту за розкладом" Потім вийдіть із Sub MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = Нічого Кінець Sub
Цей коментар був мінімізований модератором на сайті
[quote]Зрештою я вирішив це, увімкнувши макроси в Outlook, який за замовчуванням вимкнено. Єдина проблема, яку я маю зараз, полягає в тому, що текст в електронному листі є лише простим текстом, без жирного шрифту, зміни розміру шрифту чи кольору тощо. Чи є спосіб змінити код вище, щоб у вас був текст у форматі RTF або HTML в електронній пошті?Від Кайла[/quote] Привіт, чи знайшли ви рішення для цього. Мені це потрібно :) Кім
Цей коментар був мінімізований модератором на сайті
Ви також можете розглянути можливість використання планувальника завдань Windows для чогось подібного. Він простий у використанні і може навіть обробляти насадки.
Цей коментар був мінімізований модератором на сайті
Я спробував із завданням, але я нічого не отримую, оскільки вкладення не потрапляє в тіло електронного листа. Підкажіть, будь ласка, як ви це зробили.
Цей коментар був мінімізований модератором на сайті
Який код ви використовуєте? Він не долучив до електронного листа вкладення.
Цей коментар був мінімізований модератором на сайті
як ти його відключаєш?
Цей коментар був мінімізований модератором на сайті
Щоб припинити надсилання повторюваних електронних листів, ви можете: 1. Зовсім видалити зустріч. 2. Змінити або видалити встановлену категорію. 3. Застосуйте дату «Закінчення до» до повторення зустрічі.
Цей коментар був мінімізований модератором на сайті
вам потрібен відкритий / запущений Outlook, щоб надсилати повторювану пошту?
Цей коментар був мінімізований модератором на сайті
Чи працює цей код з Office 365 - Outlook 2013? Я виконував кроки кілька разів, також увімкнув макроси. Я отримую нагадування й натискаю відхилити, але листи ніколи не надсилаються.
Цей коментар був мінімізований модератором на сайті
Привіт, подивіться це – я думаю, вам дуже сподобається ця функція. Більше жодних щотижневих шаблонів електронних листів
Цей коментар був мінімізований модератором на сайті
Чи є спосіб надіслати до списку розсилки в контактах?
Цей коментар був мінімізований модератором на сайті
Так, Аарон, мені потрібно було це зробити самому. Я спробував додати список розсилки (Контактна група Outlook) під назвою «Група специфікацій». Це не надіслали. Однак я змінив назву списку на «Spec@Group» (щоб він виглядав як справжня адреса електронної пошти), і це спрацювало ідеально. Щоб його підняли, має потрібен знак "@". Щасливий здогад! :Лол:
Цей коментар був мінімізований модератором на сайті
Це добре спрацювало. Тепер мені потрібен той самий електронний лист, щоб перейти до кількох груп. Хтось може допомогти? Private Sub Application_Reminder(ByVal Item As Object) Dim CF As Folder Set CF = Application.Session.GetDefaultFolder(olFolderContacts) Dim DLI As DistListItem Set DLI = CF.Items("GDL Group 1") Dim MItem As MailItem Set Application. CreateItem(olMailItem) Якщо Item.MessageClass "IPM.Appointment", то вийдіть із Sub If Item.Categories "Recurring GDL Recert Email" Потім вийдіть із Sub MItem.To = DLI MItem.Subject = Item.Subject MItem.Body = Item.Body MItem. Надіслати Набір MItem = Нічого Кінець Sub
Цей коментар був мінімізований модератором на сайті
Створіть інший список розповсюдження, який містить/вказує на інші списки розповсюдження, які ви вже налаштували, які ви хочете включити.
Цей коментар був мінімізований модератором на сайті
Чи можна запланувати надсилання електронного листа в Outlook, коли комп’ютер не буде. Наприклад, я хотів би надіслати нагадування про зустріч у неділю для зустрічі в понеділок, але я не на роботі по неділях, тож як мені змусити цей електронний лист вийти в неділю, коли я не на роботі і мій комп’ютер не працює вимкнено? Спасибі!
Цей коментар був мінімізований модератором на сайті
Код VBA не з'явився, коли я натиснув ALT і F11. Мені вдалося підтягнути Microsoft Visual Basic для додатків, але коду не було. Чи можете ви порадити? Дякую, Радж
Цей коментар був мінімізований модератором на сайті
Привіт Радж, код VBA не повинен бути присутнім. Якщо ви дотримуєтеся інструкції вище, коли ви двічі клацнете на «ThisOutlookSession», він повинен бути порожнім. Ви повинні скопіювати та вставити код, показаний у посібнику, у вікно «ThisOutlookSession», а потім зберегти його. Сподіваюся, це допоможе.
Цей коментар був мінімізований модератором на сайті
Привіт, коли я виконаю всі кроки, збережу та йду, створюй ще одну електронну пошту – код все ще там з минулого разу. Чи додано код до категорії вибраної, тому не потрібно додавати код для кожного листа?
Цей коментар був мінімізований модератором на сайті
Привіт, Бонні, код VBA потрібно додати лише один раз (для першого повторюваного електронного листа). Якщо ви налаштуєте більше однієї постійної електронної пошти, просто пропустіть цей крок.
Цей коментар був мінімізований модератором на сайті
У мене є Office 2016, і я спробував це, точно дотримуючись ваших інструкцій. Це спрацювало!! Дуже дякую. Мені довелося змінити параметри безпеки макросів у Outlook 2016 і редакторі VBA, щоб запрацювати, але після того, як це було зроблено, інструкції вийшли легко.
Цей коментар був мінімізований модератором на сайті
Привіт, як ви змінили параметри безпеки макросу в Outlook і на що ви їх змінили?
Цей коментар був мінімізований модератором на сайті
Отже, дві речі: одна вона не відображається так, як я написав, тобто немає жирних символів, і друга, як мені додати підпис? тому що воно відображається як гіперпосилання замість мого звичайного підпису. Дякую за допомогу.
Цей коментар був мінімізований модератором на сайті
Alex Mine також з’являється без форматування. Як ми його зберігаємо?
Цей коментар був мінімізований модератором на сайті
Він надіслав добре, але відкинуло все модне форматування, яке я маю в тілі моєї електронної пошти. Як змусити його зберегти це форматування???
Цей коментар був мінімізований модератором на сайті
Мені потрібно знати, як\якщо ви можете прикріпити таблицю Excel Spreed?
Цей коментар був мінімізований модератором на сайті
Гей, хлопці. Цей код чудово працює, але у мене є невелика проблема. Електронний лист, який я намагаюся надіслати, є частиною двох категорій: Надіслати повідомлення (використовується макросом) і PROGRAMARI RED-TEAM. Макрос працює нормально, коли я додаю лише категорію Надіслати повідомлення, але як тільки додається будь-яка інша категорія, макрос припиняє надсилати електронні листи. Ось код поки що. Будь ласка, допоможіть :P Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Set objMsg = Application.CreateItem(olMailItem) 'IPM.TaskItem для спостереження за нагадуваннями про завдання If Item.MessageClass "IPM Ex.Appointment End If" Item.Categories "Надіслати повідомлення" Потім вийти з Sub End Якщо objMsg.To = Item.Location objMsg.BCC = "andrei.buldus@promotor.ws" objMsg.Subject = "Закінчується термін дії авторизації/контрактної служби" objMsg.Body = "Buna ziua," & vbNewLine & vbNewLine & _ "Відповідати базі відомостей про дату, авторизацію/контракт на обслуговування, інхеіат intre compania nostra si " + Item.Subject + " термін дії закінчиться до 14 днів." & vbNewLine & _ "Acest lucru este in atentia departamentului nostru Service, si urmeaza sa fiti contactati in cel mai scurt timp posibil pentru a stabili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _ "Ва багато разів для інкредереа акордата." & vbNewLine & _ "Promotor Import Export SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Acesta este un mesaj automat." objMsg.Send Встановити objMsg = Нічого Кінець Під
Цей коментар був мінімізований модератором на сайті
він зупиняється через рядок.... Якщо Item.Categories <> "Надіслати розклад повторюваних електронних листів", то вийдіть із підпорядкування
коли ви додаєте іншу категорію, це спонукає до підпорядкованого виходу.... можливо, скористайтеся if instr(1,item.categories,"Send Schedule Recurring Email") =0, то вийти з підпорядкування або щось подібне...
There are no comments posted here yet
Load More
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця