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

#1に賛同

MAPI

参考URL：

http://oshiete1.goo.ne.jp/goo_search.php3?dummy=%A5%E1%A1%BC%A5%EB&MT=&TAB=&kw=mapi&c=257

回答No.2

ABC_DES

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

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

回答No.1

todo36

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

過去ログ参照