BASP21を使ってEXCELからメールの送信をしたいのですが、できません。
自分なりに調べた結果、下記のコードになったのですが、どこかおかしいのでしょうか?
エラー表示は次になります。
530 5.7.1 client was not authenticated from メールアドレス
よろしくお願いいたします。
Sub ボタン2_Click() ''[送信]ボタン
Dim bobj, msg As String, i As Long
Dim Server As String, Mailto As String, MailFrom As String
Dim Subject As String, Attach As String, Body As String
On Error Resume Next
Set bobj = CreateObject("basp21") ''BASP21オブジェクト
''BASP21がインストールされているかどうかを判定する
If Err = 429 Then
MsgBox "BASP21がインストールされていません。", vbCritical
Exit Sub
End If
''必須データのチェック
Server = "mail.○○○.com:587:60" ''SMTPサーバー
Mailto = "○○○@hotmail.co.jp" ''宛先
MailFrom = "△△△@×××.co.jp" ''差出し人
Subject = "更新連絡" ''タイトル
Body = "システムが更新しました" ''本文
msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, Attach)
Set bobj = Nothing
If msg <> "" Then
MsgBox msg, vbExclamation
Else
MsgBox "メールを送信しました。", vbInformation
End If
End Sub
No.2ベストアンサー
- 回答日時:
#1の回答者です。
返事が遅くなりました。
>client was not authenticated from メールアドレス
このエラーというのは、セキュリティの関係だと思われるので、こちらからは、これ以上のアドバイスは出来ないのです。送信は、会社からでしょうか?
私は、このコード自体は、昔、"BASP21"のオブジェクトからではなく、API関数から直接呼び出して使った覚えがあるのですが、ここ5年間ぐらいは使ったことがありません。それ以降は、OutLookの"mapi" 側からの送信にほうに切り替えてしまったからです。
No.1
- 回答日時:
こんにちは。
>530 5.7.1 client was not authenticated from メールアドレス
ということでしたら、コードの問題ではなく、管理者権限で許可されていないのではないでしょうか。
管理者権限で送信したらいかがですか?
この回答への補足
WindFaller さん。
早速ありがとうございます。
知識が曖昧なのですが、
1.現在Windoes7 32bitを使用しExceL2010になります。Excelを管理者としてプログラムを実行するを行いましたが、同じ結果でした。
2.VBAを管理者として実行する為、検索をかけコードを書き込み実行しましたが、上手く稼働できませんでした。
2は検索した物をコピペしただけなので、合っているかすらわかりません。
もう少し、管理者権限で送信を教えて頂けますか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
送ったメールが「送信済み」に...
-
Thunderbird 「後で送信」の設...
-
サンダーバードのアドレス帳へ...
-
Outlookが送信不可
-
【サンダーバード】”下書き”や”...
-
メール誤送信の防止 / Ctl+Ente...
-
未送信メールが見当たらない。
-
チャイナユニコムSIMでSMS送信...
-
Wordから「PDF」に変えると,み...
-
「あとで送信」が知らないうち...
-
IPMessengerの不具合について
-
添付ファイルを制限可能なメー...
-
Thunderbirdの送信トレイについて
-
筆ぐるめで送信履歴の出し方
-
EXCEL VBAで→PDF化→自動メール送信
-
パワポで曲がった両矢印の簡単...
-
パワーポイントで作図した図を...
-
タイムカードの氏名所属などプ...
-
MS-Word段落番号とそのあとの文...
-
【ワード】図の書式設定-線と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Thunderbird 「後で送信」の設...
-
Outlookが送信不可
-
送ったメールが「送信済み」に...
-
サンダーバードのアドレス帳へ...
-
Thunderbirdの送信トレイについて
-
未送信メールが見当たらない。
-
EXCEL VBAで→PDF化→自動メール送信
-
メールが、入力中に送信してい...
-
【サンダーバード】”下書き”や”...
-
「あとで送信」が知らないうち...
-
送信エラーで送ったメールが消...
-
Notes 送信ボックスに何も入り...
-
シリアルの送信完了を待つ方法
-
iTunesの誤ったCDDB情報を修正...
-
Outlookでメールを送信ができま...
-
「Mail Distributor」について
-
バーコードの読み取りだけでメ...
-
メール誤送信の防止 / Ctl+Ente...
-
Becky!ver.2の送信エラーについて
-
Thunderbirdの未送信メッセージ...
おすすめ情報