
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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メールが、入力中に送信してい...
-
Outlookが送信不可
-
サンダーバードのアドレス帳へ...
-
ワードでテキストボックス内の...
-
パワポで曲がった両矢印の簡単...
-
パワーポイントで作図した図を...
-
PowerPointで不要な枠が印刷さ...
-
Excelの画面上に上書き保存のア...
-
Wordのファイルを開くと、開い...
-
Word(縦書き)の質問を2点。(行...
-
wordの書式が出てきません・・...
-
封筒における漢字の「11」の書き方
-
Excelにて用紙(縦)の、中央左...
-
エクセル 印刷時に端から端ま...
-
パワーポイントを2in1でPDF化し...
-
メディアライブラリーが壊れて...
-
リンク貼り付けを行った Excel ...
-
A4サイズいっぱいに一文字を...
-
画像を、余白0でA4全画面で...
-
基本的な質問です。JW-CADのW...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サンダーバードのアドレス帳へ...
-
Thunderbird 「後で送信」の設...
-
メールが、入力中に送信してい...
-
Thunderbirdの送信トレイについて
-
メール誤送信の防止 / Ctl+Ente...
-
【サンダーバード】”下書き”や”...
-
未送信メールが見当たらない。
-
Notes 送信ボックスに何も入り...
-
Becky!ver.2の送信エラーについて
-
送ったメールが「送信済み」に...
-
PDF-XChange Viewerでのメール送信
-
「Unicodeで送信」という表示が...
-
Outlookでメールを送信ができま...
-
シリアルの送信完了を待つ方法
-
Outlookが送信不可
-
iTunesの誤ったCDDB情報を修正...
-
Thunderbirdの未送信メッセージ...
-
EXCEL VBAで→PDF化→自動メール送信
-
youtubeに掲載している投稿者と...
-
筆ぐるめで送信履歴の出し方
おすすめ情報