|
こんにちは。
メールでブックを送信するVBAを作ろうと思いヘルプ等を見ていました。
回覧の方法しかわかりませんで今現在は下記のとおりに作っています。
これにすると、メール本文に”添付されているファイルには回覧用紙が付いています。このファイルの内容を確認したら、[ファイル] メニューの [送信] - [次の回覧先] を選択して、送信者へ戻してください。”って言葉が必ず入るのですが
これを除くことって出来るのでしょうか。。
教えて下さい!!!
Sub Send_to_Mail()
Dim R_Name As String
Dim xls_File As String
'******************************************************
xls_File = "あああ.xls"
R_Name = InputBox("宛先の入力", "名前")
'******************************************************
Workbooks(xls_File).HasRoutingSlip = True
With Workbooks(xls_File).RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array(R_Name)
.Subject = "件名だよ"
.Message = "本文だよ" & vbNewLine & vbNewLine & vbNewLine & "おわり"
End With
Workbooks(xls_File).Route
End Sub
|
|