| |
とあるユーザー様とやりとりした事例が他のユーザー様にも役に立つと思ったので、
ここに書き込みさせていただきます。
Microsoft Office付属のAccessのマクロ（VBA）から、Access内のデータをメール
で送信することが、秀丸メールを使って簡単に実現できる、という話になります。
サンプルマクロは以下のような感じになります。
Dim ret As Long
Dim subject As String
Dim strTo As String
Dim body As String
subject = Forms![Form幹]![件名]
strTo = Forms![Form幹]![E-mail]
body = Forms![Form幹]![本文]
ret = Shell("""C:\Program Files (x86)\HidemaruMail\TuruKame.exe"" newmail su
bject=""" & subject & """ to=""" & strTo & """ body=""" & body & """", vbNor
malFocus)
If ret = 0 Then MsgBox "起動に失敗しました", vbOKOnly + vbCritical, "MailOpe
n()"
Forms!... となってる所を書き換えれば他にも応用できるんだろうと思います。
MAPIを使うやり方が最近うまく動かなくなったそうで、上記の方法にて回避できた
とのことだそうです。
（MAPI ... Messaging APIという、メールソフトと連携する用のAPI。もしかした
らエモテット対策で最近使えなくなったのかもしれない）
|
|