Ir a outlook desde macro en VBA

Esta macro envía correo desde excel, pero como aparece una opción de clasificación de seguridad en outlook se queda excel esperando dando vueltas el relojito, necesito que a la hora de enviar el correo me cambie la pantalla a la aplicación de outlook que puede estar abierta o no (normalmente abierta) para poder seleccionar la opción de seguridad y acabar de enviar el correo, no se como hacerlo, ¿me podéis ayudar?

Gracias

Sub EnviarCorreo()
Dim olApp As Outlook.Application
Set olApp = CreateObject("outlook.application")

Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

With olMail

.To = "[email protected]"
.Subject = "Correo de prueba"
.Body = "Esto es un correo de prueba"
.Send
End With
End Sub

1 respuesta

Respuesta
1

[Hola

En lugar de usar

. Send

Usa

. Display

Comentas

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas