• 何でも再利用： 最もよく使用される、または複雑な数式、グラフなどをお気に入りに追加して、後ですぐに再利用できます。
• 20以上のテキスト機能： テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換します。
• マージツール：複数のワークブックとシートをXNUMXつに。 データを失うことなく複数のセル/行/列をマージします。 重複する行と合計をマージします。
• 分割ツール：値に基づいてデータを複数のシートに分割します。 XNUMXつのワークブックから複数のExcel、PDF、またはCSVファイル。 XNUMX列から複数列。
• 貼り付けスキップ 非表示/フィルタリングされた行; カウントと合計 背景色別; パーソナライズされた電子メールを複数の受信者にまとめて送信します。
• スーパーフィルター： 高度なフィルタースキームを作成し、任意のシートに適用します。 並び替え 週、日、頻度など。 フィルタ 太字、数式、コメント...
• 300以上の強力な機能。 Office2007-2019および365で動作します。 すべての言語をサポートします。 企業や組織に簡単に導入できます。

次のVBAコードは、Outlookでメッセージに返信するときに、パーソナライズされたグリーティングを自動的に追加できます。 次のように実行できます。

1.返信する電子メールメッセージを選択します。

2。 プレス 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

3。 クリック インセット > モジュール、次のVBAコードを新しいモジュールウィンドウに貼り付けます。

VBA：パーソナライズされた挨拶で返信する

Sub ReplyWithGreeting()
Dim oMItem As Outlook.MailItem
Dim oMItemReply As Outlook.MailItem
Dim sGreetName As String
Dim iGreetType As Long
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oMItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set oMItem = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If oMItem Is Nothing Then GoTo ExitProc
On Error Resume Next
iGreetType = InputBox("How to greet:" & vbCr & vbCr & "Type '1' for name, '2' for time of day")
On Error GoTo 0
If iGreetType = False Then GoTo ExitProc
If iGreetType = 1 Then
sGreetName = oMItem.SenderName
ElseIf iGreetType = 2 Then
Select Case Time
Case Is < 0.5
sGreetName = "Good morning"
Case 0.5 To 0.75
sGreetName = "Good afternoon"
Case Else
sGreetName = "Good evening"
End Select
Else
GoTo ExitProc
End If
Set oMItemReply = oMItem.Reply
With oMItemReply
.HTMLBody = "<span style=""font-size : 10pt""><p>Hi " & sGreetName & ",</p></span>" & .HTMLBody
.Display
End With
ExitProc:
Set oMItem = Nothing
Set oMItemReply = Nothing
End Sub

4。 プレス F5 キーまたはクリック ラン このVBAを実行するためのボタン。 以下のスクリーンショットのようにダイアログボックスが表示されます。 必要に応じて1または2と入力し、[ OK ボタン。

受信者名で挨拶する場合は1を入力します。	時刻付きの挨拶のタイプ2：

注意：Outlook 2013では、閲覧ウィンドウでメッセージに返信すると、このVBAコードは機能しません。 クリック Outlook2013の閲覧ウィンドウで返信を無効にする方法についてはこちらをご覧ください.

一部のユーザーは、OutlookでVBAコードを適用したくない場合があります。 したがって、XNUMX番目の方法を紹介します：Outlook用のKutools 自動グリーティングユーティリティ すべての返信メッセージにパーソナライズされた挨拶を簡単に追加します。

Outlook用Kutools 多数の便利な機能を追加することにより、Outlookを介した毎日の電子メール通信を簡素化します。 続きを読む      今すぐダウンロード

1。 クリック クツール > オプション.

2. [オプション]ダイアログボックスを開いて、[ 返信 タブ、チェック 返信時に挨拶を追加 オプション、タイプHi < >、下のボックスに入力し、をクリックします OK ボタン。

今後、Outlookでメッセージに返信すると、次のスクリーンショットのように、パーソナライズされた挨拶が電子メールの本文に自動的に追加されます。

注意：Outlook 2013では、閲覧ウィンドウでメッセージに返信すると、このユーティリティは機能しません。 クリック Outlook2013の閲覧ウィンドウで返信を無効にする方法についてはこちらをご覧ください.

Outlook用Kutoolsを無料でダウンロード