Sub メール作成() Dim ファイル名 As StringDim 保存場所 As String 保存場所 = ThisWorkbook.Pathファイル名 = Sheets("Sheet6").Range("B1").Value Open 保存場所 & "\メール作成_" & ファイル名 & ".txt" For Output As #1 Print #1, Range("B2")Print #1…