Access - Envio de email con access usando winsock

 
Vista:

Envio de email con access usando winsock

Publicado por currante (2 intervenciones) el 22/11/2001 14:28:53
Necesito saber como se pueden enviar email desde access utilizando winsock, puesto que no quiero que los correos pasen por outlook ya que me pide confirmación por cada uno de ellos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Envio de email con access usando winsock

Publicado por Alejandro (4142 intervenciones) el 19/04/2023 19:19:38
Utilizar Winsock para enviar correos electrónicos desde Access puede ser complicado y requiere conocimientos avanzados de programación. Además, hay limitaciones en cuanto a la cantidad de correos electrónicos que se pueden enviar utilizando Winsock, ya que algunos proveedores de correo electrónico pueden bloquear este método debido al riesgo de spam.

En su lugar, se recomienda utilizar una librería de correo electrónico de terceros, como CDO (Collaboration Data Objects) o Outlook Redemption, que permiten enviar correos electrónicos directamente desde Access sin necesidad de utilizar Outlook. Estas librerías también ofrecen funcionalidades avanzadas, como el envío de correos electrónicos con formato HTML o la inclusión de archivos adjuntos.

Aquí te mostramos un ejemplo de código utilizando CDO para enviar un correo electrónico desde Access:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub EnviarCorreo()
    Dim objCDO As Object
    Set objCDO = CreateObject("CDO.Message")
    objCDO.To = "destinatario@dominio.com"
    objCDO.Subject = "Asunto del correo"
    objCDO.TextBody = "Cuerpo del correo electrónico"
    objCDO.From = "remite@dominio.com"
    objCDO.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objCDO.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
            "smtp.dominio.com"
    objCDO.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objCDO.Configuration.Fields.Update
    objCDO.Send
    Set objCDO = Nothing
End Sub

Este código utiliza CDO para crear un objeto de mensaje y establecer los campos del correo electrónico, como el destinatario, el asunto y el cuerpo del mensaje. Luego, se configura la información del servidor SMTP y se envía el correo electrónico utilizando el método 'Send'.

Ten en cuenta que para utilizar CDO en Access, debes tener instalado el cliente de correo electrónico de Microsoft (Outlook) o tener instalado el componente de colaboración de datos (CDO) en tu sistema.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar