| |
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(送信先１, 送信先２, 送信先３)
End With
'回覧
wb.Route
'終わり
wb.Saved = True
wb.Close
'
Set wb = Nothing
'
MsgBox "無事終了", vbInformation
End Sub
クリックして実行してみてください。
|
|
りん
- 05/8/22(月) 18:49 -
