Excel VBA basp21でメール送信エラー
メール送信エラーとなってしまいます。
”Cant connect Server 11004”
同アカウントでメーラーからの送受信は成功しております。
原因はSMTP設定の関係だと思うのですが、どのようにコードを書き足せば良いのでしょうか。
また参照設定は完了しています。
ご存知のかたご回答をよろしくお願いします。
コードは以下です。
Private Sub cmd送信_Click()
Dim bobj As Object
Dim svname As String
Dim id As String
Dim pass As String
Dim msg As Variant '送信チェック用
Dim strMLadr As String
Dim strDPadr As String
Dim strPW As String
'SMTPサーバ名:ポート番号:タイムアウト秒
svname = "サーバー:587:60"
'ログインID
id = ""
'パスワード
pass = ""
'オブジェクトを作成
Set bobj = CreateObject("basp21")
'宛先
mailto = ""
'送信者
strMLadr = "" '(送信者のメールアドレス'
strDPadr = "テスト" '(送信者の表示文字列)
strPW = "" '(送信者メールアドレスのパスワード)
mailfrom = strDPadr & "<" & strMLadr & ">" & vbTab & id & ":" & strPW
'件名
subj = "送信テスト"
'本文 改行はvbCrLf
body = "おはようございます。" & vbCrLf & "今日は良い天気ですね。"
'メール送信
msg = bobj.SendMail(svname, mailto, mailfrom, subj, body, "")
' 送信チェック
If msg <> "" Then
MsgBox "送信できませんでした。" & vbCrLf & msg, vbOKOnly + vbCritical, "エラー"
Else
MsgBox "送信に成功しました。", vbOKOnly + vbInformation, "完了"
End If
End Sub