|
kouka さん、こんばんわ。
>エラーメッセージは『実行時エラー'1004': 'Route'メソッドは失敗しました:'_Workbook'オブジェクト』です。
ActiveWorkbookはマクロのあるブックですか、それとも別ですか?
Nortonとか、TrendMicroとかのソフトで制限がかかっていませんか?
ボタンからの実行ということなので、
以下のコードで実験した結果、OutLook、OutlookExpressともに成功しました。
あたらしいブックにコマンドボタンを配置して、以下を記述。
Private Sub CommandButton1_Click()
'
'念のために
ActiveCell.Activate
'
Dim wb As Workbook
'
Set wb = Workbooks.Add
wb.Worksheets(1).Cells(1).Value = Now
'
wb.HasRoutingSlip = True
With wb.RoutingSlip
.Message = "送信テストです"
.Delivery = xlAllAtOnce
.TrackStatus = False
.ReturnWhenDone = False
.Recipients = Array(送信先1, 送信先2, 送信先3)
End With
'回覧
wb.Route
'終わり
wb.Saved = True
wb.Close
'
Set wb = Nothing
'
MsgBox "無事終了", vbInformation
End Sub
クリックして実行してみてください。
|
|