Excelを快適に使おう

'---------------------------------------------------------------------------------------------------
'
' マクロ: 業務報告のメールを作成します
'
'---------------------------------------------------------------------------------------------------
Option Explicit

'---------------------------------------------------------------------------------------------------
' 初期設定
'          ★mailHeadTemp、mailTo、mailCcを適時修正してください
'          ★YYYY/MM/DDはそのままで
'---------------------------------------------------------------------------------------------------

'--- メールタイトル
Public Const mailHeadTemp As String = "[●●部]業務報告書(△△氏名)YYYY/MM/DD"

'--- メール宛先(To)
Public Const mailTo As String = "aaa@ xxx.co.jp; bbb@ xxx.co.jp; ccc@ xxx.co.jp"

'--- メール宛先(Cc)
Public Const mailCc As String = "ddd@xxx.co.jp; eee@xxx.co.jp; fff@xxx.co.jp"

'---------------------------------------------------------------------------------------------------
' 概要: メールを作成します
'
' 前提: 初期設定は修正済み
' 入力: makeMailマクロを実行
' 出力: Outlookのメール下書きが表示されます
'
' 制限: 下書きメールを送信するときに、次の制限があります
'       Outlookは起動しておいてください。Outlookのメール下書きのみを送信しても、
'       Outlook自体を起動するまでは送信されません
'---------------------------------------------------------------------------------------------------
Sub makeMail()
    '★★★コンパイルエラー：ユーザ定義型は定義されていません。
    '★★★が表示されたら、参照設定してください
    Dim dmyOutlook As Outlook.Application
    '★VBEを表示して、［ツール］メニュー−［参照設定］をクリックします。
    '★表示された［参照設定 - VBAProject］の［参照可能なライブラリ ファイル］の一覧より、
    '★［Microsoft Outlook 1x.0 Object Library］のチェック ボックスをオンにします。


    'メールタイトルを設定します
    Dim mailTitle As String
    Dim todayStr As String
    
    todayStr = Format(Date, "yyyy/mm/dd")
    mailTitle = Replace(mailHeadTemp, "YYYY/MM/DD", todayStr)


    'メール宛先を設定します
    Dim mailToStr As String
    Dim mailCcStr As String
    
    mailToStr = mailTo
    mailCcStr = mailCc


    'A列からメール本文を取得します
    Dim mailBody As String
    Dim i As Long
    
    mailBody = ""
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).row
        mailBody = mailBody & Cells(i, 1) & vbCrLf
    Next i


    'メール下書きを作成します
    Dim appOutlook As Outlook.Application
    Dim itemApp As Outlook.MailItem
    
    Set appOutlook = New Outlook.Application
    Set itemApp = appOutlook.CreateItem(olMailItem)

    With itemApp
        .Subject = mailTitle
        .To = mailToStr
        .Cc = mailCcStr
        .Body = mailBody
    End With

End Sub

●●課長

お疲れさまです。△△氏名です。

本日の業務内容を、下記のとおり報告いたします。

【本日目標と成果】
  〇〇要求定義書の開発(基本設計書〜コーディング)　→　完了

【問題点】
  特にありません

【作業結果】
  09:00 朝礼、本日の作業計画確認
  09:30 メールチェック、作業準備、手順確認
  10:00 基本設計書作成
  11:00 レビュー、指摘の修正、承認依頼
  12:00 休憩
  13:00 詳細設計書作成
  14:00 レビュー、指摘の修正、承認依頼
  15:00 コーディング
  16:00 レビュー、指摘の修正、承認依頼
  17:00 テストケース作成
  18:00 退社

以上、よろしくお願いします。