届け！

三日坊主どころか…。

気を取り直して、今日は自動でメール送信！

Sub sendmail_todoke()

'---①outlook起動
   Dim toaddress, ccaddress, bccaddress As String  '変数設定：To宛先、cc宛先、bcc宛先
   Dim subject, mailBody, credit As String '変数設定：件名、メール本文、クレジット、添付
   Dim outlookObj As Outlook.Application    'Outlookで使用するオブジェクト生成
   Dim mailItemObj As Outlook.mailItem      'Outlookで使用するオブジェクト生成
   
'---②差出人、本文、署名
   toaddress = Range("B2").Value   'To宛先
   ccaddress = Range("B3").Value   'cc宛先
   bccaddress = Range("B4").Value  'bcc宛先
   subject = Range("B5").Value     '件名
   mailBody = Range("B6").Value    'メール本文
   credit = Range("B7").Value      'クレジット

'---③メールを作成
   Set outlookObj = CreateObject("Outlook.Application")
   Set mailItemObj = outlookObj.CreateItem(olMailItem)
   mailItemObj.BodyFormat = 3      'リッチテキストに変更
   mailItemObj.To = toaddress      'to宛先をセット
   mailItemObj.cc = ccaddress      'cc宛先をセット
   mailItemObj.BCC = bccaddress    'bcc宛先をセット
   mailItemObj.subject = subject   '件名をセット
   
'---⑥メール送信
   'mailItemObj.Save   '下書き保存
   mailItemObj.Display  'メール表示

'---⑦outlook修了
   'Set outlookObj = Nothing
   'Set mailItemObj = Nothing

End Sub

届いた！…嘘。届く前の段階。

ついでにボタンも作成してみた。（開発＞挿入＞ボタン(フォームコントロール)

ボタンを押すと、新規メール画面が出てきた。

ボタンは　開発＞挿入　ですぐ出来た。

届いてないけど、今日はここまで。

Laughter。いい曲だな～