メインコンテンツへスキップ

Outlookで定期的なスケジュールの電子メールを送信するにはどうすればよいですか?

Microsoft Outlookでは、スケジュールの定期的な予定、会議、またはタスクを他のユーザーに簡単に送信できます。 しかし、予定、会議、タスクなしでスケジュールの定期的な電子メールを送信したいだけの場合、どうすればよいでしょうか。 残念ながら、Outlookには定期的なスケジュールの電子メールを送信する機能はありませんが、チュートリアルでは、Outlookで定期的なスケジュールの電子メールを送信する方法を説明します。

OutlookでVBAコードを使用してスケジュール定期メールを送信する

すばらしいツールを使用して、Outlookでスケジュールの定期的なメールを簡単に送信できます


OutlookでVBAコードを使用してスケジュール定期メールを送信する

このチュートリアルはXNUMXつのパートに分かれており、これらのパートを完了すると、スケジュールの定期的な電子メールを送信できます。 次のようにしてください。

パート1:新しい予定を作成する

1.に移動してください カレンダー クリックして表示 カレンダー セクションに ナビゲーションペイン、をクリックして新しい予定を作成します 新しい予定ホーム タブには何も表示されないことに注意してください。

3。 の中に 任命 下のダイアログ 任命 タブ。 必要がある:

A:を入力してください 件名 B:受信者のメールアドレスを 会場
C:構成 開始時刻終了時間 D:下のリマインダーを選択します リマインダー ドロップダウンリスト。
15分を選択すると、メールが送信されたときに15分早く通知されます。
E:アポイントメントボディを作成します。

Note予定の件名 定期的なメールの件名になります。 そしてその 任命機関 受信者が電子メールを受信すると、定期的な電子メールの本文になります。

パート2:新しいカテゴリを作成する

次に、「」という名前の新しいカテゴリを作成する必要があります。スケジュール定期メールを送信する" 次のように:

1。 の中に 任命 ダイアログをクリックしてください 分類する > すべてのカテゴリ セクションに タグ 下のグループ 任命 タブには何も表示されないことに注意してください。

2。 いつ カラーカテゴリ ダイアログがポップアップします。クリックしてください NEW ボタン。 の中に 新しいカテゴリを追加 ダイアログに「スケジュール定期メールを送信する「中 お名前 フィールド; 次に、で色を選択します ドロップダウンリスト。 次に、をクリックします OK.

3.次に、「スケジュール定期メールを送信する」カテゴリがリストされているので、チェックボックスをオンにしてからクリックしてください OK

パート3:繰り返しを設定する

さて、アポイントメントの繰り返しを設定する時が来ました。

1。 クリック 再発 セクションに オプション 下のグループ 任命 タブ。 スクリーンショットを参照してください:

2。 の中に 予定の再発 ダイアログで、 再発 パターン。 終了時間が必要な場合は、下で構成してください 再発の範囲。 そして、 OK.

3.に戻ったとき 任命 ダイアログをクリックしてください 保存して閉じる ボタン。 スクリーンショットを参照してください:

パート4:VBAコードを使用してSchedule RecurringEmailを送信する

1.を押してください 他の + F11 を開く アプリケーション向け Microsoft Visual Basic ダイアログ。

2.をダブルクリックします Project1 > MicrosoftOutlookオブジェクト > このOutlookSession 左側のペインで。 スクリーンショットを参照してください:

3.次のVBAコードをコピーしてVBAエディターに貼り付けます。 そして、 Save

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。 クリック ツール > 参考文献 を開く 参考文献 - 事業 ダイアログ。 ダイアログで、 MicrosoftWordオブジェクトライブラリ オプションをクリックして OK

5。 プレス 他の + Q 同時にキーを閉じて アプリケーション向け Microsoft Visual Basic 窓。

リマインダー ポップアップすると、最初の部分の[場所]フィールドに入力した受信者に電子メールが自動的に送信されます。 次に、をクリックします 閉じる セクションに リマインダー ダイアログ。 そして、この時間帯に毎日定期的にメールが送信されます。 スクリーンショットを参照してください:

Note:VBAコードは、Outlook2010以降のバージョンで正常にテストされました。


すばらしいツールを使用して、Outlookでスケジュールの定期的なメールを簡単に送信できます

多くのOutlookユーザーにとって、上記の方法は面倒で正しく処理できません。 ここで強くお勧めします 自動送信をスケジュールする の特徴 Outlook用Kutools。 この機能を使用すると、複数の定期的な電子メールを簡単に作成し、必要に応じて、これらの電子メールを毎日、毎週、毎月、または毎年の間隔で定期的に送信するようにスケジュールできます。 それを成し遂げるために次のようにしてください。

  Outlook用Kutoolsをダウンロード そして試してみてください。

1。 クリック クツール > 自動送信をスケジュールする > 自動送信スケジュールを作成する.

2.次に、メッセージウィンドウが開き、次のことを行う必要があります。

2.1)でメールの受信者を選択します に、Cc or Bcc 必要に応じてフィールドに入力し、メールに記入してください 主題;
2.2)メール本文を作成します。
2.3)をクリック 再発Kutools繰り返し タブ。 スクリーンショットを参照してください:

3.今、 メールの繰り返し ダイアログボックスがポップアップします。指定する必要があります 繰り返し時間, 繰り返しパターン再発の範囲 メールの場合は、をクリックします OK

4.メッセージウィンドウに戻りますので、をクリックします 保存して閉じる ボタンをクリックして、定期的な設定を保存し、ウィンドウを閉じます。

ヒント: 上記の手順1〜4を繰り返して、必要に応じて複数の定期的なメールを作成できます。

5.次に、をクリックして機能をオンにします クツール > 自動送信をスケジュールする > 有効にします。

6.オープニングで Outlook用Kutools ダイアログボックスで、をクリックします。 [OK]をクリックします。

上記の設定を完了すると、指定した日時に達すると、定期的なメールが自動的に送信されます。

注: 定期的なメールは次のように簡単に管理できます。

1。 クリック クツール > 自動送信をスケジュールする > 自動送信スケジュールを管理する.

2。 の中に 自動送信スケジュールの管理 ウィンドウ、あなたは作成することができます 新製品 定期的なメール、 編集、削除、 オンにする or オフ 必要に応じて、既存の定期的なメール。 または、をクリックすることもできます ログ 定期的なメールの送信履歴を表示するアイコン。

この機能の詳細については、ここをクリックしてください.

  Outlook用Kutools Microsoft Outlook 用の 100 以上の強力な機能が含まれています。 60 日間は制限なく無料でお試しいただけます。 ダウンロード中!


最高のオフィス生産性向上ツール

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

Comments (171)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,
J'utilise outlook depuis peu, et j'ai découvert cette manipulation pour envoyer un mail récurrent. Cela a très bien fonctionné la première fois, mais je ne comprends pas, ça ne fonctionne plus. Cela a peut-être de l'importance, mais comme je travaille sur 2 ordinateurs différents, le code VBA a aussi été intégré sur ma deuxième session outlook. Auriez-vous une explication je vous prie ?
Merci d'avance
This comment was minimized by the moderator on the site
Hi Pink,
Which Outlook version are you using? Is there a reminder dialog box popping up afterwards?
This comment was minimized by the moderator on the site
This feature does not work for me no matter what I do and from the above thread, it doesn't look like they are attempting to fix it much less address it--I don't see any responses from the developer.

It's too bad because everything else with this product works very well.
This comment was minimized by the moderator on the site
Hi Rhonda Corn,
Can you provide the emails under the following folder path?
You can compress it and send it to
C:\Users\User Name\AppData\Roaming\ExtendOffice\OutlookKutools\KTORecurringEmail
This comment was minimized by the moderator on the site
How do I get this to run 2 different scheduled emails?
This comment was minimized by the moderator on the site
Hi, 
When I put recipients names into "location" it changes "appointment" to "meeting" invite, is this working as intended? It doesn't allow me to "save and close", but rather "send" the invite now which is not what I want to do.
This comment was minimized by the moderator on the site
Hi,Appointments are not changed to meetings when entering content into the Location field. 
This comment was minimized by the moderator on the site
I scheduled the reoccurring email however instead of sending email on the 30th it sent it today. I checked the settings and is set to send email on 30th at 10 am. Instead it sent the email on the 17th at 5:45 PM
This comment was minimized by the moderator on the site
Hi Leah,Sorry for the trouble, the problem you described cannot be reproduced. Here suggest using the relevant function of KTO to send a schedule recurring email.
This comment was minimized by the moderator on the site
I’m trying to set up a recurring email to be sent. However, it’s not working for some reason. It acts like it’s trying, but I get this error message:
This comment was minimized by the moderator on the site
Hi,You need to enable the Microsoft Word Object Library mentioned in step 4 of the post to avoid this error.
This comment was minimized by the moderator on the site
It is enabled
This comment was minimized by the moderator on the site
It is enabled already
This comment was minimized by the moderator on the site
I had the same problem.  I had a look in the available references list and found a second Microsoft Word 16.0 Object Library that was not enabled. Once I enabled that one, it solved the problem for me!
This comment was minimized by the moderator on the site
Hello, 
Several errors to easily solve if the mail stays in "draft" : 
-> Add .Save juste before .Send
-> Don't close everything too fast or the script wouldn't have the time to send the mail that it has been cleaned... so find a way to delay those 2 rows 
Set xMailItem = Nothing
VBA.Kill xFldPath
Maybe with a thread sleep/wait ? Is the killing mandatory ? wouldn't this be killed when outlook is closed ? For my usecase, it was ok to remove them
This comment was minimized by the moderator on the site
I followed the instruction in this article "How to send a schedule recurring email in Outlook" multiple times, to no avail. I get the popup reminder box but, the e-mail is never sent. I've tried with Kutools for Outlook installed and uninstalled. Still no success in sending a scheduled recurring email in Outlook.

