|
▼りん さん:
ありがとうございます。
すみません、コンパイルエラーは出なくなってしまいました。
解決したと言うことでしょうか??
でも、うまくいかないのです。
エクセルでメールを受信しようとしているのですが
それがクライアントでは動作して、サーバーが駄目です。
コードを載せます。
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なのになんででしょう?
ココに書いていい質問なのか迷いますが、本当に困ってしまって。
どなたか教えていただけないでしょうか?
|
|