Envio de correo Outlook

   Buenas tardes !!
Utilizo este código para enviar correo:
Sub EnviarCorreoConAdjunto()
Dim vDest As String        'Variable con el valor del campo Mail
Dim Olk As Outlook.Application
Set Olk = CreateObject("Outlook.Application")
vDest = ApCorreo

'Creamos un nuevo mensaje de Outlook
Dim OlkMsg As Outlook.MailItem
Set OlkMsg = Olk.CreateItem(olMailItem)

'Creamos la información del mail
With OlkMsg
    'Definimos los elementos del mail
    Dim OlkDestinatario As Outlook.Recipient            'Destinatario
    Set OlkDestinatario = .Recipients.Add(vDest)
    OlkDestinatario.Type = olTo
        .Subject = "Mayor contable"                'Asunto
        .HTMLBody = "<HTML> " & _
                "<BODY>" & _
                    "<P>" & "<IMG SRC = 'C:\temp\BaseFirmasCorreo.png'>" & "</P>" & _
                "</BODY> " & _
                "</HTML>"
        .Attachments.Add ApArchivoAdjunto
    .Display
End With

'Eliminamos la instancia
Set Olk = Nothing
Set OlkMsg = Nothing
Set OlkDestinatario = Nothing
End Sub

El problema que tengo es que ..."Outlook se cuelga"... dejando el mensaje en el SO:   ..."Otro programa está usando Outlook." ....

Podeis, por favor, ayudarme?
Gracias

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
rocjfl-b Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 19/Abril/2006 Localización: España Estado: Sin conexión Puntos: 669	Opciones de entrada Responder Cita rocjfl-b Informar de mensaje Gracias(0) Cita Respuesta Tema: Envio de correo Outlook Enviado: 17/Marzo/2024 a las 17:36
	Buenas tardes !! Utilizo este código para enviar correo: Sub EnviarCorreoConAdjunto() Dim vDest As String 'Variable con el valor del campo Mail Dim Olk As Outlook.Application Set Olk = CreateObject("Outlook.Application") vDest = ApCorreo 'Creamos un nuevo mensaje de Outlook Dim OlkMsg As Outlook.MailItem Set OlkMsg = Olk.CreateItem(olMailItem) 'Creamos la información del mail With OlkMsg 'Definimos los elementos del mail Dim OlkDestinatario As Outlook.Recipient 'Destinatario Set OlkDestinatario = .Recipients.Add(vDest) OlkDestinatario.Type = olTo .Subject = "Mayor contable" 'Asunto .HTMLBody = "<HTML> " & _ "<BODY>" & _ "<P>" & "<IMG SRC = 'C:\temp\BaseFirmasCorreo.png'>" & "</P>" & _ "</BODY> " & _ "</HTML>" .Attachments.Add ApArchivoAdjunto .Display End With 'Eliminamos la instancia Set Olk = Nothing Set OlkMsg = Nothing Set OlkDestinatario = Nothing End Sub El problema que tengo es que ..."Outlook se cuelga"... dejando el mensaje en el SO: ..."Otro programa está usando Outlook." .... Podeis, por favor, ayudarme? Gracias

rocjfl-b Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 19/Abril/2006 Localización: España Estado: Sin conexión Puntos: 669	Opciones de entrada Responder Cita rocjfl-b Informar de mensaje Gracias(0) Cita Respuesta Enviado: 19/Marzo/2024 a las 11:20
	Es un problema del usuario de windows. Con otro usuario, el problema desaparece. Se puede cerrar el hilo. Gracias a todos.

rocjfl-b Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 19/Abril/2006 Localización: España Estado: Sin conexión Puntos: 669	Opciones de entrada Responder Cita rocjfl-b Informar de mensaje Gracias(0) Cita Respuesta Enviado: 22/Marzo/2024 a las 17:46
	Esta sentencia Set Olk = CreateObject("Outlook.Application") cuelga outlook y algunos equipos y en otros no. Se puede cerrar este hilo