Activate Access After sending Email

[OzzieTheOwl]

I have a routine which sends an email from a form, the problem is that once the email has been sent the focus is still on Outlook, does anyone know how to make the Access DB the focus again?

Thanks in Advance

Barney

 

[hartwell]

Could you post your current code? I use a sendmail funcion and outlook never appears (only the mail window if you request to view it)

 

[OzzieTheOwl]

Current Code As requested

Private Sub cmdEmailDriver_Click()
    Dim o As Outlook.Application
    Dim mail As mailitem
    Dim txtDriverPhoneE As String
    Dim txtAssetRegE As String
    Dim txtServiceTypeE As String
    Dim txtGarageE As String
    Dim txtServiceDateE As String
    txtDriverPhoneE = Me.txtDriverNum
    txtAssetRegE = Me.txtReg
    txtServiceTypeE = Me.txtServiceType
    txtGarageE = Me.txtGarage
    txtServiceDateE = Me.txtDateOfService
    Set o = CreateObject("Outlook.Application")
    Set mail = o.CreateItem(olMailItem)
    mail.To = txtDriverPhoneE & "@esendex.net"
    mail.Subject = "Vehicle Service"
    mail.Body = "FYI - " & txtAssetRegE & " , is booked in for " & txtServiceTypeE & " Service @ " & txtGarageE & " on " & txtServiceDateE
    mail.Send
    Set o = Nothing
    Set mail = Nothing
End Sub

 

[bubba100]

something like, me.txtGarage.setfocus

 

[OzzieTheOwl]

bubba100

Thanks for the response.
I have tried that but it still keeps the focus on Outlook, I could be wrong, but I think it may be something to do with Outlook Securtity Warning Message which take the focus away from Access to Outlook.

 

[OzzieTheOwl]

Thanks for our help guys.

I have solved my own problem.

I used

AppActivate ("DB Name")

And it works perfectly.

Cheers

Barney