Access - Outlook

Outlook

Publicado por Manuel (268 intervenciones) el 18/02/2005 21:22:03

Estoy usando las siguientes instrucciones para enviar correos:
´Inicio del programa
Dim Correo As New Outlook.Application
Dim Mensaje As Outlook.MailItem
Set Mensaje = Correo.CreateItem(olMailItem)
With Mensaje ´lleno mensaje
.To = "Aquien(es) se les envia el mensaje"
.Subject = "Asunto del mensaje"
.Body = "Cuerpo del mensaje
.Attachments.Add "poner ruta y archivo
a adjuntar
.Importance = olImportanceHigh
.Send
End With
Set Mensaje = Nothing ´Limpia mensaje
Set Correo = Nothing ´cierra sesión de Correo
´Fin del programa

pero estas lo hacen a travez del Outlook, hay alguna forma de hacerlo a travez del Outlook express?
Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Envío de correos a través de Outlook Express usando VBA

Publicado por Alejandro (4142 intervenciones) el 26/05/2023 17:06:01

Lamentablemente, el código VBA que has proporcionado está diseñado para enviar correos electrónicos a través de Microsoft Outlook y no es compatible con Outlook Express.

Outlook Express es un cliente de correo electrónico que ha sido descontinuado por Microsoft y no ofrece una interfaz programática (API) para enviar correos electrónicos automáticamente a través de VBA.

Sin embargo, hay alternativas para enviar correos electrónicos desde Access utilizando otros métodos. Una opción es utilizar la biblioteca CDO (Collaboration Data Objects) para enviar correos electrónicos a través de un servidor de correo compatible, como Microsoft Exchange o un servidor de correo SMTP. Aquí tienes un ejemplo de cómo hacerlo:

Dim objMessage As Object

Set objMessage = CreateObject("CDO.Message")

' Configura los parámetros del mensaje

With objMessage

    .To = "aquien@dominio.com"

    .Subject = "Asunto del mensaje"

    .TextBody = "Cuerpo del mensaje"

    .AddAttachment "ruta_y_archivo_adjunto"

    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "tu_servidor_smtp"

    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = puerto_smtp

    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' Usar SMTP para enviar

    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' Autenticación requerida

    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "tu_usuario_smtp"

    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "tu_contraseña_smtp"

    .Configuration.Fields.Update

    .Send

End With

Set objMessage = Nothing

Ten en cuenta que necesitarás proporcionar los valores adecuados para "tu_servidor_smtp", puerto_smtp, "tu_usuario_smtp" y "tu_contraseña_smtp" con la información de tu servidor de correo SMTP.

Otra opción es utilizar una biblioteca externa de terceros para enviar correos electrónicos desde Access, como "vbMAPI" u otras bibliotecas compatibles con Outlook Express. Estas bibliotecas proporcionan una interfaz programática para enviar correos electrónicos a través de Outlook Express.

Recuerda que, independientemente del método que elijas, debes asegurarte de tener la configuración adecuada y los permisos necesarios para enviar correos electrónicos desde tu entorno.

Espero que esta información te sea útil para enviar correos electrónicos desde Access utilizando alternativas a Outlook Express.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar