Imprimir página | Cerrar ventana

Envio de correo Outlook

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86886
Fecha de impresión: 26/Marzo/2026 a las 21:00


Tema: Envio de correo Outlook
Publicado por: rocjfl-b
Asunto: Envio de correo Outlook
Fecha de publicación: 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



Respuestas:
Publicado por: rocjfl-b
Fecha de publicación: 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.


Publicado por: rocjfl-b
Fecha de publicación: 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



Imprimir página | Cerrar ventana