Thanx,
RLB
This comment was minimized by the moderator on the site
I have had the same situation. It was working fine for almost a year and then suddenly stopped working. I've tried recopying the code, delete it completely and start over. Same results- popup reminder box happens, I click ok, and the email is never sent.
This comment was minimized by the moderator on the site
Hi tarnold,Make sure that the category name you created in step 2 is the same as the name specified in the code.
Can you try the VBA below and give me feedback on error you encountered later? Because this problem needs to be reproduced in my case. Or you can also try the third party tool mentioned in the post. Sorry for the inconvenience.

<div data-tag="code">Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20220114
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
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
This comment was minimized by the moderator on the site
Crystal,
Sorry for the delay.  I copied your script into VBA.  My category is "Recurring Email", so I made it match in your script.  I set up a recurring email to test it.  The reminder window pops up at the correct time.  I waited a couple of minutes and then clicked 'dismiss'.  The window closes.  No errors.  No email sent.
This comment was minimized by the moderator on the site
Hi Crystal, when using the code above I have this error: 
Erreur de compilation: Type défini par l'utilisateur non défini
it's concerning this lineDim xItemDoc As Word.Document

any ideas?
This comment was minimized by the moderator on the site
Hi Marie-Eve Noel,You need to enable the Microsoft Word Object Library mentioned in step 4 of the post to avoid this error.
This comment was minimized by the moderator on the site
At least yours work for a while. Mine never worked. Contacted Support and was told to post here. I suppose we'll have to wait on the author to respond.
This comment was minimized by the moderator on the site
Hi RodmanB,
Can neither of the two methods described in the article solve the problem?
VBA code and Kutools for Outlook are two different ways to handle the task.I need to know more specific about your issue, such as your Excel version.
This comment was minimized by the moderator on the site
Hi Crystal,
I am using MSOffice 365 for all of the Office products- Outlook, Excel, etc. As I posted 6month ago, it was working fine with my previous MSOffice desktop software.  When I switched to Office 365, it stopped working and I am having the same/similar situation as RodmanB.  The reminder popup occurs, I dismiss it and nothing happens.  The email is not in the draft folder, not in the sent folder, nothing.
This comment was minimized by the moderator on the site
Crystal,   Thanks for help. I replaced the VBCode and made a different test email. It preformed just as the other; reminder pops up, .wav file plays but the email is not sent. I'll install Kutools for Outlook and try that way tomorrow and, will respond with results.
This comment was minimized by the moderator on the site
Crystal,   Unable to install Kutool for outlook, demo license expired. Not willing to buy  just to debug this feature. So, have a great day and thanks for the help.
Thanx,RLB
This comment was minimized by the moderator on the site
Hi have implemented this and there's a couple of issues.1 - if i don't have Outlook opened, the email is not sent --> i guess this is normal, not a big deal anyway.2 - even the appointment appears just once a day and the email sent properly then, i see that the email is sent randomly other extra times during the day. For example, my schedule is daily at 9:00 and this is sent at 9:00 (OK) and also at 17:13 (NOK). I am not being able to identify why, any idea?
thanks.
This comment was minimized by the moderator on the site
What would the VBA code be for this but sending from the recipients of the appointment, not the "location" of the appointment as coded above? I need to send to 20+ people and cannot add enough names as the location fields is limited on characters. Many thanks
This comment was minimized by the moderator on the site
Hi J,You can try the second method "the Schedule auto send feature of Kutools for Outlook" mentioned in the post.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations