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

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

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

• 最初の部分：新しい予定を作成する
• 第XNUMX部：新しいカテゴリを作成する
• 第三部：繰り返しを設定する
• 最後：VBAコードを使用してSchedule RecurringEmailを送信します

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

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

最初の部分：新しい予定を作成する

1.に移動してください カレンダー クリックして表示 カレンダー ナビゲーションペイン、をクリックして新しい予定を作成します 新しい予定 下 ホーム タブでを確認できます。

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

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

第XNUMX部：新しいカテゴリを作成する

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

1。 の中に 任命 ダイアログをクリックしてください 分類する > すべてのカテゴリ タグ 下のグループ 任命 タブでを確認できます。

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

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

第三部：繰り返しを設定する

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

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

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

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

最後：VBAコードを使用してSchedule RecurringEmailを送信します

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

2.をダブルクリックします Project1 > MicrosoftOutlookオブジェクト > 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。 クリック BHツール > リファレンス を開く リファレンス - 事業 ダイアログ。 ダイアログで、 MicrosoftWordオブジェクトライブラリ オプションをクリックして OK ボタン。

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

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

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

Kutools for Outlook-100の高度な機能をOutlookにもたらし、作​​業をはるかに簡単にします！

• 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
• BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
• メール会話のすべての添付ファイルで（すべて）返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
• 添付ファイルツール：すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
• 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。

続きを読みます... ダウンロード中...