Excel VBA質問箱 IV

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

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


53673 / 76738 ←次へ | 前へ→

【27874】Re:メール送信の件。
発言  りん E-MAIL  - 05/8/22(月) 18:49 -

引用なし
パスワード
   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

クリックして実行してみてください。
0 hits

【27785】メール送信の件。 kouka 05/8/19(金) 11:51 質問
【27829】Re:メール送信の件。 りん 05/8/21(日) 18:16 発言
【27846】Re:メール送信の件。 kouka 05/8/22(月) 10:12 発言
【27847】Re:メール送信の件。 りん 05/8/22(月) 11:29 発言
【27848】Re:メール送信の件。 kouka 05/8/22(月) 11:40 発言
【27874】Re:メール送信の件。 りん 05/8/22(月) 18:49 発言
【27882】Re:メール送信の件。 kouka 05/8/23(火) 10:06 発言
【27887】Re:メール送信の件。 りん 05/8/23(火) 12:28 発言
【27901】Re:メール送信の件。 kouka 05/8/23(火) 19:31 お礼
【27905】Re:メール送信の件。 りん 05/8/23(火) 20:31 お礼

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