エクセルのマクロについて教えてください。
現在エクセルで作ったファイルを１４人に回覧で送信しようとしています。
それをマクロを使ってボタン一つで１４人に送信します。
それぞれのアドレスはセルの【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
*****************************************
です。
宜しくお願いいたします。
お礼
早速のご回答ありがとうございました。