操作されるOutlookにはあらかじめメール送信時に以下のようなVbYesnoのMsgboxが出現するようになっています。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim rc As Integer
'.
'.
'省略
'
'.
rc = MsgBox("処理を行いますか？", vbYesNo + vbQuestion, "確認")
If rc = vbYes Then
MsgBox "処理を行います"
Else
Cancel = True
Exit Sub ''
End If
End Sub
操作する側(Access)では次のようなコードでメール送信を制御しています。
Sub Test()
'Outlookオブジェクトの変数宣言
Dim outlookObj As Outlook.Application
Set outlookObj = New Outlook.Application
'メール送信用のオブジェクト作成
Dim mailObj As Outlook.MailItem
Set mailObj = outlookObj.CreateItem(olMailItem)
'メール送信内容の作成
With mailObj
.To = "xxxxxxxxxxxxx@xxxxx.xxx" 'メール宛先"
.Subject = "新しいメールの件名" 'メール件名
.Body = "メール本文をここに書くよ。" 'メール本文
.BodyFormat = olFormatPlain 'メール形式に設定
End With
'メール送信
mailObj.Send
End Sub
Outlookが起動していないときはそのまま送れますが、起動しているとMsgboxが出現します。
msgboxにYesとAccessから操作してOutlookの送信を実行させたいのですが、どのようなコードが必要になるのでしょうか。
どなたか、外部操作を経験された方、またはご存知の方がみえれば、ご教授ください。
よろしくお願いします。
