2020-05-01から1ヶ月間の記事一覧
Option Explicit Sub houkoku_mail() Dim OL As Outlook.ApplicationDim ML As Outlook.MailItem Set OL = CreateObject("Outlook.Application")Set ML = OL.CreateItem(olMailItem)ML.To = "butyo@kaisya.com" 'ToML.CC = "syatyo@kaisya.com" 'CCML.BCC = …