·
19 days ago
I am facing issue with Email Body. in my received email it completely blank. what could be wrong
Outlookで定期的なスケジュールの電子メールを送信するにはどうすればよいですか？
Microsoft Outlookでは、スケジュールの定期的な予定、会議、またはタスクを他のユーザーに簡単に送信できます。 しかし、予定、会議、タスクなしでスケジュールの定期的な電子メールを送信したいだけの場合、どうすればよいでしょうか。 残念ながら、Outlookには定期的なスケジュールの電子メールを送信する機能はありませんが、チュートリアルでは、Outlookで定期的なスケジュールの電子メールを送信する方法を説明します。
OutlookでVBAコードを使用してスケジュール定期メールを送信する
OutlookでVBAコードを使用してスケジュール定期メールを送信する
このチュートリアルはXNUMXつのパートに分かれており、これらのパートを完了すると、スケジュールの定期的な電子メールを送信できます。 次のようにしてください。
1.に移動してください カレンダー クリックして表示 カレンダー ナビゲーションペイン、をクリックして新しい予定を作成します 新しい予定 下 ホーム タブでを確認できます。
3。 の中に 任命 下のダイアログ 任命 タブ。 必要がある：
| A：を入力してください 件名 | B：受信者のメールアドレスを ロケーション |
| C：構成 開始時刻 と 終了時間 | D：下のリマインダーを選択します リマインダー ドロップダウンリスト。 15分を選択すると、メールが送信されたときに15分早く通知されます。 |
| E：アポイントメントボディを作成します。 |
ノート： 予定の件名 定期的なメールの件名になります。 そしてその 任命機関 受信者が電子メールを受信すると、定期的な電子メールの本文になります。
次に、「」という名前の新しいカテゴリを作成する必要があります。スケジュール定期メールを送信する" 次のように：
1。 の中に 任命 ダイアログをクリックしてください 分類する > すべてのカテゴリ タグ 下のグループ 任命 タブでを確認できます。
2。 いつ カラーカテゴリ ダイアログがポップアップします。クリックしてください New ボタン。 の中に 新しいカテゴリを追加 ダイアログに「スケジュール定期メールを送信する「中 お名前 フィールド; 次に、で色を選択します 色 ドロップダウンリスト。 次に、をクリックします OK.
3.次に、「スケジュール定期メールを送信する」カテゴリがリストされているので、チェックボックスをオンにしてからクリックしてください OK ボタン。
さて、アポイントメントの繰り返しを設定する時が来ました。
1。 クリック 再発 オプション 下のグループ 任命 タブ。 スクリーンショットを参照してください：
2。 の中に 予定の再発 ダイアログで、 再発 パターン。 終了時間が必要な場合は、下で構成してください 再発の範囲。 そして、 OK.
3.に戻ったとき 任命 ダイアログをクリックしてください 保存して閉じる ボタン。 スクリーンショットを参照してください：
最後：VBAコードを使用してSchedule RecurringEmailを送信します
1.を押してください 他の + F11 を開く Microsoft Visual Basic for Applications ダイアログ。
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 for Applications 窓。
時 リマインダー ポップアップすると、最初の部分の[場所]フィールドに入力した受信者に電子メールが自動的に送信されます。 次に、をクリックします 却下する リマインダー ダイアログ。 そして、この時間帯に毎日定期的にメールが送信されます。 スクリーンショットを参照してください：
ノート：VBAコードは、Outlook2010以降のバージョンで正常にテストされました。
Kutools for Outlook-100の高度な機能をOutlookにもたらし、作業をはるかに簡単にします！
- 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
- BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
- メール会話のすべての添付ファイルで（すべて）返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
- 添付ファイルツール：すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
- 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment...
The comment will be refreshed after 00:00.