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

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

マクロは
*****************************************
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
*****************************************
です。
宜しくお願いいたします。

No.4 ベストアンサー 回答者： web2525 回答日時： 2009/02/20 21:35

規定のメーラーの変更で、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メールの場合はメーラーがエラーを起こして実行不可、サンダーバードも同様に実行が停止しました。

この回答へのお礼

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

お礼日時：2009/02/25 16:42

No.3 回答者： web2525 回答日時： 2009/02/20 18:37

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

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

No.2 回答者： web2525 回答日時： 2009/02/18 20:12

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

この回答への補足

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

補足日時：2009/02/19 10:20

No.1 回答者： web2525 回答日時： 2009/02/18 12:49

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

この回答への補足

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

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

補足日時：2009/02/18 16:04