Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66917 / 76734 ←次へ | 前へ→

【14376】メール送信
質問  liee_chang  - 04/5/27(木) 13:47 -

引用なし
パスワード
   こんにちは。
メールでブックを送信する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
1 hits

【14376】メール送信 liee_chang 04/5/27(木) 13:47 質問
【14420】Re:メール送信 Kein 04/5/28(金) 15:26 発言
【14437】Re:メール送信 かみちゃん 04/5/28(金) 22:49 発言

66917 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free