asked on How to set ActiveWindow.WindowState = olMaximized in late binding
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.
Using objOutlook.ActiveWindow.Wi
What I'm I missing. Below is a snippet of my code:
Using objOutlook.ActiveWindow.Wi
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
Err.Clear
Set objOutlookApp = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set objOutlookMail = objOutlookApp.CreateItem(olMailItem)
With objOutlookMail
.To = "email@email.com"
.Body = "this is a test2"
.Display
End With
objOutlookApp.ActiveWindow.WindowState = olMaximized
OutlookMicrosoft Access
Last Comment
Sheils
ASKER
I actually do have that:
It does not help
Option Compare Database
Option Explicit
Const olMailItem As Long = 0
Const olAppointmentItem As Long = 1
Const olContactItem As Long = 2
Const olTaskItem As Long = 3
Const olMaximized = 0
Const olMinimized = 1
Const olNormalWindow = 2
Public Function openOutlook()
Dim objOutlookApp As Object 'Comment out when testing early binding
Dim strOutLookMsg As String
Dim objOutlookMail As Object
It does not help
maybe because you set the OL obj as nothing at the end of the code
ASKER
no it's not set to nothing. I works find when I use early binding. But don't work with late binding. This means that there is an additional object that I need to declare and set I just don't know which one.
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
I found the code required to make it work
Place
Const olMaximized = 0
at the beginnning of your code
Regards