お世話になります。
下記のようにExcelのVBAを利用してメールを作りたいのですが、メールの(表示)作成がされません。
どの部分がまずいのでしょうか
お忙しいとは思いますが宜しくお願い致します。
Dim OL As Outlook.Application
Dim MI As Outlook.MailItem
Set OL = CreateObject("Outlook.Application")
Set MI = OL.CreateItem(olMailItem)
Dim tanto , seihin_no , Item_no As String
tanto = Worksheets("Sheet1").Range("P2").Value '担当者
seihin_no = Worksheets("Sheet1").Range("D3").Value '製品番号
Item_no = Worksheets("Sheet1").Range("D5").Value 'アイテム名
If tanto = "tanto1" Then MI.To = "tanto1@test.com"
If tanto = "tanto2" Then MI.To = "tanto2@test.com"
If tanto = "tanto3" Then MI.To = "tanto3@test.com"
MI.SentOnBehalfOfName = "kakunin@test.com"
MI.Cc = "kakunin_cc@test.com"
honbun =""
honbun = "お疲れさまです。" & Chr(13) & Chr(10)
honbun = honbun + "" & Chr(13) & Chr(10)
honbun = honbun + "先程提出されましたアイテムですが、急ぎにて確認が必要でしょうか" & Chr(13) & Chr(10)
honbun = honbun + "急ぎの場合には、その旨をお知らせ下さい。" & Chr(13) & Chr(10)
honbun = honbun + "" & Chr(13) & Chr(10)
honbun = honbun + "" & Chr(13) & Chr(10)
honbun = honbun + "回答が無いようでしたら、通常での確認とさせて頂きます。" & Chr(13) & Chr(10)
honbun = honbun + "" & Chr(13) & Chr(10)
honbun = honbun + "" & Chr(13) & Chr(10)
honbun = honbun + "" & Chr(13) & Chr(10)
honbun = honbun + "お忙しいとは思いますが宜しくお願い致します。" & Chr(13) & Chr(10)
MI.Body = honbyn
mail1:
' MI.Subject = "テストメール" '件名
'メール表示
MI.Display
'オブジェクト解放
Set OL = Nothing
Set MI = Nothing
