Excel VBA質問箱 IV

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

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


39627 / 76732 ←次へ | 前へ→

【42215】Re:メールの受信について
質問  ike-kin  - 06/9/4(月) 12:44 -

引用なし
パスワード
   かみちゃん様、ありがとうございます。

>なお、私も、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

エラーメッセージが出ないのが不思議です。
どうしてでしょう???
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 お礼

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