Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Access 2010)
フォームからのメール送信について
投稿日時: 21/06/30 11:18:25
投稿者: ぽろんちょ

いつもお世話になっております。
 
表題の件ですが、フォームのボタンを押してoutlookからメールを送信したいのですが、
下記のコードだとAccessが落ちてしまいます。
なお、Access2016だと問題なく作動し、Access2010だと落ちてしまうようです。
 
Dim strSubject As String
Dim strText As String
 
strSubject = "データの件"
strText = "宜しくお願いします。"
 
 DoCmd.SendObject acSendQuery, "Qリスト作成", acFormatXLS, "aaaa@access.com", _
        "bbbb@access.com;cccc@access.com;dddd@access.com;eeee@access.com;ffff@access.com", , strSubject, strText, True
 
どなたが解決方法がおわかりになれば、教えて頂けると大変助かります。
宜しくお願い致します。
 

回答
投稿日時: 21/06/30 12:01:37
投稿者: sk

引用:
表題の件ですが、フォームのボタンを押してoutlookからメールを送信したいのですが、
下記のコードだとAccessが落ちてしまいます。
なお、Access2016だと問題なく作動し、Access2010だと落ちてしまうようです

Access 2010( Office 2010 ) のみがインストールされている環境と、
Access 2010( Office 2010 )と Access 2016( Office 2016 )が
共存インストールされている環境
のどちらで発生している現象なのでしょうか。
 
引用:
DoCmd.SendObject acSendQuery, "Qリスト作成", acFormatXLS, "aaaa@access.com", _
       "bbbb@access.com;cccc@access.com;dddd@access.com;eeee@access.com;ffff@access.com", , strSubject, strText, True

Microsoft サポート より:
https://support.microsoft.com/ja-jp/office/access%E2%80%8B%E2%80%8B-%E3%81%8B%E3%82%89%E3%83%A1%E3%83%BC%E3%83%AB%E3%82%92%E9%80%81%E4%BF%A1%E3%81%97%E3%82%88%E3%81%86%E3%81%A8%E3%81%99%E3%82%8B%E3%81%A8%E3%82%AF%E3%83%A9%E3%83%83%E3%82%B7%E3%83%A5%E3%81%8C%E7%99%BA%E7%94%9F%E3%81%99%E3%82%8B-ae4edc65-ff79-459d-8474-65564d3097d9
 
上記の現象に限らず、異なるバージョンの Office を 1 台のコンピュータ上で
共存させることは、予期しない異常な動作を発生させる一因となり得るため
MS 社も推奨していません。

投稿日時: 21/06/30 14:53:14
投稿者: ぽろんちょ

>sk様
 
早速の回答ありがとうございます。
問題のPCですが、Office2016を使っているPCに製品版のAccess2010をインストールしたところ、メールの送信時にAccessが落ちてしまうようになりました。回答を拝見したところ、Officeの違うバージョンによる問題なのかもしれません。
 
問題のPCですが、最初はランタイムのAccess2013をインストールしていたのですが、バーコードの印刷が
出来なかったので、急遽手元にあった製品版のAccess2010をインストールしてみました。
ちなみにランタイムのAccess2013ではメール送信が可能でした。
 
他にCDOという方法があるようなので、そちらで一度試してみます。
お忙しいところありがとうございました。