- ベストアンサー
VBAでOutlookの一部を赤にする方法
- VBAを使用して、Outlookの文面の一部を赤にする方法を教えてください。
- エクセルVBAを使用してOutlookメールを作成する際に、特定の部分を赤にする方法を教えてください。
- 「期限：10月30日」の部分を赤にするためのVBAコードを教えてください。
- ticktak
- お礼率51% (194/378)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- HohoPapa
- ベストアンサー率65% (455/693)
Omail.HTMLBody に HTMLの文法で書きます。 都合、以下のようなコードです。 Option Explicit Sub メール() Dim myOutLook As Object Dim Omail As Object 'Outlookの定義 Set myOutLook = CreateObject("outlook.application") Set Omail = myOutLook.CreateItem(olMailItem) 'メール作成 Omail.BodyFormat = 2 Omail.Subject = "意見記入のお願い" 'subject Omail.HTMLBody = Omail.HTMLBody & "<!DOCTYPE html>" Omail.HTMLBody = Omail.HTMLBody & "<html>" Omail.HTMLBody = Omail.HTMLBody & "<head>" Omail.HTMLBody = Omail.HTMLBody & "</head>" Omail.HTMLBody = Omail.HTMLBody & "<body>" Omail.HTMLBody = Omail.HTMLBody & "いつもお世話になっております。" & "<br>" & vbCrLf Omail.HTMLBody = Omail.HTMLBody & "下記の申請が提出されました。" & "<br>" & vbCrLf Omail.HTMLBody = Omail.HTMLBody & "<font color = ""#ff0000"">" & "期限：10月30日" & "</font>" & vbCrLf Omail.HTMLBody = Omail.HTMLBody & "</body>" Omail.HTMLBody = Omail.HTMLBody & "</html>" Omail.Display Set myOutLook = Nothing Set Omail = Nothing End Sub
お礼
お礼が遅くなってしまいました。 回答のために時間を取っていただき大変ありがとうございました。今後ともよろしくお願いいたします。
お礼
うまくいきました。HTMLBodyとするところがわかっていませんでした。ありがとうございました。