|
その後の報告です。
サーバーに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
というものです。
何ででしょう?どなたか心当たりはないでしょうか?
|
|