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. в Назначение диалог под Назначение таб. Вам нужно:

A: Введите Тема 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 for Outlook и попробуйте.

1. Нажмите Кутулс > Запланировать автоматическую отправку > Создать расписание автоматической отправки.

2. Затем открывается окно сообщения, и вам необходимо:

2.1) Выберите получателей электронной почты в Кому, Копия or Bcc поля, как вам нужно, а затем заполните электронное письмо предмет;
2.2) Составьте тело письма;
2.3) Нажмите Повторение под Kutools Повторяющийся таб. Смотрите скриншот:

3. Теперь Повторение электронных писем появится диалоговое окно, в котором нужно указать повторяющееся время, повторяющийся узор и диапазон повторения для сообщения электронной почты, а затем щелкните значок OK кнопку.

4. Теперь он вернется в окно сообщения, нажмите Сохранить и закрыть кнопку, чтобы сохранить повторяющиеся настройки и закрыть окно.

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

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

6. В дебюте Kutools для Outlook диалоговое окно, нажмите ОК.

После завершения вышеуказанных настроек повторяющиеся электронные письма будут отправляться автоматически по достижении указанной даты и времени.

Примечание: Вы можете легко управлять своими повторяющимися электронными письмами следующим образом.

1. Нажмите Кутулс > Запланировать автоматическую отправку > Управление расписанием автоматической отправки.

2. в Расписание автоматической отправки окно, вы можете создать новинка повторяющееся электронное письмо, редактировать, удалять, включить or от существующее повторяющееся электронное письмо по мере необходимости. Или вы можете щелкнуть Журнал значок, чтобы просмотреть историю отправки повторяющихся писем.

