Outlook au premier plan

Hello, you will allow us to help you better by showing us your code.

Bonjour,
Here is my code that works very well, but I can't bring Outlook to the forefront!

Thank you for your help

My Code:

Function EnvViaOutlook(DestMail As String, CCMail As String, SujetMail As String, TxtMail As String, Signature As String, Optional PJ1 As String) As String
Dim OL As Outlook.Application, mi As Outlook.MailItem
On Error GoTo OLMailErr
Set OL = New Outlook.Application
Set mi = OL.CreateItem(olMailItem)
With mi
.To = DestMail
.CC = CCMail
.Subject = SujetMail
.Body = TxtMail
.HTMLBody = "Test Signature" & "
" & .HTMLBody
.Display
End With
Set mi = Nothing: Set OL = Nothing
Exit Function
OLMailErr:
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
Exit Function
End Function

Hello,
In a function, I call this function to create an email and then display it (.Display) so that the user can adapt it.
You can try with the code I attached
Thank you

Hello,

you can test this code directly in a button's sub to see...

 Private Sub boutonTest_Click() Dim OL As Outlook.Application, mi As Outlook.MailItem On Error GoTo OLMailErr Set OL = New Outlook.Application Set mi = OL.CreateItem(olMailItem) With mi .To = DestMail .CC = CCMail .Subject = SujetMail .Body = TxtMail .HTMLBody = "Test <b>Signature<\b>" & "<br>" & .HTMLBody .Display End With Set mi = Nothing: Set OL = Nothing Exit Sub OLMailErr: MsgBox "Error: " & Err.Number & vbCrLf & Err.Description Exit Sub End Sub 

Hello,
Your solution changes nothing; it's exactly the same code with Function replaced by SUB.
If you have Access, you can verify this by testing the code; it just lacks the command to bring Outlook to the foreground.
Thank you.

Hello,
What do you mean by A simple button?
I'm testing with a button that I have set to execute the code on the click event
Look at the code and tell me what needs to be modified or do you have another code to display an email before sending it
Thank you

Hello,
I don't understand your request: Can you share your file?
Which file are you talking about?

Have you tried putting the code on a button?

Because I did it (without using a function) and it works.

As yg_be said, share your database (removing strictly confidential data), for example by using https://fr.fromsmash.com/

See you!

Hello,
It doesn't work "SUB" and "FUNCTION"
I have a mini database of 692 K, how can I share it with you?

As mentioned just above (read): https://fr.fromsmash.com/ or given the small size https://www.cjoint.com/

See you!

I just shared the Access database, here is the link https://www.cjoint.com/c/JDup5xiHoxP

Thank you for your help

There were plenty of checked references, I removed them, and it seems to be OK.

https://www.cjoint.com/c/JDuqHu51InU

A+

Thank you for your help,
I just tried with the database you corrected (3 references) unfortunately it still doesn't work!
For your information, I am using Office 2013 and Windows 10

Thanks again, maybe you will have another solution!

Hello,

honestly I'm stuck, since it works on my end (Win7 + Office 2013 32bits).

Can you try the database on another machine??

See you!

I tested it by opening Outlook first, that works too, maybe it will work for you then.
However, it's messy because if there’s a change in the Outlook version, the VBA will need to be modified...

See the modified file here --> https://www.cjoint.com/c/JDvmTYg3xgU

Since the Outlook window is in front of the Access window, the user will have to close it to return to Access, unless they intentionally minimize it, but that’s not the usual behavior.

Otherwise, yes, we can kill the Outlook process (if it exists) before triggering the creation of the email…

But that doesn’t explain why it doesn’t work without the shell...

Do you have Outlook set as the default program?

Cheers!

Well,

here's the code to put on the button:

Private Sub Go_Click() '--- Close the Outlook Process --- Dim ovc As Object Dim sQuery As String Dim oproc Set ovc = GetObject("winmgmts:root\cimv2") sQuery = "select * from win32_process where name='" & "Outlook.EXE" & "'" For Each oproc In ovc.execquery(sQuery) oproc.Terminate Next Set ovc = Nothing ' restart outlook Dim SessionOutlook Const Path As String = "C:\Program Files\Microsoft Office\office15\OUTLOOK.exe" ' ---> adjust this path if necessary SessionOutlook = Shell(Path, 1) Dim MyOutlook As Outlook.Application Dim MyMessage As Outlook.MailItem On Error GoTo Err_sendMail ' ===== Initialization ===== Set MyOutlook = CreateObject("Outlook.Application") Set MyMessage = MyOutlook.CreateItem(0) ' ===== Create the email ===== With MyMessage .To = "menon.florent@gmail.com" .Subject = "Subject of this email" .Body = "Here is the content of the email to be sent" ' Display the email (comment the line for background task sending) .Display ' Send the email automatically (uncomment the line for background task sending) '.Send End With Exit_sendMail: Set MyOutlook = Nothing Exit Sub Err_sendMail: Select Case Err.Number Case Else MsgBox "Error No." & Err.Number & vbCrLf & "Description : " & Err.Description & vbCrLf & "Source : " & Err.Source, vbCritical, "Error" End Select Resume Exit_sendMail End Sub