![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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ランキング
-
HPの更新をしたら自動でメール...
-
javamailで220の応答が遅い
-
処理の早いメール送信プログラム
-
ランダムな文字列を生成しその...
-
VB6にてメールを送信する方法
-
$_SERVER{'HTTP_X_UP_SUBNO'}取...
-
プログラム門外漢にご指南おね...
-
mb_send_mailについて
-
AccessのDoCmd.SendObjectについて
-
WEB上で送信ボタン(Submit)を...
-
PHPのmimeDecode.php について
-
一定時間毎に同じ動作を繰り返...
-
mail関数を使うと遅いので
-
submitボタンの二重送信について
-
どうしたらできるのか困ってます
-
BASP21を使って
-
ヒアドキュメントを利用してメ...
-
フォントの色を変えるには?
-
onedrive にexcelファイルをア...
-
バッチを用いたフォルダの自動移動
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB6にてメールを送信する方法
-
存在しないメールアドレスかど...
-
AccessのDoCmd.SendObjectについて
-
VBでメールを送る時のSMT...
-
phpのmb_send_mailが迷惑メール...
-
コマンドプロンプトで添付ファ...
-
Bookを閉じて保存した時のみ実...
-
メールアドレスの存在確認はで...
-
Windowsサーバーでメール送信プ...
-
submitボタンの二重送信について
-
ループの中で mailItemObj.Disp...
-
powerbuilderのメール機能について
-
空メールの作り方教えて欲しい...
-
★エクセルVBAでOutlookのメール...
-
【エクセルVBA】メール送信前に...
-
SMTPサーバの指定なしでメ...
-
MAPI コンポーネントを使ったメ...
-
phpでメールを送信
-
メールアドレスを追加して、他...
-
メール送信
おすすめ情報