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

Outlookで電子メールを送信するときにタスクを自動作成するにはどうすればよいですか?

Outlookで送信するときに、電子メールのタスクを自動的に作成する必要がある場合があります。 ここでは、すばやく実行するための方法を提供します。

OutlookでVBAを使用して電子メールを送信するときにタスクを自動作成する


OutlookでVBAを使用して電子メールを送信するときにタスクを自動作成する

以下のVBAコードを使用すると、Outlookでの電子メールの送信に基づいてタスクを自動的に作成できます。 次のようにしてください。

1. Outlookを起動し、を押します 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のVBAコードをにコピーします このOutlookSession コードウィンドウ。

VBAコード:Outlookで電子メールを送信するときにタスクを自動作成する

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

注意:メッセージの受信者とメッセージの本文は、タスクの本文に自動的に追加されます。 タスクの開始日はメッセージの送信日であり、タスクの期限は3日です。 9日後の午前XNUMX時にタスクが通知されます。 必要に応じて変更できます。

3.コードを保存して、 他の + Q キーを押して、Microsoft Visual Basic forApplicationsウィンドウを閉じます。

4.これから、 登録 新規または返信された電子メールウィンドウのボタン、 タスクの作成 以下のスクリーンショットのようにダイアログボックスがポップアップ表示されます。クリックしてください あり メールを送信してタスクを自動的に作成するには、またはをクリックします いいえ タスクを作成せずにメールを送信します。


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

  • 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
  • BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
  • メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
  • 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
  • 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。
ショットkutoolsの見通しkutoolsタブ1180x121
ショットkutoolsの見通しkutoolsプラスタブ1180x121
 
コメントを並べ替える
コメント (3)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
受信者と件名だけでなく、送信されたメールへのリンクをより多く含めるようにこれを変更する方法はありますか? すなわち。 送信したメールを添付ファイルとして追加しますか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、

これは数日間機能しましたが、現在は機能しなくなりました。

理由はありますか?
このコメントは、サイトのモデレーターによって最小化されました
テリー・エイモスさん、こんにちは。
以下のスクリーンショットに示すように、[すべてのマクロを有効にする] オプションと [インストールされたアドインにマクロ セキュリティ設定を適用する] オプションを有効にしてください。 その後、Outlook を再起動します。
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
ここにはまだコメントが投稿されていません

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護