** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Envio de correo Outlook
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Envio de correo Outlook

 Responder Responder
Autor
Mensaje
rocjfl-b Ver desplegable
Colaborador
Colaborador


Unido: 19/Abril/2006
Localización: España
Estado: Sin conexión
Puntos: 669
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita rocjfl-b Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
rocjfl-b Ver desplegable
Colaborador
Colaborador


Unido: 19/Abril/2006
Localización: España
Estado: Sin conexión
Puntos: 669
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita rocjfl-b Cita  ResponderRespuesta Enlace directo a este mensaje 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.
Arriba
rocjfl-b Ver desplegable
Colaborador
Colaborador


Unido: 19/Abril/2006
Localización: España
Estado: Sin conexión
Puntos: 669
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita rocjfl-b Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable