VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。
下記の内容ですと作成されたメール本文にタグとして表示され変わりません。
適用させるにはどうしたら良いでしょうか?
※以下メール本文はC6に記載
====================
宛先各位<br>
<br>
お疲れ様です。<br>
<br>
●●チーム ○○です。<br>
<br>
○○の件につきまして、対応期限が近づいて参りましたので、<br>
リマインドのご連絡をさせていただきました。<br>
<br>
<font size="3" color="#ff0000">赤文字にしたい箇所<br>
赤文字で改行箇所<br></font>
<br>
以上、よろしくお願いします。
=====================
'プログラム0|変数設定の指定
Option Explicit
'プログラム1|プログラム開始
Sub SendMail()
'プログラム2|シート設定
Dim ws As Worksheet
Set ws = Worksheets("メール")
'プログラム3|Outlookアプリケーションを起動
Dim outlookObj As Outlook.Application
Set outlookObj = CreateObject("Outlook.Application")
'プログラム4|Outlookメールを作成
Dim mymail As Outlook.MailItem
Set mymail = outlookObj.CreateItem(olMailItem)
'プログラム5|メール情報を設定
mymail.BodyFormat = 2 'HTMLに変更
mymail.To = ws.Range("C2").Value 'To宛先
mymail.CC = ws.Range("C3").Value 'cc宛先
mymail.BCC = ws.Range("C4").Value 'bcc宛先
mymail.Subject = ws.Range("C5").Value '件名
'プログラム6|メール本文を設定
Dim mailbody As String, credit As String
mailbody = ws.Range("C6").Value
credit = ws.Range("C7").Value
mymail.Body = mailbody & vbCrLf & vbCrLf & credit
'プログラム7|メール表示
mymail.Display 'メール表示(ここでは誤送信を防ぐために表示だけにして、メール送信はしない)
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルVBAでOutlookメールの書式を変える
Excel(エクセル)
-
VBAのフォント変更(エクセルからoutlookのメール作成において)
Visual Basic(VBA)
-
outlook文字色付け/マーカーのVBAコード
その他(Microsoft Office)
-
-
4
Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを
Visual Basic(VBA)
-
5
VBA エクセル メール送信 ハイパーリンクの貼り方
その他(Microsoft Office)
-
6
Excel VBA メール作成について Excelで作った表を写真のハイパーリンクの後に 図形にして
Visual Basic(VBA)
-
7
Excel VBA Outlookメール作成について
Excel(エクセル)
-
8
ExcelVBAでOutlookにセル内容を送る
その他(プログラミング・Web制作)
-
9
Excel VBA メール作成について Excel D7セルをOutlookの本文(HTML)にしま
Visual Basic(VBA)
-
10
VBA 半角スペースを入れるには...
その他(Microsoft Office)
-
11
エクセルである日付を過ぎたら自動でメール送信。
Excel(エクセル)
-
12
Excel VBA メール作成について 下記についてどのように記述したらいいか、教えて頂けると幸いで
Visual Basic(VBA)
-
13
エクセルVBAでOutlookメール作成
その他(Microsoft Office)
-
14
エクセルVBAでアウトルックメールの差出人変更
Excel(エクセル)
-
15
マクロ初心者です。 マクロで範囲選択したセルをOutlookのメールの本文に貼り付けたいのですがなか
Visual Basic(VBA)
-
16
エクセル、VBAを用いて色付きセルを抽出し送信メール画面に反映できますか?
その他(Microsoft Office)
-
17
ExcelVBAで今開いているユーザ情報を取得できますか?
Visual Basic(VBA)
-
18
エクセルでエラーが出て困っています。
Excel(エクセル)
-
19
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
20
Outlookのメールを送信するマクロ
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
あるプログラムのコマンドライ...
-
VBAでユーザーフォームが自動的...
-
VBAにてメール作成した際、一部...
-
Excelで4096点以上のFFTの方法
-
未使用の変数を一括検索する方法
-
プログラムの例外処理について
-
Application.ScreenUpdatingが...
-
読み込み中にアクセス違反が発...
-
Google カレンダーの商用利用
-
ニュートン法を使って解を求め...
-
Excelに埋め込んだVBAのプログ...
-
XnViewにwebpを「いつも開く」...
-
学校の課題で出されたのですが...
-
static 関数のメモリ使用量
-
大学一年でVBAのプログラミング...
-
2のべき乗か調べる方法
-
白色雑音(ガウス性)のプログラム
-
シャープのポケコンについて
-
グラフをC#のASP.net MVCで表示...
-
閉じるを押してもデバッグが終...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あるプログラムのコマンドライ...
-
Excelで4096点以上のFFTの方法
-
「Outlookが他のプログラムによ...
-
Excelに埋め込んだVBAのプログ...
-
VBAにてメール作成した際、一部...
-
Notepad++の関数リスト表示でC...
-
自動クエリとはどういうもので...
-
読み込み中にアクセス違反が発...
-
PICマイコンのコピー(クローン...
-
XnViewにwebpを「いつも開く」...
-
未使用の変数を一括検索する方法
-
VBAでユーザーフォームが自動的...
-
UWSCで指定のフォルダを開きたい。
-
パックマンプログラム
-
このプログラミング誰か教えて...
-
モジュール、アプリケーション...
-
Vba UserFormを前面に出す方法...
-
特定のwebサイトのタイトルや記...
-
ドロップダウンリストの文字を...
-
テキストボックスのエンターキ...
おすすめ情報