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(送信先１, 送信先２, 送信先３)
　 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