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