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
投稿: 5 年 前.
カテゴリ: オペレーティングシステム
専門家:  Nobody_1963 返答済み 5 年 前.

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

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

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

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

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

Nobody_1963, システムエンジニア
満足したユーザー: 318
経験: Windows OSのクライアント および サーバーの設定をサポート致します
Nobody_1963をはじめその他名のオペレーティングシステムカテゴリの専門家が質問受付中

ユーザーの声:

 
 
 
  • なかなか解決できないトラブルだったのですが、解決までとことん相談にのってくださいました。また、パソコンをうまく使いこなせていない私でも解りやすくアドバイスしてくださいました。 本当に助かりました! 大阪府 黒崎
< 前へ | 次へ >
  • なかなか解決できないトラブルだったのですが、解決までとことん相談にのってくださいました。また、パソコンをうまく使いこなせていない私でも解りやすくアドバイスしてくださいました。 本当に助かりました! 大阪府 黒崎
  • パソコンの操作は熟知している訳でもなく不慣れですが何回もの質問に丁寧に答えていただき問題解決しました、大変助かりました、感謝しています。 兵庫県明石市 後藤
  • 回答が早く、2日間対処には時間がかかりましたが、80%諦めていたものが解決したので、とにかく感謝の一言です。 ありがとうございました。 千葉県野田市 金澤
  • まずは親身になって回答をして頂ける専門家であったこと。説明が簡潔でわかりやすく、質問者が気持ちの整理をしやすい配慮が伺えた。 岐阜県 石川
  • 短時間で的確なアドバイスを受けることができ、かつ、回答に対する質問に対しても直ちに真摯な回答が得られました。 大阪府高槻市 川嶋
  • 専門知識のある経験豊富な方に出会う機会のない人でも、このサイトで実現出来ることは素晴らしいことだと思いました。 専門家が辛抱強く回答をしてくださる姿勢にも感謝いたしました。 茨城県日立市 池田
 
 
 

専門家の紹介:

 
 
 
  • dkk2002

    dkk2002

    ITエンジニア

    満足した利用者:

    2535
    NTTコミュニケーションズ .com Master★★
  • http://ww2.justanswer.com/uploads/KW/kwskmkt/2011-7-4_13263_DSC04002.64x64.JPG dkk2002 さんのアバター

    dkk2002

    ITエンジニア

    満足した利用者:

    2535
    NTTコミュニケーションズ .com Master★★
  • http://ww2.justanswer.com/uploads/RU/rushqk/2011-9-24_21937_CIMG0197.64x64.jpg rushqk さんのアバター

    rushqk

    ソフトウェアエンジニア

    満足した利用者:

    220
    AV機器開発、ソフトウェア設計
  • http://ww2.justanswer.com/uploads/SP/Spinnaker0921/2011-5-28_232633_Spinnaker.64x64.JPG Spinnaker0921 さんのアバター

    Spinnaker0921

    システムエンジニア

    満足した利用者:

    0
    Windows OS の設定・チューニング・修復に関する質問に回答します。
  • http://ww2.justanswer.com/uploads/OB/obody/2015-6-17_162039_photo.64x64.jpg Nobody_1963 さんのアバター

    Nobody_1963

    システムエンジニア

    満足した利用者:

    179
    Windows OSのクライアント および サーバーの設定をサポート致します
  • http://ww2.justanswer.com/uploads/OC/oct1290/2012-4-17_123618_akodesu.64x64.JPG oct1290 さんのアバター

    oct1290

    ITエンジニア

    満足した利用者:

    38
    日本製PCメーカー顧客、企業サポート官庁PCサポート海外3店舗のPC修理業
  • http://ww2.justanswer.com/uploads/HO/holodecks/2011-10-21_0147_20111021091343.64x64.jpg holodecks さんのアバター

    holodecks

    情報整理戦略コンサルタント

    満足した利用者:

    2
    化学科卒システム計画研究所 - シニアシステムエンジニア、ディー・リンク株式会社 取締役