JustAnswer のしくみ:
  • 専門家に質問
    知識豊富な専門家があらゆる質問にお答えするために常に待機しています。
  • 専門家が丁寧に対応
    E メールやサイト内オンラインメッセージなど、さまざまな手段で回答を通知。
    必要に応じてフォローアップの質問をすることもできます。
  • 満足度 100% 保証
    専門家からの回答を確認し評価をすることで、支払うかどうかを決めます。
Nobody_1963に今すぐ質問する
Nobody_1963
Nobody_1963, システムエンジニア
カテゴリ: オペレーティングシステム
満足したユーザー: 318
経験:  Windows OSのクライアント および サーバーの設定をサポート致します
60374769
ここに オペレーティングシステム に関する質問を入力してください。
Nobody_1963がオンラインで質問受付中

ACCESS2010 OUTLOOK2010 2295

解決済みの質問:

ACCESS2010で作成したテーブルのメールリストに対して,OUTLOOK2010でメール送信しようとす ると,「何か予期せぬエラーが発生しました。エラーコード:2295 メッセージの受信者が不明です。メッセージは送信されませんでした。」というエラーメッセージが表示されます。
弊社では高校生に対してメールを送るため,テーブルは学年ごとに作成しているのですが,一部の学年のみ送れます。
参考までに,メールを送るためのプログラムは以下の通りです。ACCESS初心者のため,他のシステムからコピペしたものであり,学年による差はございません。
もともとACCESS2003で開発したプログラムを2010で動かしているのですが,何か問題があるのでしょうか。
回答よろしくお願いいたします。

Private Sub cmd_実行コマンド_Click()

On Error GoTo エラー

Dim db As DAO.Database 'DAOを用います。参照設定を確認して下さい。
Dim rs As DAO.Recordset
Dim strEmail As String '送信先のEmailアドレスです。
Dim strOwnEmail As String '送信元のEmailアドレスです。
Dim strSubject As String
Dim strText As String

Set db = CurrentDb
Set rs = db.OpenRecordset("t-3年生メール送信")

strEmail = ""
strOwnEmail = "XXXXX@XXXXXX.XXX"
strSubject = Me.txt_件名
strText = Me.txt_送信内容

Do Until rs.EOF '対象とするテーブルの最後まで進みます。
If rs!CK = True Then 'IF構文で分岐させます。
strEmail = strEmail & rs!メールアドレス & ";"
End If
rs.MoveNext
Loop

DoCmd.SendObject acSendNoObject, , , , , strEmail & strOwnEmail, _
strSubject, strText, True

rs.Close: Set rs = Nothing
db.Close: Set db = Nothing

Exit Sub

エラー:

If Err.Number = 94 Then
MsgBox "件名又は送信内容が空白では、実行できません", 16
Else
MsgBox "何か予期せぬエラーが発生しました。エラーコード:" & _
Err.Number & Chr(13) & Err.Description
End If
End
投稿: 6 年 前.
カテゴリ: オペレーティングシステム
専門家:  Nobody_1963 返答済み 6 年 前.

こんにちは。
質問をご投稿いただきありがとうございます。
よろしくお願いいたします。

 さて「一部の学年のみ送れます。」とありますが、それは最初の数人までは送れるがその後の人が送れないということでよろしいでしょうか?

 この場合、その送れる人 もしくは その次の人のメールアドレスがおかしくなっているように思われます。

 テーブルの中のデータを見て、アドレスが間違っていないか確認をしてみてください。

日本語文字やカンマ文字が入っていませんか?

Nobody_1963をはじめその他名のオペレーティングシステムカテゴリの専門家が質問受付中

オペレーティングシステム についての関連する質問