質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
POP

POP(Post Office Protocol)とは、電子メールで使用される受信プロトコル(通信規約)です。SMTPで転送されたメールを一時的に保管し、そのメールをサーバから取り出す際に使用します。

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

解決済

VBSでPOP3エラー

ririri0033
ririri0033

総合スコア0

POP

POP(Post Office Protocol)とは、電子メールで使用される受信プロトコル(通信規約)です。SMTPで転送されたメールを一時的に保管し、そのメールをサーバから取り出す際に使用します。

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

1回答

0評価

0クリップ

2589閲覧

投稿2019/04/17 07:27

前提・実現したいこと

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

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

POP

POP(Post Office Protocol)とは、電子メールで使用される受信プロトコル(通信規約)です。SMTPで転送されたメールを一時的に保管し、そのメールをサーバから取り出す際に使用します。

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。