Outlookでいくつかの電子メールの作成が完了したら、一度に送信することをお勧めします。 さて、この記事では、VBAコードを使用してそれを取得する方法を説明します。
たとえば、いくつかの新しいメールを完了したが、送信せず、開いたままにしているとします。 そしてその後、あなたはそれらを送りたいと思います。 通常、すべてのメールの「送信」ボタンをXNUMXつずつクリックする必要があります。 このような状況では、オープンで作成されたすべての電子メールをまとめて送信することをサポートできる方法を切望する必要があります。
以下では、そのような効果的な方法を紹介します。 VBAを使用しています。 VBAの使用方法がわからない場合は、次の記事を参照してください。OutlookでVBAコードを実行する方法」その間。
開いているメールと作成されたメールをすべてバッチ送信する
- まず、通常どおりメールを作成して、開いたままにしておくことができます。
- 次に、「Alt + F11」を押してVBAエディターにアクセスします。
- 次に、新しいウィンドウで、次のVBAコードをモジュールにコピーします。
Sub BatchSendOutAllOpenEmails()
Dim objInspectors As Outlook.Inspectors
Dim i As Long
Dim objMail As Outlook.MailItem
Dim lMailCount As Long
'Get all open items in your Outlook
Set objInspectors = Outlook.Application.Inspectors
lMailCount = 0
For i = objInspectors.Count To 1 Step -1
If objInspectors.Item(i).CurrentItem.Class = olMail Then
'Get all open emails
Set objMail = objInspectors.Item(i).CurrentItem
'Send out open emails that contain subject & recipients
If objMail.Subject <> "" Then
If objMail.Recipients.Count > 0 Then
objMail.Send
lMailCount = lMailCount + 1
End If
End If
End If
Next
'Prompt you of the results
MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub
- その後、「F5」キーボタンを直接押して、このマクロをトリガーします。
- 最後に、マクロが完了すると、送信する電子メールの数を尋ねられます。
- 次に、送信トレイを開きます。ここで、以前に開いたすべての電子メールが送信されていることを確認できます。
予期しない損傷からOutlookを復元する
これまでにOutlookの破損に遭遇したことがありますか？ 多くのユーザーがこの問題の対象となっており、不満を持っています。 一般に、タイムリーで効果的なソリューションを作成すると、Outlookデータを次の場所から簡単に取得できます。 破損したPST ファイル。 たとえば、更新されたOutlookデータがある場合は、簡単にバックアップに戻すことができます。 もちろん、次のような優れた信頼性の高い修復ツールを利用することもできます。 DataNumen Outlook Repair、破損したOutlookファイルをスキャンし、最大のデータを回復できます。
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLの回復 と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com