Sub CreateOutlookMail() Dim outlookApp As Object Dim outlookMail As Object Dim toAddress As String Dim ccAddress As String Dim mailBody As String ' Outlookアプリケーションのインスタンスを作成 Set outlookApp = CreateObject("Outlook.Applicat…