Outlook en primer plano

Hola, nos permitirás ayudarte mejor mostrándonos tu código.

Bonjour,
Aquí está mi código que funciona muy bien, sin embargo, no logro poner Outlook en primer plano.

Gracias por tu ayuda

Mi código:

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 <b>Signature<\b>" & "<br>" & .HTMLBody
.Display
End With
Set mi = Nothing: Set OL = Nothing
Exit Function
OLMailErr:
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
Exit Function
End Function

Hola,
En una función, llamo a esta función para crear un correo y luego mostrarlo (.Display) para que el usuario pueda adaptarlo.
Puedes probar con el código que he adjuntado.
Gracias

Hola,

puedes probar este código directamente en un evento de un botón, para ver...

 Private Sub botonTest_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>Firma<\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 

Hola,
Tu solución no cambia nada, es exactamente el mismo código con Function reemplazado por SUB
Si tienes Access, puedes darte cuenta probando este código, solo falta el comando para poner Outlook en primer plano
Gracias

Hola,
¿Qué quieres decir con Un simple botón?
Estoy probando con un botón en el que he puesto la ejecución del código en el evento clic
Mira el código y dime qué hay que modificar o si tienes otro código para mostrar un correo antes de enviarlo
Gracias

Hola,
No entiendo tu solicitud: ¿Puedes compartir tu archivo?
¿De qué archivo se trata?

¿Has intentado poner el código en un botón?

Porque yo lo hice (sin pasar por una función) y funciona.

Como dice yg_be, comparte tu base de datos (quitando los datos estrictamente confidenciales), utilizando por ejemplo https://fr.fromsmash.com/

¡Hasta luego!

Hola,
No funciona "SUB" y "FUNCTION"
Tengo una mini base de 692 K, ¿cómo puedo compartirla con ustedes?

Como se mencionó justo arriba (lee): https://fr.fromsmash.com/ o dado el pequeño tamaño https://www.cjoint.com/

A+

Acabo de compartir la base Access, aquí está el enlace https://www.cjoint.com/c/JDup5xiHoxP

Gracias por su ayuda.

Había muchas referencias marcadas, las he quitado y parece que está bien.

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

¡A+!

¡Gracias por tu ayuda,
Acabo de intentar con la base que corregiste (3 referencias), pero desafortunadamente sigue sin funcionar.
Para información, estoy usando Office 2013 y Windows 10.

¡De nuevo gracias, quizás tengas otra solución!

Hola,

sinceramente estoy perdido, ya que funciona en mi máquina (win7 + office 2013 32 bits).

¿Puedes probar la base en otra máquina?

¡Hasta luego!

He probado abriendo Outlook antes, también funciona, quizás por eso funcionará en tu caso.
Sin embargo, es un desastre, porque en caso de que cambie la versión de Outlook, habrá que modificar el VBA...

Mira el archivo modificado aquí --> https://www.cjoint.com/c/JDvmTYg3xgU

Dado que la ventana de Outlook está delante de la de Access, el usuario tendrá que cerrarla para volver a Access, a menos que decida minimizarla, pero este no es el comportamiento habitual.

De lo contrario, sí, se puede cerrar el proceso de Outlook (si existe) antes de iniciar la creación del correo...

Pero eso no explica por qué no funciona sin el shell...

¿Tienes Outlook definido como programa predeterminado?

A+

Bueno,

aquí está el código que hay que poner en el botón:

Private Sub Go_Click() '--- Cerramos el Proceso Outlook --- 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 ' relanzamos outlook Dim SessionOutlook Const Chemin As String = "C:\Program Files\Microsoft Office\office15\OUTLOOK.exe" ' ---> adapta esta ruta si es necesario SessionOutlook = Shell(Chemin, 1) Dim MonOutlook As Outlook.Application Dim MonMessage As Outlook.MailItem On Error GoTo Err_envoyerMail ' ===== Inicialización ===== Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.CreateItem(0) ' ===== Creación del email ===== With MonMessage .To = "menon.florent@gmail.com" .Subject = "Asunto de este correo" .Body = "Aquí el contenido del correo a enviar" ' Muestra el correo (comentar la línea para enviar el correo en segundo plano) .Display ' Envía el correo automáticamente (descomentar la línea para enviar el correo en segundo plano) '.Send End With Exit_envoyerMail: Set MonOutlook = Nothing Exit Sub Err_envoyerMail: Select Case Err.Number Case Else MsgBox "Error n°" & Err.Number & vbCrLf & "Descripción : " & Err.Description & vbCrLf & "Fuente : " & Err.Source, vbCritical, "Error" End Select Resume Exit_envoyerMail End Sub