CDOを使ってダイヤルアップ接続のメール送信をするには？

さおり 2002-03-02 03:40:17 No: 75349

はじめまして  さおりと言います。
ここで質問してよいのか分かりませんが、VBでの開発のため質問させていただきます。
CDO（コラボレーション・データ・オブジェクト）のNewMailオブジェクトを
使って、メール送信をさせようと思っています。
LAN内にSTMPサーバーが存在する場合は、うまくいくのですが  ダイヤルアップ
接続では、メールが送信されません。手動でダイヤルアップ接続確立後でも、メール送信がされません。  どなたか原因がお分かりの人がいらしたらおしえてください。
＜＜カンタンなので必要ないと思いますが、ソースです＞＞
    Dim objSMTP       as CDONTS.NewMail

Set objSMTP = CreateObject("CDNTS.NewMail")

    With objSMTP
        .From = "aaa@bb.cc.dd"
        .To = "ee@ff.gg.hh"
        .Subject = "Test Mail"
        .Body = "Test Mail Body"
        .Send
    End with

以上、よろしくお願いします。