|
はじめまして、質問させていただきます。
以下のロジックで、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
|
|