VB5.0 Outlookから自動でメールを送信する

VB5.0からItem.Sendで夜間バッチの処理結果を携帯電話のメールアドレスに送信しようとしています。

Dim objOL As Object
Dim ObjMI As Object
Set objOL = CreateObject("Outlook.Application")
Set ObjMI = objOL .CreateItem(0)
ObjMI.Subject = "タイトル"
ObjMI.Body = "本文"
ObjMI.To = "メールアドレス"
ObjMI.Send

実行するとOutLookが起動し、「プログラムの自動的にメールを送信しようとする。よいか？」を問うメッセージが表示され、「はい」ボタンをクリックしなければ、メールを送ることができません。
これはウィルス等の対策だと思うのですが、先述したとおり、夜間バッチ処理の中でこの処理を実行したいので「はい」ボタンを押すことができません。
VBのプログラミング／Outlookの設定でこのメッセージを出なくするまたは、自動で「はい」ボタンをクリックする方法はありませんか。
または、他の方法をご存知の方ご教授ください。
よろしくお願い致します。

No.3 回答者： 2ch 回答日時： 2004/03/07 12:27

#1に賛同

MAPI

参考URL：http://oshiete1.goo.ne.jp/goo_search.php3?dummy= …

No.2 回答者： ABC_DES 回答日時： 2004/03/04 17:48

自動送信したければ、コマンドラインメールを使ってあげればどうでしょうか。

起動はVBからしてあげればいいかと

あとはご自分で調べて下さい

No.1 回答者： todo36 回答日時： 2004/03/04 17:20

>または、他の方法をご存知の方ご教授ください。

過去ログ参照