#034

#030の動画の続編として「複数の宛先でエラーになる場合の対処法」と「本文の一部を置き換える」という内容を詳しく説明しています。
■再生リスト
   • Excelパワークエリ  

   • Excelマクロ（VBA）  

   • Excel関数  

   • Excelピボットテーブル  

▼動画で説明しているサンプルコード、コピペ活用ください。
Sub マクロ10_1()
' OutLookのメールを自動作成する
' Outlookオブジェクトの変数宣言
Dim myoutlook As Outlook.Application
Set myoutlook = New Outlook.Application

' メール送信用のオブジェクト作成
Dim mymail As Outlook.MailItem
Set mymail = myoutlook.CreateItem(olMailItem)

' メール送信内容の作成
With mymail
.To = Range("C3") & ";" & Range("C4").Value 'TO宛先
.CC = Range("C4").Value 'CC宛先
.BCC = Range("C5").Value 'BCC宛先
.Subject = Range("C6").Value '件名

BodyA = Replace(Range("C7").Value, "AAA社", Range("C19").Value)
BodyB = Replace(BodyA, "○○", Range("C20").Value)
.Body = Replace(BodyB, "「日付」", Range("C21").Value)

.BodyFormat = olFormatHTML '形式の設定(テキスト：Plain、HTML：HTML）
.Display 'メールを表示
End With
End Sub