#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
Негізгі бет #034
No video
Пікірлер: 6