[AccessD] First run creating Outlook mail item does not foreground itself?

[Bill Benson]

“,” was typo, meant “.”

On Tue, Jan 24, 2023 at 1:18 PM Bill Benson <bensonforums at gmail.com> wrote:

> Try adding oMail,GetInspector.Activate or oLook.ActiveInspector.Activate
> after .Display
>
> On Tue, Jan 24, 2023 at 11:56 AM Ryan W <wrwehler at gmail.com> wrote:
>
>> As the subject states:
>>
>> When I run code to compose an email and display the email, the email
>> window
>> stays grouped but minimized or hidden on the first run.
>>
>> Subsequent runs, the created email is foregrounded?
>>
>> If I close outlook and re-open it, the process starts again where the
>> first
>> composition stays hidden until I go manually foreground it.
>>
>> code:
>>
>> Public Sub CreateEmail(subj As String, Optional body As String, Optional
>> ToWho As Variant, Optional CCWho As Variant, Optional attachment As
>> Variant
>> = Null)
>>     On Error GoTo CreateEmail_Error
>>
>>     Dim oLook As Object, oMail As Object, origBody As String
>>
>>     On Error Resume Next
>>     Set oLook = GetObject(, "Outlook.Application")
>>     If Err.number <> 0 Then
>>         Set oLook = CreateObject("Outlook.Application")
>>     End If
>>     Err.Clear
>>     On Error GoTo CreateEmail_Error
>>     Set oMail = oLook.CreateItem(0)
>>     With oMail
>>         .Display
>>         If Not (IsMissing(ToWho) Or IsNull(ToWho)) Then .To = ToWho
>>         If Not (IsMissing(CCWho) Or IsNull(CCWho)) Then .cc = CCWho
>>         .Subject = subj
>>         .BodyFormat = 2 'html
>>         .body = body
>>         If Not IsNull(attachment) Then
>>             .Attachments.Add attachment
>>         End If
>>     End With
>>
>> CreateEmail_Exit:
>>     On Error Resume Next
>>     Set oMail = Nothing
>>     Set oLook = Nothing
>>     Exit Sub
>>
>> CreateEmail_Error:
>>
>>     MsgBox "Error " & Err.number & " (" & Err.Description & ") in
>> procedure
>> CreateEmail."
>>     Resume CreateEmail_Exit
>> End Sub
>>
>>
>> IIRC .Display should show the email composition window.
>>
>>
>> Any ideas?
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> https://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>