2024-04-22から1日間の記事一覧
【Mail_Setting.xlsm】 Sub SendEmail() Dim OutlookApp As Object Dim MailItem As Object Dim mail_list As Variant Dim i As Integer Dim LastRow As Long ' C列の最終行を取得 LastRow = Cells(Rows.Count, "C").End(xlUp).Row ReDim mail_list(0 To Las…