|
かみちゃん様、ありがとうございます。
>なお、私も、Web検索した結果ですので、内容はわかりません。
>ご自身でも検索してみることをおすすめします。
私も調べてみましたが、どうやら受信ができていなかったみたいですね。エラーメッセージが出なくて分かりませんでした。
>また、別のスレッドや、他の掲示板で解決ができた場合には、それぞれのスレッド
>で解決結果を教えていただければ、ありがたいです。
承知しました。もう一方のスレッドにも報告します。
アドバイスありがとうございます。
受信のマクロはこんな感じです。
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) 'パスワード
'2000/05/20 APOPをサポート
'APOP 認証をするには、パスワードの前に "a" または "A" に 1個の
'ブランクをつけます。
'"a xxxx" : サーバがAPOP 未対応なら通常のUSER/PASS 処理をします。
'"A xxxx" : サーバがAPOP 未対応ならエラーになります。
szCommand = "SAVEALL" 'コマンド メールの1件目から3件目までを受信
' STAT ...... メールボックスに到着しているメール数と総バイト数のみを返します
' LIST [n[-n2]] ...... メールのSubject、From、Dateヘッダーの内容のみを
' 返します。範囲も指定できます。
' SAVE n[-n2] .... n番目のメールを受信します。範囲も指定できます。
' SAVD n[-n2] .... n番目のメールを受信し、サーバのメールボックスから
' 削除します。範囲も指定できます。
' SAVEALL ... 全てのメールを受信します
' SAVEALLD .. 全てのメールを受信し、サーバのメールボックスから
' 削除します
' DELE n[-n2] .... n番目のメールをメールボックスから削除します。
' 範囲も指定できます。
szDir = "aaaaa\aaaa" '受信したメールを保存するディレクトリ
ar = RcvMail(szServer, szUser, szPass, szCommand, szDir)
'戻り値が返る変数は、Variantタイプを指定すること。
'受信したメール1通ごとにファイルが作成されます。
'メールに添付されたファイルは、本文と共に1つのファイルに含まれます。
'ReadMail関数で添付ファイルを取出します。
Debug.Print "エラー" & ar 'エラー発生時は、配列でなくメッセージが戻ります。
End Sub
エラーメッセージが出ないのが不思議です。
どうしてでしょう???
|
|