Excel VBA質問箱 IV

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

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


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

【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 お礼[未読]

【27785】メール送信の件。
質問  kouka  - 05/8/19(金) 11:51 -

引用なし
パスワード
   いつもお世話になります。
koukaです。
わからなくなってしまったので教えてください(T-T)

以下の記述でメール送信しようとすると・・・
  ActiveWorkbook.HasRoutingSlip = True
  With ActiveWorkbook.RoutingSlip
    .Recipients = 変数
    .Subject = "特急依頼書送付の件(" & 日付 & ")"
    .Message = "お世話様です。" & Chr(13) & _
                  "首題の件、送付致します。よろしくお願い致します。"
    .Delivery = xlAllAtOnce
    .ReturnWhenDone = False
    .TrackStatus = False
  End With
  ActiveWorkbook.Route←ここの部分でエラーになっていまいます。

なにが原因なのでしょうか?
すみませんが、教えてください。
よろしくお願いします。

【27829】Re:メール送信の件。
発言  りん E-MAIL  - 05/8/21(日) 18:16 -

引用なし
パスワード
   kouka さん、こんばんわ。

>  ActiveWorkbook.Route←ここの部分でエラーになっていまいます。
>なにが原因なのでしょうか?
変数 に入っているあて先は大丈夫ですか?

XL2000で試してみましたが大丈夫でした。
エクセル以外のアプリから起動して、動作しようとしていませんか?

【27846】Re:メール送信の件。
発言  kouka  - 05/8/22(月) 10:12 -

引用なし
パスワード
   こんにちは、りんさん。

宛先は大丈夫です。
私のExcelもXL2000ですが、ダメなのです・・・。
マクロ自体はExcelからボタンを押して送信というふうになっています。
メールは、Outlook2000を使っていますが、これが悪いのでしょうか?
すみませんが、教えてください。
よろしくお願いします。

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

引用なし
パスワード
   kouka さん、こんにちわ。

>以下の記述でメール送信しようとすると・・・
 << 略 >>
>  ActiveWorkbook.Route←ここの部分でエラーになっていまいます。
>
>なにが原因なのでしょうか?
エラーメッセージの内容を教えてください。

【27848】Re:メール送信の件。
発言  kouka  - 05/8/22(月) 11:40 -

引用なし
パスワード
   こんにちは、りんさん。
お世話になります。

エラーメッセージは『実行時エラー'1004': 'Route'メソッドは失敗しました:'_Workbook'オブジェクト』です。

よろしくお願いします。

【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

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

【27882】Re:メール送信の件。
発言  kouka  - 05/8/23(火) 10:06 -

引用なし
パスワード
   こんにちは、りんさん。

>ActiveWorkbookはマクロのあるブックですか、それとも別ですか?
マクロのあるブックです。

>Nortonとか、TrendMicroとかのソフトで制限がかかっていませんか?
かかってないはずですが、会社独自仕様のパソコンなので詳しい事まではわかりません・・・。ごめんなさい。

単純に新しいブックでマクロコードを記述しましたが、
やはり、回覧するところの『Route』、
>  wb.Route
で、エラーになってしまいます。
なぜかはわからないのですが、私の使っているExcelは、
『HasRoutingSlip』を認識できていないのでしょうか?
そんな感じがします・・・。

【27887】Re:メール送信の件。
発言  りん E-MAIL  - 05/8/23(火) 12:28 -

引用なし
パスワード
   kouka さん、こんにちわ。

>単純に新しいブックでマクロコードを記述しましたが、
>やはり、回覧するところの『Route』、
>>  wb.Route
>で、エラーになってしまいます。
>なぜかはわからないのですが、私の使っているExcelは、
>『HasRoutingSlip』を認識できていないのでしょうか?
>そんな感じがします・・・。
不思議ですねぇ。
ところで、SendMailでも送信できませんか?

【27901】Re:メール送信の件。
お礼  kouka  - 05/8/23(火) 19:31 -

引用なし
パスワード
   こんばんは、りんさん。

不思議ですー(T_T)
ユーザー側に話をして、SendMailで組み直しました。
それだと問題無しにいくのですけどね〜。

この度は長々と付き合っていただき、ありがとうございました。

【27905】Re:メール送信の件。
お礼  りん E-MAIL  - 05/8/23(火) 20:31 -

引用なし
パスワード
   kouka さん、こんばんわ。

>不思議ですー(T_T)
>ユーザー側に話をして、SendMailで組み直しました。
>それだと問題無しにいくのですけどね〜。
(T_T)SendMailはうまくいくのか〜

OEではなくOutLookということなので、
アクセスVBA掲示板(V3)ログ
http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=2056;id=Access

回覧にはなりませんが、こちらのやり方だと本文や宛名の入力も制御できて良いかも。

回覧機能は使ったことが無かったので、私にも、とっても役に立ちました
実験も兼ねて作ったメール回覧のマクロが某所でバリバリ稼動中です(笑)
ありがとう

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