![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
VBで処理をした最後にメールを送る処理を
BSMTP.DLLを使ってやっていました
近頃 メールサーバーの仕様が変わり SMTP認証が
必要という知らせがありました
そうすると 突然メールが送れなくなり
(実はメールが送れなくなってメールサーバーの仕様が変わったことが分かった)
あわてて色々調べたら 認証の仕方が書いて有ったので
色々試したのですが うまく送れません
コードは以下のようにしています
宣言部分
Private Declare Function SendMail Lib "bsmtp" _
(szServer As String, szTo As String, szFrom As String, _
szSubject As String, szBody As String, szFile As String) As String
コード
Dim ret As String
Dim szServer As String, szTo As String, szFrom As String
Dim szSubject As String, szBody As String, szFile As String
Screen.MousePointer = vbHourglass
szServer = "abc.com" 'SMTPサーバー(ポート番号はしていません なので25)
szTo = b@efg.com '宛先 一件のみ
★問題はこの下の行かと思います
szFrom = "a:password" & vbTab & "LOGIN"
szSubject = ' 件名
以下本文等・・・・・
szFile = "" '添付ファイル無し
ret = SendMail(szServer, szTo, szFrom, szSubject, szBody, szFile)
If Len(ret) <> 0 Then
Screen.MousePointer = vbDefault
MsgBox "処理エラーが発生しました。" & "送信不能" & ret
Exit Sub
Else
Screen.MousePointer = vbDefault
MsgBox "メール送信終了しました。", vbInformation, "送信完了"
End If
★の所でID パスワードはきちんと合ってます
でもこれで実行すると パスワードが違うと返ってきます
また 認証方式も3つとも試しましたが 同じ結果です
bsmtpも最新の物に変えてみました、でもダメでした
そもそも書き方がいけないのかサーバーの仕様にあっていないのかも
分かりません
szFrom = "a:password" & vbTab & "LOGIN"
では a@abc.com から届いたよと言う事が相手に分からないし
書いてみようと思い
szFrom = "a@abc.com" & vbTab & "a:password" & vbTab & "LOGIN"
szFrom = "a@abc.com:password" & vbTab & "LOGIN"
など書いてみましたが ダメでした(認証方式も変えてみた)
ちなみに メーラー(アウトルックエキスプレス)では
ID a とパスワードで、きちんと認証して送信できるので
サーバー自体は問題ないだろうから
記述がおかしいのだろうと思っています
どなたかこのあたりを分かりやすく教えていただければ
助かります。
日常業務で使っていたので 大変困ってます
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
Basp21のメール送信機能を win10(64bit) Excel2019で使用する方法
Excel(エクセル)
-
VB6で、Bsmtp.dllを使って、メール送信した際、Time Ou
Visual Basic(VBA)
-
Basp21を使用してメール送信ができない
Visual Basic(VBA)
-
-
4
VB6にてメールを送信する方法
Visual Basic(VBA)
-
5
SendMailがエラーを返さない
Visual Basic(VBA)
-
6
VB6.0とBASP21を用いてyahooメールからメール送信する方法
Visual Basic(VBA)
-
7
win10のbasp21がエラーになる
フリーソフト
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
AccessのDoCmd.SendObjectについて
-
メールアドレスのみを抜き出す方法
-
VBでメールを送る時のSMT...
-
メールアドレスの存在確認はで...
-
時間を指定してメール送信
-
VB.NETでフリーメールアドレス...
-
問い合わせ完了ページでの二重...
-
自動で添付メールを送信するフ...
-
submitボタンのアラートを閉じ...
-
VB6にてメールを送信する方法
-
PHP メールファーム 自動返信...
-
メールの特定にphpを使っている...
-
ホームページのフォームから送...
-
メールアドレスを追加して、他...
-
受信メールの本文解析
-
フォントの色を変えるには?
-
onedrive にexcelファイルをア...
-
PHPのif文でその処理を途中で抜...
-
透過PNGが透過されない!!
-
PHPで新しいウインドウで開く命...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードプレス、Contact Form 7...
-
VB6にてメールを送信する方法
-
存在しないメールアドレスかど...
-
コマンドプロンプトで添付ファ...
-
VBでメールを送る時のSMT...
-
問い合わせ完了ページでの二重...
-
送信日時を指定してメールを送...
-
一定時間毎に同じ動作を繰り返...
-
HPの更新をしたら自動でメール...
-
メールアドレスの存在確認はで...
-
$_SERVER{'HTTP_X_UP_SUBNO'}取...
-
mail関数を使うと遅いので
-
Bookを閉じて保存した時のみ実...
-
二重投稿防止方法
-
ブラウザの更新ボタン
-
mb_send_mail関数により送信さ...
-
javamailで220の応答が遅い
-
AccessのDoCmd.SendObjectについて
-
リファラが取得できない?
-
<HTML>~入る タグ が無いから ...
おすすめ情報