Access (VBA)

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

 
(Windows 7全般 : Access 2003)
Accessからのメール送信
投稿日時: 19/11/19 17:40:37
投稿者: うしじま

Accessのフォームにコマンドボタンを設置しております。
ボタンクリック時のイベントでクエリからデータを取得し、
それをExcel化してメールに添付し、
メーラーを起動しメールを送信できるようにしたいです。
 
テストで自分のメールアドレスから自分のメールアドレス(どちらも同じアドレスです)
にメールを送信してみました。
 
現状、ボタンを押すとメール作成画面が立ち上がり、
送信ボタンを押すことはできたのですが、
送信BOXにも受信BOXにもメールがでてきません。
コード記載いたします。
ヒントいただきたく、よろしくお願いいたします。
 
使用しているメーラーはOutlook365です。
 
 
 
Private Sub コマンド1_Click()
 
Dim atesaki As String
Dim kenmei As String
 
atesaki = "abc@abc-corp.com"
kenmei = "データの送信"
 
Dim honbun As String
Dim honbun2 As String
Dim honbun3 As String
Dim zenbun As String
 
honbun = "お疲れ様です。"
honbun2 = "本日のデータを送信いたします。"
honbun3 = "よろしくお願いいたします。。"
 
zenbun = honbun & vbCrLf & honbun2 & vbCrLf & honbun3
 
DoCmd.SendObject acQuery, "Q_データ1", acFormatXLS, atesaki, "", "", kenmei, zenbun, True, ""
 
End Sub
 
よろしくお願いいたします。
 

回答
投稿日時: 19/11/20 09:40:58
投稿者: sk

引用:
Accessのフォームにコマンドボタンを設置しております。
ボタンクリック時のイベントでクエリからデータを取得し、
それをExcel化してメールに添付し、
メーラーを起動しメールを送信できるようにしたいです。

引用:
現状、ボタンを押すとメール作成画面が立ち上がり、
送信ボタンを押すことはできたのですが、
送信BOXにも受信BOXにもメールがでてきません。

引用:
DoCmd.SendObject acQuery, "Q_データ1", acFormatXLS, atesaki, "", "", kenmei, zenbun, True, ""

引用:
(Windows 7全般 : Access 2003)

引用:
使用しているメーラーはOutlook365です。

Access 2003( 2014 年 4 月 9 日にサポートが終了している製品)が、
Outlook 365(実質 Outlook 2019。2003 から見て 5 世代後)と連携できるのか、
というところが疑問ではあるのですが、現状のソフトウェア構成は
具体的にどのような形になっているのでしょうか。
 
(例えば Office 2003 Professional と Office 365 とが
共存している環境である場合、Outlook 2003 によって
新規メッセージが作成され、Outlook 2003 側の送信トレイに
送信前のメッセージが残されているという可能性が考えられますが、
少なくとも私には検証できません)
 
引用:
投稿日時: 19/11/19 17:40:37

また、上記の問題とは別に、昨日投稿された時点において、
Office 365 においてメール機能の障害が発生していたとの報告が
挙がっています。
 
ITmedia NEWS より:
https://www.itmedia.co.jp/news/articles/1911/19/news134.html
 
窓の杜 より:
https://forest.watch.impress.co.jp/docs/news/1219492.html
 
したがって、まずはそちらの環境において Outlook 365 を使って
メールの送受信自体が正常に行なわれるかどうかを確認された方が
よいでしょう。

投稿日時: 19/11/21 12:44:09
投稿者: うしじま

skさま
 
今日立ち上げたら、なぜかメールが受信できました。
原因がよくわからないのですが…
ありがとうございました。