Нажмите, чтобы узнать больше об этой функции.

  Kutools для Outlook включает более 100 мощных функций для Microsoft Outlook. Бесплатная пробная версия без ограничений в течение 60 дней. Скачать сейчас!


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (167)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Метод действительно помог. Это сработало для первоначальной встречи, созданной, когда я тестировал ее. Но потом перестал работать.
Пандуранг
Этот комментарий был сведен к минимуму модератором на сайте
У меня была та же проблема, я повторил шаги несколько раз, и теперь она вообще не работает, электронные письма не отправляются или что-то в этом роде. Вы смогли это исправить?
Замечательный
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я смог настроить повторяющуюся электронную почту, выполнив описанные выше шаги, но когда я создал гиперссылку в теле встречи, когда событие было запущено, и я получил письмо по почте, гиперссылка была преобразована в необработанную ссылку. Любая помощь приветствуется, спасибо.
Харшаврат
Этот комментарий был сведен к минимуму модератором на сайте
Благодарю вас! Это сработало. Есть ли способ включить вложение в отправляемое электронное письмо? Я попробовал тест с добавлением вложения к событию календаря, но оно не приходит по электронной почте.
Салли
Этот комментарий был сведен к минимуму модератором на сайте
Вы когда-нибудь получали ответ о том, как добавить вложение? Спасибо!
Мишель
Этот комментарий был сведен к минимуму модератором на сайте
Я заставил это работать для тестового электронного письма, но теперь оно больше ничего не делает, и я удалил все и повторил шаги, есть ли что-то еще? у меня тоже стоит Outlook 2013
Замечательный
Этот комментарий был сведен к минимуму модератором на сайте
У меня была такая же проблема. Это сработало в первый раз, но повторяющееся напоминание о встрече, похоже, не вызвало электронное письмо. Кто-нибудь нашел решение этой проблемы?
конфеты
Этот комментарий был сведен к минимуму модератором на сайте
[quote]Я заставил это работать для тестового письма, но теперь оно больше ничего не делает, и я удалил все и повторил шаги, что-то еще? у меня тоже стоит Outlook 2013Замечательно[/quote] Вы решили эту проблему? Я только что установил это и вижу то же самое, что и вы. Отлично сработало в первый раз, потом ничего.
Энн
Этот комментарий был сведен к минимуму модератором на сайте
В конце концов я разобрался с этим, включив макросы в Outlook, которые по умолчанию отключены. Единственная проблема, с которой я столкнулся сейчас, заключается в том, что текст в электронном письме представляет собой только обычный текст, без жирного шрифта, изменения размера шрифта или цвета и т. Д. Есть ли способ изменить приведенный выше код, чтобы в электронном письме был текст RTF или HTML?
рукав моря
Этот комментарий был сведен к минимуму модератором на сайте
Привет, ты решил это. У меня такая же проблема Пробовал это, но не работает. Sub SetMailFormat_2002_2003_2007_2010(ByRef mail As Object) Dim mailFormat As System.Int32 mailFormat = Convert.ToInt32(mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags.GetProperty, Nothing, mail, Nothing)) 'OlBodyFormat.olFormatUnspecified = 0 'OlBodyFormat.olFormatPlain = 1 'OlBodyFormat.olFormatHTML = 2 'OlBodyFormat.olFormatRichText = 3 If (mailFormat = 1) Then mailFormat = 2 mail.GetType().InvokeMember("BodyFormat", _ Reflection.BindingFlags.SetProperty, _ Ничего, почта, Новый объект() {mailFormat}) End Sub Private Sub Application_Reminder(ByVal Item As Object) Dim MItem As MailItem Set MItem = Application.CreateItem(olMailItem) If Item.MessageClass "IPM.Appointment" Then Exit Sub If Item .Categories «Отправить повторяющееся электронное письмо по расписанию», затем выйти из подпрограммы MItem.To = Item.Location MItem.Subject = Item.Subject MItem.Body = Item.Body MItem.Send Set MItem = Nothing End Sub
Ким Брондберг
Этот комментарий был сведен к минимуму модератором на сайте
[quote] В конце концов я разобрался с этим, включив макросы в Outlook, которые по умолчанию отключены. Единственная проблема, с которой я столкнулся сейчас, заключается в том, что текст в электронном письме представляет собой только обычный текст, без жирного шрифта, изменения размера шрифта или цвета и т. Д. Есть ли способ изменить приведенный выше код, чтобы в электронном письме был текст RTF или HTML?Кайл[/quote] Привет, ты нашел решение для этого. Мне это нужно :) Ким
Ким Брондберг
Этот комментарий был сведен к минимуму модератором на сайте
Вы также можете рассмотреть возможность использования планировщика заданий Windows для чего-то подобного. Он прост в использовании и может даже обрабатывать вложения.
Пит
Этот комментарий был сведен к минимуму модератором на сайте
Я пробовал с задачей, но ничего не получаю, так как вложение не попадает в тело письма. Посоветуйте, как вы это сделали.
Израиль
Этот комментарий был сведен к минимуму модератором на сайте
Какой код вы используете? Он не прикрепил к письму вложения.
Израиль
Этот комментарий был сведен к минимуму модератором на сайте
как ты его выключаешь?
бубубубуббб
Этот комментарий был сведен к минимуму модератором на сайте
Навскидку, чтобы прекратить отправку повторяющихся электронных писем, вы можете: 1. Полностью удалить встречу. 2. Изменить или удалить установленную категорию. 3. Примените дату «Окончание» к повторению встречи.
рукав моря
Этот комментарий был сведен к минимуму модератором на сайте
Вам нужно открыть / запустить Outlook для отправки повторяющейся почты?
Патрик
Этот комментарий был сведен к минимуму модератором на сайте
Работает ли этот код с Office 365 — Outlook 2013? Я выполнил шаги несколько раз, также включил макросы. Я получаю напоминание и нажимаю «Отклонить», но письма так и не отправляются.
Цедилка
Этот комментарий был сведен к минимуму модератором на сайте
Эй, взгляните на это — я думаю, вам обязательно понравится эта функция. Больше никаких еженедельных электронных писем с шаблонами
женщина
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ отправить в список рассылки в контактах?
Аарон
Этот комментарий был сведен к минимуму модератором на сайте
Да, Аарон, мне нужно было сделать это самому. Я попытался добавить список рассылки (контактная группа Outlook) под названием «Spec Group». Это не отправил. Однако я изменил имя списка на «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 MItem = 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. Отправить Set MItem = Nothing End Sub
Трейси
Этот комментарий был сведен к минимуму модератором на сайте
Создайте еще один список рассылки, который содержит/указывает на другие списки рассылки, которые у вас уже есть, и которые вы хотите включить.
Кристал
Этот комментарий был сведен к минимуму модератором на сайте
Можно ли запланировать отправку электронной почты в Outlook, когда компьютера нет. Например, я хотел бы отправить напоминание о встрече в воскресенье для встречи в понедельник, но я не на работе по воскресеньям, так как же мне сделать так, чтобы это электронное письмо отправлялось в воскресенье, когда я не на работе, а мой компьютер выключенный? Спасибо!
Эшли
Этот комментарий был сведен к минимуму модератором на сайте
Код VBA не появлялся, когда я нажимал ALT и F11. Мне удалось открыть Microsoft Visual Basic для приложений, но кода там не было. Вы могли бы посоветовать? Спасибо, Радж
RD
Этот комментарий был сведен к минимуму модератором на сайте
Привет Радж, код VBA не должен присутствовать. Если вы будете следовать приведенному выше руководству, при двойном щелчке на «ThisOutlookSession» он должен быть пустым. Вы должны скопировать и вставить код, показанный в руководстве, в окно «ThisOutlookSession», а затем сохранить его. Надеюсь это поможет.
KYLE
Этот комментарий был сведен к минимуму модератором на сайте
Привет, когда я выполню все шаги, сохраню и отправлю еще одно электронное письмо - код все еще там с прошлого раза. Прикреплен ли код к выбранной категории, поэтому нет необходимости добавлять код для каждого электронного письма?
Бонни
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Бонни, код VBA нужно добавить только один раз (для первого повторяющегося электронного письма). Если вы настраиваете более одного повторяющегося электронного письма, просто пропустите этот шаг.
рукав моря
Этот комментарий был сведен к минимуму модератором на сайте
У меня офис 2016, и я попробовал это, точно следуя вашим инструкциям. Это сработало!! Большое спасибо. Мне пришлось изменить настройки безопасности макросов в Outlook 2016 и редакторе VBA, чтобы заставить его работать, но как только это было сделано, инструкции пошли легко.
Уильям
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Как вы изменили настройки безопасности макросов в Outlook и на что вы их изменили?
Ahmad
Этот комментарий был сведен к минимуму модератором на сайте
Итак, две вещи: во-первых, он не отображается так, как я написал, в IE нет полужирных символов, а во-вторых, как добавить подпись? потому что он отображается как гиперссылка вместо моей обычной подписи. Спасибо за помощь.
Alex
Этот комментарий был сведен к минимуму модератором на сайте
Алекс Майн также появляется с удаленным форматированием. Как нам его сохранить?
Трейси
Этот комментарий был сведен к минимуму модератором на сайте
Оно было отправлено нормально, но в нем было удалено все причудливое форматирование, которое у меня есть в теле письма. Как мне заставить его сохранить это форматирование???
Трейси
Этот комментарий был сведен к минимуму модератором на сайте
Мне нужно знать, как\если вы можете прикрепить лист Excel?
Дуэйн Каупертуэйт
Этот комментарий был сведен к минимуму модератором на сайте
Привет, ребята. Этот код отлично работает, но у меня есть небольшая проблема. Электронное письмо, которое я пытаюсь отправить, относится к двум категориям: Отправить сообщение (используется макросом) и 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.Appointment" Затем выйдите из Sub End If If Item.Categories "Отправить сообщение" Затем выйдите из Sub End If objMsg.To = Item.Location objMsg.BCC = "andrei.buldus@promotor.ws" objMsg.Subject = "Instiintare expirare Авторизация/контрактная служба" objMsg.Body = "Buna ziua," & vbNewLine & vbNewLine & _ "Подтвердить базу данных о дате, авторизацию/контракт на обслуживание, заключенную между компанией "+ Item.Subject +" urmeaza sa истечет в течение 14 дней." & vbNewLine & _ "Acest lucru este in atentia Departmentamentului Nostru Service, si urmeaza sa fiti contactati in cel mai scurt timp posibil pentru a stabili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _ "Va multumim pentru increderea acordata." & vbNewLine & _ "Promotor Import Export SRL" & vbNewLine & vbNewLine & vbNewLine & _ "Зарегистрируйтесь автоматически." objMsg.Send Set objMsg = Ничего Конец Подпрограммы
Андрей Булдус
Этот комментарий был сведен к минимуму модератором на сайте
он останавливается из-за строки .... Если Item.Categories <> «Отправить повторяющееся электронное письмо по расписанию», затем выйдите из Sub
когда вы добавляете другую категорию, она вызывает выходную подпрограмму.... возможно, используйте if instr(1,item.categories,"Send Schedule Recurring Email") =0, затем выйдите из подпрограммы или что-то в этом роде...
победитель
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0  Характеристики
Предлагаемые места