Excel VBA質問箱 IV

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

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


39636 / 76732 ←次へ | 前へ→

【42205】Re:メール受信
質問  ike-kin  - 06/9/4(月) 11:14 -

引用なし
パスワード
   その後の報告です。

サーバーにAdministratorでログインしてBASP21をインストールしました。
インストールは正常に終了しました。
その後受信も正常終了。
ですが、送信でパスワードエラーになります。

送信のコードは

Sub MailSend()
  Dim sts As Integer
  sts = MsgBox("メール送信してもいいですか?", vbOKCancel)
  If sts = vbCancel Then
    Exit Sub
  End If
  If Worksheets("設定").Cells(2, 2) = "" Then
    MsgBox "SMTPサーバが設定されていません" + vbCrLf + "処理を終了します"
    Exit Sub
  End If
  If Worksheets("設定").Cells(5, 2) = "" Then
    MsgBox "送信元メールアドレスが設定されていません" + vbCrLf + "処理を終了します"
    Exit Sub
  End If
  If Worksheets("設定").Cells(8, 1) = "" Then
    MsgBox "題名(Subject)が設定されていません" + vbCrLf + "処理を終了します"
    Exit Sub
  End If
  If Worksheets("設定").Cells(10, 1) = "" Then
    MsgBox "メール内容(Body)が設定されていません" + vbCrLf + "処理を終了します"
    Exit Sub
  End If
  
  Dim ret As String
  Dim szServer As String, szTo As String, szFrom As String
  Dim szSubject As String, szBody As String, szFile As String

  szServer = Worksheets("設定").Cells(2, 2)  ' SMTPサーバ名。
               'タブで区切ってポート番号を指定できます。
  szFrom = Worksheets("設定").Cells(5, 2)   ' 送信元

  Dim i As Long
  i = 3
  Do While Worksheets("設定").Cells(i, 6) <> ""
    DoEvents

    szTo = Worksheets("設定").Cells(i, 6)   ' 宛先
    ' 複数の宛先に送付するときは、アドレスをタブで区切って
    ' いくらでも指定できます。
    szSubject = Worksheets("設定").Cells(8, 1)   ' 件名
    szBody = Worksheets("設定").Cells(10, 1)
    szFile = ""  ' ファイル添付なし

'文字列変換
    Dim stradd As Integer
    Do While InStr(szBody, "%name%") <> 0
      DoEvents
      stradd = InStr(szBody, "%name%")
      szBody = Mid(szBody, 1, stradd - 1) + Worksheets("設定").Cells(i, 5) + Mid(szBody, stradd + 6, Len(szBody) - stradd - 5)
    Loop
'    Debug.Print szServer, szTo, szFrom, szSubject, szBody, szFile
    ret = SendMail(szServer, szTo, szFrom, szSubject, szBody, szFile)
  
    ' 送信エラーのときは、戻り値にエラーメッセージが返ります。
    If Len(ret) <> 0 Then
      MsgBox "エラー" & ret
    End If
    i = i + 1
  Loop
  MsgBox "送信終了" + vbCrLf + CStr(i - 3) + "通送りました"
End Sub

です。デバックではパスワードは正常にはいっています。
エラーメッセージは
エラー550 5.7.1 aaa@bbb.com Relaying denied to aaa@bbb.com
というものです。
何ででしょう?どなたか心当たりはないでしょうか?

0 hits

【42115】メール受信 ike-kin 06/9/1(金) 15:00 質問
【42161】Re:メール受信 Kein 06/9/3(日) 9:51 発言
【42172】Re:メール受信 inoue 06/9/3(日) 19:37 発言
【42175】Re:メール受信 りん 06/9/3(日) 19:59 発言
【42183】Re:メール受信 inoue 06/9/3(日) 22:11 回答
【42197】Re:メール受信 ike-kin 06/9/4(月) 7:12 質問
【42205】Re:メール受信 ike-kin 06/9/4(月) 11:14 質問
【42206】Re:メール受信 かみちゃん 06/9/4(月) 11:32 発言
【42214】Re:メール受信 inoue 06/9/4(月) 12:43 発言
【42233】Re:メール受信 ike-kin 06/9/4(月) 17:49 お礼

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