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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VB6にてメールを送信する方法
Visual Basic(VBA)
-
VB6で、Bsmtp.dllを使って、メール送信した際、Time Ou
Visual Basic(VBA)
-
VBAでsmtp認証をするには?
Visual Basic(VBA)
-
-
4
Basp21を使用してメール送信ができない
Visual Basic(VBA)
-
5
Basp21のメール送信機能を win10(64bit) Excel2019で使用する方法
Excel(エクセル)
-
6
BASP21メール送信(SMTP-AUTH認証)ASP
Microsoft ASP
-
7
VB6.0とBASP21を用いてyahooメールからメール送信する方法
Visual Basic(VBA)
-
8
VBの「As String * 128」とは?
Visual Basic(VBA)
-
9
win10のbasp21がエラーになる
フリーソフト
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードプレス、Contact Form 7...
-
問い合わせ完了ページでの二重...
-
VB6にてメールを送信する方法
-
ヒアドキュメントを利用してメ...
-
Bookを閉じて保存した時のみ実...
-
VBでメールを送る時のSMT...
-
ブラウザの更新ボタン
-
存在しないメールアドレスかど...
-
ホームページのフォームから送...
-
SMTPサーバの指定なしでメ...
-
UWSCにつきまして
-
【エクセルVBA】メール送信前に...
-
処理の早いメール送信プログラム
-
onedrive にexcelファイルをア...
-
VBSの「MsgBox」について
-
こちらはただの直列処理ですか?
-
複数ファイルを連続でダウンロード
-
パースエラーとは?
-
リンク先を隠す方法はないでし...
-
拡張子php画像をjpg画像等に変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードプレス、Contact Form 7...
-
コマンドプロンプトで添付ファ...
-
存在しないメールアドレスかど...
-
VB6にてメールを送信する方法
-
ヒアドキュメントを利用してメ...
-
メールアドレスの存在確認はで...
-
Bookを閉じて保存した時のみ実...
-
AccessのDoCmd.SendObjectについて
-
submitボタンの二重送信について
-
リファラが取得できない?
-
HPの更新をしたら自動でメール...
-
javamailで220の応答が遅い
-
Q)PHPでメール送信について
-
<HTML>~入る タグ が無いから ...
-
mail関数を使うと遅いので
-
phpメールフォームから送信され...
-
ロリポップと、phpで自動の返信...
-
ループの中で mailItemObj.Disp...
-
ランダムな文字列を生成しその...
-
VB.NETでフリーメールアドレス...
おすすめ情報