Calling access for email leaves it in the background

[tagteam]

I have an application where I write a report and excel file to a folder, then i open an email in outlook and attach those files.



My problem is that when the email opens it is in the background and the user has to click to bring up the email to send it. I know it is not a big problem but the user does this a lot and it is just annoying to them.

Is there any way to get the email to open as the top window. It won't do any good to minimize access to see the window because then they will have to click to bring access back up again.

Thanks

[Micron]

I cannot recall ever having that experience. Maybe there is something in your code that makes the Outlook message window not be the active pane. Suggest you copy/paste and post the relevant code. Please paste within code tags (use # button on posting toolbar) whenever you post more than a few lines of code.

[tagteam]

To send the email I use the following code to call a function:

Call SendHTMLEmail(strTo, strSubject, strBody, 1, , spath & "" & sName & "" & sFileName, spath & "" & sName & "" & sExcelFileName)

The function is:

Function SendHTMLEmail(strTo As String, strSubject As String, strBody As String, _
                    bEdit As Boolean, _
                   Optional strBCC As Variant, Optional AttachmentPath As String, Optional AttachmentPath2 As String)
'Send Email using late binding to avoid reference issues
   Dim objOutlook As Object
   Dim objOutlookMsg As Object
   Dim objOutlookRecip As Outlook.Recipient
   Dim objOutlookAttach As Outlook.Attachment
   Dim i As Integer
   Const olMailItem = 0
 
   On Error GoTo ErrorMsgs
 
   Set objOutlook = CreateObject("Outlook.Application")
 
   Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
   With objOutlookMsg
      Set objOutlookRecip = .Recipients.Add(strTo)
      objOutlookRecip.Type = 1
 
      'If Not IsMissing(strBCC) Then
      '  Set objOutlookRecip = .Recipients.Add(strBCC)
      '  objOutlookRecip.Type = 3
      'End If
      .BCC = "Accounting@trinitychem.com"
      .Subject = strSubject
      .HTMLBody = strBody
      .Importance = 1  'Importance Level  0=Low,1=Normal,2=High
      
      ' Add attachments to the message.
      If Not IsMissing(AttachmentPath) Then
        
            If AttachmentPath <> "" Then
                Set objOutlookAttach = .Attachments.Add(AttachmentPath)
                If AttachmentPath2 <> "" Then
                    Set objOutlookAttach = .Attachments.Add(AttachmentPath2)
                End If
            End If
      End If
 
      If bEdit Then 'Choose btw transparent/silent send and preview send
        .Display
      Else
        .Send
      End If
   End With
 
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing
   Set objOutlookRecip = Nothing
   Set objOutlookAttach = Nothing
 
ErrorMsgs:
   If Err.Number = "287" Then
      MsgBox "You clicked No to the Outlook security warning. " & _
      "Rerun the procedure and click Yes to access e-mail " & _
      "addresses to send your message. For more information, " & _
      "see the document at http://www.microsoft.com/office" & _
      "/previous/outlook/downloads/security.asp."
      Exit Function
   ElseIf Err.Number <> 0 Then
      MsgBox Err.Number & " - " & Err.Description
      Exit Function
   End If
End Function

[Welshgasman]

I think someone mentioned code tags?

[tagteam]

Indeed they did :-)

[Welshgasman]

Not sure of the idea of late binding for some objects like Outlook, but then earling binding for Recipient etc? Shouldn't they be objOutlook.Recipient ?, never tried it.
Perhaps set to early binding and see what that produces?

I have used much the same method, but with early binding as DB was only for me, and my emails always came to the forefront?

[Micron]

Works fine for me. You are running this from what event?
A couple of comments:
strBCC doesn't make much sense to me as a function parameter. The code will simply override it if you pass a value to the function.

Ismissing(attachmentpath)

will always return false regardless of whether or not there is a value. IsMissing isn't for strings. The variable should be a variant.
If there can be an attachmentPath2 but no attachmentPath1 then 2 won't get attached.