[[20240126154752]]　『VBAで作成したメール本文の特定の単語を書式を変ａx（びぎなー）　ページの最後に飛ぶ

『VBAで作成したメール本文の特定の単語を書式を変えず置換したい』（びぎなー）

マクロ初心者につき、お知恵を拝借したくご相談しました。

マクロで、エクセルの表の内容からOutkookメールを作成していますが、作成処理の最後に特定の単語を置換したいです。
Excelの表の中の書式ごとメールに張り付けているため、その書式は変更せず、単語の置換のみを行いたいです。
下記は使用中のマクロになりますが、解決方法をご教示いただけますと幸いです。

==========

Sub GenMail()

    'Outlook用の定義
    Dim objMail As Object
    Dim objWRG As Object

    Dim ws1 As Worksheet
    Set ws1 = Worksheets("メール作成用シート")
    Dim lnContactCount As Long

            'メール作成
            Set objMail = CreateItem(olMailItem)

            With objMail

                .BodyFormat = 3 'リッチテキスト
                .Subject = ws1.Cells(2, 5) '件名
                .To = ws1.Cells(2, 3) 'To
                .CC = ws1.Cells(2, 4) 'CC

                '本文1をコピペ
                ws1.Cells(2, 6).Copy 'Excel本文項目をコピー
                Set objWRG = .GetInspector.WordEditor.Range(0, 0) 'メールアイテムをWordEditor経由で編集
                objWRG.PasteExcelTable False, False, False 'Excelの書式付で貼り付け

                '本文2をコピペ
                ws1.Cells(2, 7).Copy 'Excel本文項目をコピー
                Set objWRG = .GetInspector.WordEditor.Range(0, 0) 'メールアイテムをWordEditor経由で編集
                objWRG.PasteExcelTable False, False, False 'Excelの書式付で貼り付け

                '本文3をコピペ
                ws1.Cells(2, 8).Copy 'Excel本文項目をコピー
                Set objWRG = .GetInspector.WordEditor.Range(0, 0) 'メールアイテムをWordEditor経由で編集
                objWRG.PasteExcelTable False, False, False 'Excelの書式付で貼り付け

                ***ここで、本文の中の特定の単語(▲▲)を別の単語(●●)に置換する処理を行いたいです。***

                .ReadReceiptRequested = True '開封通知を要求
                .Display 'メールを表示
            End With

    'オブジェクトを解放します。

    Set ws1 = Nothing
    Set ws2 = Nothing
    Set objWRG = Nothing

End Sub

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

 わざわざOutLookの本文をいじらずに、
 基のExcelをいじったほうが素直じゃないですか。
（tkit） 2024/01/26(金) 16:33:19

Excelの内容を編集できないため、Outlook上で置換する方法をお伺いしております。
（びぎなー） 2024/01/26(金) 17:51:09

＞Outlook上で置換する方法をお伺いしております。
ここはエクセルの学校です。
（エクセルAB） 2024/01/26(金) 18:56:20

 ブックごとコピーしてしてから編集すれば変更したことにならないんじゃない？
 表だけでもいいし
（稲葉） 2024/01/26(金) 20:38:32

コメント返信：

[ 一覧(最新更新順) ]

[[20240126154752]] 『VBAで作成したメール本文の特定の単語を書式を変ａx（びぎなー） ページの最後に飛ぶ

[[20240126154752]]　『VBAで作成したメール本文の特定の単語を書式を変ａx（びぎなー）　ページの最後に飛ぶ