プロバイダがOCN、メール送信手段がBASP21、の組み合わせで、やっとメールが送れた

2時間かかった。
Google先生も、なかなか教えてくんなくて。
サーバ名に”smtp.vc”を含めるのが、ポイント。

Sub TestSendMailCom()
'Bacs使用例1 SendAllメソッド
Dim Bacs1 As New Bacs1
Bacs1.Server = "smtp.vcvoice.ocn.ne.jp:587:120"
Bacs1.From = "テスト" & vbTab & "xxxxxxxx:yyyyyy"
Bacs1.subj = "subject 3"
Bacs1.body = "test" & vbCrLf & "desu"
Bacs1.SendAll "FAX送信tbl", "eメール"
End Sub