Excel VBA質問箱 IV

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

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


12291 / 13644 ツリー ←次へ | 前へ→

【11295】eメール送信について質問です ドライ 04/3/4(木) 19:33 質問

【11295】eメール送信について質問です
質問  ドライ  - 04/3/4(木) 19:33 -

引用なし
パスワード
   はじめまして、質問させていただきます。
以下のロジックで、eメールを送信しますと、
「----------添付されているファイルには回覧用紙が付いています。
これ以上、回覧する宛先はありません。」
と、余計なメッセージが付いて出力されてしまいます。

思惑としては、ロジックの中にある「意見を聞かせて下さい」だけを
書込みたいと思っていますが、実際にこのロジックで送信すると
「意見を聞かせて下さい----------添付されているファイルには回覧用紙が
付いています。これ以上、回覧する宛先はありません。」
と書込みされてメールが送られてしまいます。

余計な部分「----------添付されているファイル・・・・・」を表示させないで
送りたいのですがどの様にすればよいのか分からないので誰か教えて下さい。

なにぶん初心者なのでよろしくお願い致します。


Dim Snd_name As String
Dim Fil_name As String
Dim Response As Long

' 送信処理
'
Private Sub 送信1()
  Snd_name = ShtMain.Range("E20").Formula
  Fil_name = ShtMain.Range("C20").Formula
  
  If Snd_name = "" Then
    Call MsgBox("送信先を指定して下さい")
    Exit Sub
  End If
  If Fil_name = "" Then
    Call MsgBox("Excelファイル名を指定して下さい")
    Exit Sub
  End If
  
  Workbooks.Open Filename:="C:\" & Fil_name & ".xls"
  Response = MsgBox(Fil_name & "送信?", vbYesNo)
  If Response = vbYes Then
   '  ActiveWorkbook.SendMail Recipients:=Snd_name, Subject:=Fil_name & " 新規経路一覧"
  
'回覧用紙付き
    With ActiveWorkbook
      .HasRoutingSlip = True
      With .RoutingSlip
        .Delivery = xlAllAtOnce
        .Recipients = Array(Snd_name)
        .Subject = "新規経路一覧"
        .Message = "意見を聞かせて下さい"
        .ReturnWhenDone = False
      End With
      .Route
    End With
  
  End If
  ActiveWindow.Close
  

End Sub

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