Sub makeMale()
'=========================
'読み込み処理
'=========================
Dim str_atena As String
Dim str_myName As String
Dim str_gatsuban As String
Dim str_ankenName As String
Dim str_ririsuIrai(20) As String
str_atena = Range("C2").Value
str_myName = Range("C3").Value
str_gatsuban = Range("C4").Value
str_ankenName = Range("C5").Value
d = Range("C6").End(xlDown).Row - 6 'リリース依頼票本数を取得
'リリース依頼票配列に依頼番号を記載された分だけ取得する
For i = 0 To d
str_ririsuIrai(i) = Cells(6 + i, 3)
Next i
'確認用
For i = 0 To d
Cells(6 + i, 1) = str_ririsuIrai(i)
Next i
Dim kanriboPath As String '管理簿パス
Dim iraihyoPath As String '依頼票ファイルパス
Dim ririsuSyubetsu As String 'リリース種別(NTD,XX,BS,…)
ririsuSyubetsu = Left(str_ririsuIrai(1), 2)
Worksheets("外部定義").Select
Dim rowCount As Integer
rowCount = Cells.Find(What:=ririsuSyubetsu, After:=Cells(1, 3), LookIn:=xlValues, LookAt:=xlPart).Row
Cells(1, 1) = rowCount
kanriboPath = Cells(rowCount, 4)
Cells(2, 1) = kanriboPath
rowCount = Cells.Find(What:=ririsuSyubetsu, After:=Cells(11, 3), LookIn:=xlValues, LookAt:=xlPart).Row
Cells(3, 1) = rowCount
iraihyoPath = Cells(rowCount, 4)
Cells(4, 1) = iraihyoPath
'=========================
'メッセージ作成処理
'=========================
Worksheets("メール作成").Select
Dim msg_Kenmei As String
Dim msg_Atena As String
Dim msg_Otsukare As String
Dim msg_Onegai As String
Dim msg_Ririsutaisyo As String
Dim msg_Kanribo As String
Dim msg_Tenpu As String
Dim msg_Yoroshiku As String
'◎件名
msg_Kenmei = "【" & str_gatsuban & str_ankenName & "】"
For i = 0 To d
msg_Kenmei = msg_Kenmei + str_ririsuIrai(i) + ", "
Next i
msg_Kenmei = Left(msg_Kenmei, Len(msg_Kenmei) - 2) '右から2文字削除(半角カンマ＋半角スペース)
'テキストボックスに件名出力
UserForm1.TextBox_title.Text = msg_Kenmei
'◎本文
msg_Atena = str_atena & vbNewLine
msg_Otsukare = "お疲れ様です。" & str_myName & "です。" & vbNewLine
msg_Onegai = "下記通り、" & str_gatsuban & str_ankenName & "に伴うリリース依頼票を作成しました。" + vbNewLine + _
"お手数をおかけしますが、ご確認のほどよろしくお願いいたします。" & vbNewLine
msg_Ririsutaisho = "【" & str_gatsuban & str_ankenName & "】" & vbNewLine & _
"---------" & vbNewLine
For i = 0 To d
msg_Ririsutaisho = msg_Ririsutaisho & "・" & str_ririsuIrai(i) & "：★" & vbNewLine
Next i
msg_Ririsutaisho = msg_Ririsutaisho & "-----------" & vbNewLine
msg_Kanribo = "■管理簿" & vbNewLine & "<" & kanriboPath & ">" & vbNewLine
msg_Iraihyo = "■リリース依頼表" & vbNewLine & "<" & iraihyoPath & ">" & vbNewLine
For i = 0 To d
msg_Iraihyo = msg_Iraihyo & "・" & str_ririsuIrai(i) & vbNewLine
Next i
msg_Tenpu = "■添付資料" & vbNewLine & "なし★" & vbNewLine
msg_Yoroshiku = "以上、よろしくお願いいたします。" & vbNewLine
'テキストボックスに本文出力
UserForm1.TextBox_honbun.Text = msg_Atena & vbNewLine & _
msg_Otsukare & vbNewLine & _
msg_Onegai & vbNewLine & _
msg_Ririsutaisho & vbNewLine & _
msg_Kanribo & vbNewLine & _
msg_Iraihyo & vbNewLine & _
msg_Tenpu & vbNewLine & _
msg_Yoroshiku
UserForm1.Show
End Sub