IT仕事

プロバイダが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

-IT仕事

執筆者:

関連記事

no image

Visual Studio 2005 Express Edition無償公開

窓の杜 – 【NEWS】「Visual Studio 2005 Express Edition」日本語正式版の一般向け無償公開開始 http://www.forest.impress.co …

no image

Plus-Serverへのインストール~ECCUBE覚え書き

会社で使っているPlus-serverはECCUBEが使える(かも)という情報を仕入れたので、やってみた。 結論から言うと、インストールはできた。無事に。でもその先動くかどうかまではチェックしていない …

no image

GoogleAnalyticsは複数の管理者で使える

GoogleAnalytics、仕事で使っている。 ホント便利だ。タダだし。 ただ難点として、管理画面に入るには私のIDとパスワードがいるので、ユーザーさんに管理画面に直接アクセスしてもらうことができ …

no image

秀丸マクロで、HTMLの幅と高さを削除する

正規表現を使い、さらにスペースや文字数に配慮すればするほど、わかりにくいコードになる・・・もうちょっと改善の余地があるのかもしれないが、自分のスキル的にココまでが限界。 replaceallfast …

no image

紙2001

以前、人に便利だと教えてもらいながら、キチンと試していなかった「