こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルのマクロについて教えてください。

現在エクセルで作ったファイルを14人に回覧で送信しようとしています。
それをマクロを使ってボタン一つで14人に送信します。
それぞれのアドレスはセルの【q12~q25】に入っています。
そのファイルデータは14人の共有サーバーに有り、14人誰でもそのボタン一つでファイルを更新したら14人に送信するようにマクロをくもとしているのですが上手くいきません。
メール送信のBSMTP.DLLなどは出来るだけ使いたくありません。
下記のがマクロです。
質問をまとめますと
(1)マクロはどこがおかしいのでしょうか?
(2)どのPCでもBSMTP.DLLなどは使用せず送信マクロを使えるように出来るのでしょうか?以前似たようなマクロ組んだら他のPCではメール送信出来ませんでした。

マクロは
*****************************************
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = Array(Union(Range("q12"), Range("q13"), Range("q14"), Range("q15"), Range("q16"), Range("q17"), Range("q18"), Range("q19"), Range("q20"), Range("q21"), Range("q22"), Range("q23"), Range("q24"), Range("q25")))
.Subject = "掲示板更新のお知らせ"
.Message = "掲示板ファイルが更新されましたので確認してください。"
.Delivery = xlOneAfterAnother
.ReturnWhenDone = True
.TrackStatus = True
End With
ActiveWorkbook.Route
End Sub
*****************************************
です。
宜しくお願いいたします。

投稿日時 - 2009-02-18 11:10:09

QNo.4727621

すぐに回答ほしいです

質問者が選んだベストアンサー

規定のメーラーの変更で、OutlookExpressでも送信可能ですね。

ただ
.Recipients = Array(Union(Range("q12"), Range("q13"), Range("q14"), Range("q15"), Range("q16"), Range("q17"), Range("q18"), Range("q19"), Range("q20"), Range("q21"), Range("q22"), Range("q23"), Range("q24"), Range("q25")))

この部分の
Union メソッドが意味不明?
有ると違うエラーになってしまいます。
ちなみにOutlookでもこれをはずさないと送信不可でした。

メ-ラーがWindowsLiveメールの場合はメーラーがエラーを起こして実行不可、サンダーバードも同様に実行が停止しました。

投稿日時 - 2009-02-20 21:35:56

お礼

Unionは間違えていました。
OutlookExpressの変更で出来るようになりました。
有り難うございました。

投稿日時 - 2009-02-25 16:42:12

ANo.4

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(4)

ANo.3

既定のメーラーをOutlookExpressに設定するとOutlookExpressで送信できるのかもしれませんが、現在の私の環境ではすぐに確認が出来ないので、後でかまわなければ検証して報告します。

と言うか送信用にOutlookに設定してみては?

投稿日時 - 2009-02-20 18:37:53

ANo.2

Outlookにアカウント設定がされていないとか?

投稿日時 - 2009-02-18 20:12:02

補足

確かにMicrosofut Outlookのアカウント作成はされていません。
それは何となく解っていたのですが・・・・・
通常時はOutlook Expressを使用していて、そちらはアドレス帳があります。
他のマクロではOutlook Expressを起動するのですが、上記マクロのみMicrosofut Outlookが読み込まれます。
それも何故だか解らないのです?????

投稿日時 - 2009-02-19 10:20:28

ANo.1

私の環境では、質問のマクロは動きましたが、どこでエラー表示がされましたか?

投稿日時 - 2009-02-18 12:49:36

補足

マクロを実行すると
『プログラムがOutlook内に保存されている電子メールアドレスにアクセスしようとしています。よろしいですか?』
そして
『はい』
をクリックすると再度同じ質問がでてきます。
次に
『Microsofut Outlookでは認識されません』
とでてキャンセルを押すしか無く
『実行時エラー HasRoutingSlip メソッドは失敗しました。Workbookオbジェクト』
と出ます。

良く意味がわからないのです・・・・・・

投稿日時 - 2009-02-18 16:04:18

あなたにオススメの質問