I am trying to open outlook from msaccess using late binding. I want to display the mail message before sending. The code works but when I click send the message stays in the inbox until I manually open the outlook application.
ndowState = olMaximized in early binding solves this problem but it does not work in late binding.
What I'm I missing. Below is a snippet of my code:
Dim objOutlookApp As Object
Dim objOutlookMail As Object
On Error Resume Next
Set objOutlookApp = GetObject(, "Outlook.Application")
If Err.Number = 429 Then
Set objOutlookApp = CreateObject("Outlook.Application")
On Error GoTo 0
Set objOutlookMail = objOutlookApp.CreateItem(olMailItem)
.To = "email@example.com"
.Body = "this is a test2"
objOutlookApp.ActiveWindow.WindowState = olMaximized