VBSでPOP3エラー

Question

前提・実現したいこと

VBSでメール受信を行いたいです。
分かる方がいらっしゃいましたらご教授願います。

発生している問題・エラーメッセージ

下記ソースを実行すると
POP3　error
とだけエラーが出ます。

POPで受信できるように設定していますし、
メールアドレスもパスワードも正しい値をいれています。

該当のソースコード

set BASP21 = CreateObject("basp21")
pop_sv = "pop.gmail.com:995"

' 受信メール有無チェック
rtn = BASP21.RcvMail(pop_sv, user_id, user_ps, "SAVD 1-1", "C:\Temp")

' 受信メール有無判定
If IsArray(rtn) Then
' 受信メール有り
' メール受信
rtn2 = BASP21.ReadMail(rtn(0), "subject:from:date:", "C:\Temp")

' メール受信結果判定
If IsArray(rtn2) Then
    ' メール受信成功
    MsgBox "メール受信成功:" & _
        rtn2(0) & "," & rtn2(1) & "," & rtn2(2) & "," & rtn2(3)
Else
    ' メール受信失敗
    MsgBox "メール受信失敗"
End If

Else
' 受信メール無し
MsgBox rtn
End If

Answer 1

POP3S(POP3 over SSL)機能

メソッドの引数が異なりますね。
利用方法を再確認してみてください。

output = bobj.RcvMail(user,pass,command[,dirname])

Comments

[ririri0033]

ご回答ありがとうございます。
説明不十分でお手数をおかけし申し訳ないのですが、当方使用のBASP21は無料版でして、
ご回答いただいたリファレンスは有料版のリファレンスなので解決には至りませんでした・・・。

[moonphase]

無料版の場合
http://www.hi-ho.ne.jp/babaq/basp21.html#0004
となりますが、ドキュメントを読む限りSSLに対応していないように見えます。
ダメ元で次のように指定してうまくいきませんか？
pop_sv = "SSL pop.gmail.com:995"

[ririri0033]

試してみましたが、それぞれ下記のようなエラーが出てきました。

pop_sv = "SSL pop.gmail.com:995" →　cant connect server 11001
pop_sv = "pop.gmail.com" →　cant connect server 10060

[moonphase]

GmailのPOPはSSL(TLS)通信が必須となるので、SSL(TLS)通信に対応していないクライアントは接続できません。

[ririri0033]

そうなんですね・・・。
分かりました。ありがとうございます。

[moonphase]

TLSに対応しているライブラリですが、どれもフリー版はなさそうですね。
以下のものは30日間のトライアルはできそうです。
http://www.chilkatsoft.com/refdoc/xChilkatMailManRef.html