一般的に、メールに返信するときは、挨拶を追加することに慣れています。 誰かが、Outlookが受信者の名前に応じて挨拶を自動的に追加できることを望んでいます。 実際には、OutlookVBAで実現できます。 この記事ではそれを詳しく紹介します。
通常どおり、メールに返信するときは、メッセージ本文の先頭に常に挨拶を書きます。 毎回同じグリーティングラインを入力したくないので、少し面倒に感じるかもしれません。 実際には、Outlookの「クイックパーツ」機能を使用して回避できます。この機能を使用すると、クイックパーツと同じグリーティングを保存できます。 それ以降、手動で入力しなくても直接挿入できます。
ただし、この関数は受信者を自動識別できないため、受信者名を含むパーソナライズされたグリーティングを追加することはできません。 また、手動で挿入しなくても完全に自動化したいユーザーもいます。 この種の要件に焦点を当てて、OutlookVBAを介してそれを達成するための簡単な方法を次に示します。
返信メッセージへの挨拶の自動追加
- まず、Outlookを起動し、[開発者]タブに切り替えます。
- 次に、「VisualBasic」ボタンをクリックする必要があります。
- その後、新しいウィンドウが表示されます。 次に、その中に、空のモジュールを開くか、新しいモジュールを挿入する必要があります。
- 次に、新しいモジュールで、次のVBAコードをコピーして貼り付けることができます。
Sub AutoAddGreetingtoReply()
Dim oMail As MailItem
Dim oReply As MailItem
Dim GreetTime As String
Select Case Application.ActiveWindow.Class
Case olInspector
Set oMail = ActiveInspector.CurrentItem
Case olExplorer
Set oMail = ActiveExplorer.Selection.Item(1)
End Select
Select Case Time
Case 0.3 To 0.5
GreetTime = "Good morning!"
Case 0.5 To 0.75
GreetTime = "Good afternoon!"
Case Else
GreetTime = "Good evening!"
End Select
Set oReply = oMail.Reply
With oReply
.HTMLBody = "<HTML><Body>Dear " & oMail.SenderName & ", </HTML></Body>" & GreetTime & .HTMLBody
.Display
End With
End Sub
- その後、現在のウィンドウを終了してマクロ設定を変更できます。 「マクロセキュリティ」ボタンをクリックし、マクロレベルを低く設定します。
- 後で、新しいVBAプロジェクトをリボンまたはクイックアクセスツールバーに追加する必要があります。 ここでは、例としてクイックアクセスツールバーを取り上げます。
- まず、クイックアクセスツールバーの下矢印をクリックして、[その他のコマンド]を選択します。
- 次に、ポップアップウィンドウで、次の画像に示す手順に従って、新しいマクロをクイックアクセスツールバーに追加します。
- 最終的には、試してみることができます。
- まず、メールを選択し、クイックアクセスツールバーのマクロボタンを押します。
- 次に、新しい返信メッセージがポップアップ表示されます。 次の画像のように、メッセージ本文に挨拶が自動的に追加されています。
Outlookを適切に保護する
Outlookは脆弱であるため、通常のユーザーは複数の問題に遭遇している必要があります。 これらの厄介なエラーに直面した場合は、小さな問題に対処できる組み込みの修復ツールscanpst.exeを賢く利用できます。 次のような深刻な問題が発生した場合 Outlookのメールの損傷、受信トレイツールはあまり役に立ちません。 次のような、より経験豊富でインテリジェントなツールを使用する必要があります。 DataNumen Outlook Repair.
著者紹介：
Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したSQLmdfファイルを修復します と見通し修理ソフトウェア製品。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com