Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39705 / 76732 ←次へ | 前へ→

【42136】Re:クライアントとサーバー
質問  ike-kin  - 06/9/2(土) 17:20 -

引用なし
パスワード
   ▼りん さん:
ありがとうございます。
すみません、コンパイルエラーは出なくなってしまいました。
解決したと言うことでしょうか??
でも、うまくいかないのです。

エクセルでメールを受信しようとしているのですが
それがクライアントでは動作して、サーバーが駄目です。

コードを載せます。

Sub mailget()
  Dim sts As Integer
  sts = MsgBox("メール受信してもいいですか?", vbOKCancel)
  If sts = vbCancel Then
    Exit Sub
  End If

  If Worksheets("設定").Cells(1, 2) = "" Then
    MsgBox "POPサーバが設定されていません" + vbCrLf + "処理を終了します"
    Exit Sub
  End If
  If Worksheets("設定").Cells(3, 2) = "" Then
    MsgBox "受信ログオンIDが設定されていません" + vbCrLf + "処理を終了します"
    Exit Sub
  End If
  If Worksheets("設定").Cells(4, 2) = "" Then
    MsgBox "受信ログオンPasswordが設定されていません" + vbCrLf + "処理を終了します"
    Exit Sub
  End If


  Dim szServer As String, szUser As String, szPass As String
  Dim szFilename As String, szPara As String
  Dim szCommand As String, szDir As String
  Dim ar As Variant, v As Variant
  Dim retv As Variant, s As Variant

  Dim msg As String

  szServer = Worksheets("設定").Cells(1, 2) 'SMTPサーバ名と同じでよい。
          'タブで区切ってポート番号を指定できます。
  szUser = Worksheets("設定").Cells(3, 2)    'メールアカウント名
  szPass = Worksheets("設定").Cells(4, 2)     'パスワード
   
  szCommand = "SAVEALL" 'コマンド メールの1件目から3件目までを受信
        ' SAVEALL ... 全てのメールを受信します
  
  szDir = "D:\****\****\****\mail" '受信したメールを保存するディレクトリ

  ar = RcvMail(szServer, szUser, szPass, szCommand, szDir)

  Debug.Print "エラー" & ar 'エラー発生時は配列でなくメッセージが戻ります。
  
End Sub

と、いうものです。Bsmtp.dllは入れてあります。
受信すると

エラーPOP3 error -ERR [AUTH] Password supplied for "***@***.jp" is

というメッセージが出ます。
クライアントではOKだしサーバーでメーラーの同じメアド設定してもOKなのになんででしょう?
ココに書いていい質問なのか迷いますが、本当に困ってしまって。
どなたか教えていただけないでしょうか?

0 hits

【42131】クライアントとサーバー ike-kin 06/9/2(土) 16:13 質問
【42132】Re:クライアントとサーバー ike-kin 06/9/2(土) 16:16 質問
【42133】Re:クライアントとサーバー りん 06/9/2(土) 16:27 発言
【42136】Re:クライアントとサーバー ike-kin 06/9/2(土) 17:20 質問
【42139】Re:クライアントとサーバー りん 06/9/2(土) 18:07 発言
【42148】Re:クライアントとサーバー ike-kin 06/9/2(土) 20:37 お礼
【42140】Re:クライアントとサーバー かみちゃん 06/9/2(土) 18:18 発言
【42143】Re:クライアントとサーバー ike-kin 06/9/2(土) 19:25 回答
【42144】Re:クライアントとサーバー ike-kin 06/9/2(土) 19:36 回答
【42153】メールの受信について ike-kin 06/9/2(土) 22:30 質問
【42212】Re:メールの受信について ike-kin 06/9/4(月) 12:41 質問
【42215】Re:メールの受信について ike-kin 06/9/4(月) 12:44 質問
【42218】Re:メールの受信について かみちゃん 06/9/4(月) 14:10 発言
【42234】Re:メールの受信について ike-kin 06/9/4(月) 17:54 お礼

39705 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free