ExcelからMailをしたとき漢字が出ない

質問

Excel上にあるセルの内容をメールにて送りたくて次のようなマクロでメールしたときに本文（.body)の文字が英数は出るのですが漢字が出ません

どこを直せばよいか教えてください

Sub Mail_01()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Sheets("MAIN").Range("U32")　’アドレスの入力
.CC = ""
.BCC = ""
.Subject = Sheets("MAIN").Range("U33")　’題目の入力
.Body = Sheets("MAIN").Range("U34")
'.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
'Application.Quit
End Sub
それと.sendでダイアログが現れます。これを出なくしてプログラムを続けたいのですかどうすれば良いのでしょうか
2点よろしくお願いします

回答No.1

imogasi · ベストアンサー

追試行しましたが、漢字が出ます。
（本回答は対試行したという報告だけです。）
ツールーオプションー送信ー送信メッセージのエンコード設定など、設定の問題では無いですか。
ーー
コード　ほぼ質問どおり
Sub Mail_01()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Sheets("Sheet1").Range("A1") 'アドレスの入力
.CC = ""
.BCC = ""
.Subject = Sheets("Sheet1").Range("A2") '題目の入力
.Body = Sheets("Sheet1").Range("A3")
'.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
'Application.Quit
End Sub
ーーー
データは下記で実行
Ｓｈｅｅｔ１　
Ａ１　自分のメイルアドレス
Ａ２　至急文書送信の件
Ａ３　取り急ぎ件の文書を送付しました
ーーーー
＞これを出なくしてプログラムを続けたいのですが・・
セキュリティ関係のメッセージをユーザー側のプログラムで出さなくするのは、ものの性格上、出さないようにはさせてくれないように思う。ＶＢＡのコードで出来る（Application.DisplayAlerts = Falseなど）範囲をこ越えているのでは。ＶＢＡ範囲外のＡＰＩ？などを使うのかな。不勉強で判らない。
いままで解答が付かないのは、簡単な問題じゃないということではないかな。

お礼

回答ありがとうございます。
ツールーオプションー送信ー送信メッセージを確認取りましたが、設定は良さそうです