エクセルVBAでのファイル転送

任意のアドレスに添付ファイルを付けて送信完了までのコードを教えてほしいです。

Workbooks("***.xls").Sheets("***").Activate
Range("D8").Select
/上記セルにメールアドレスを設定してます。/
Selection.Hyperlinks(1).Follow _ NewWindow:=False, AddHistory:=True

送り先は設定されるけど添付ファイルの付け方が判らない。

Workbooks("***.xls").Activate
Application.Dialogs(xlDialogSendMail).Show

添付ファイルは付けれるけど送り先の設定が判らない。

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2005/05/04 10:20

下記を参考にしてください。

http://www.hi-ho.ne.jp/babaq/vbtips.html
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …

参考URL：http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …

この回答へのお礼

大変有難うございます。
BASP21を理解していこうと思います。

お礼日時：2005/05/04 20:52