
ENVIO DE E-MAIL POR CDO (POSIBLE SOLUCIÓN)
Publicado por Jose Gilberto (16 intervenciones) el 23/12/2013 20:42:28
Muevo una consulta que hice:
Estoy liado con enviar un correo, por medio de un servidor SMPT o POP. He leído que se utiliza una librería CDO pero no logro hacer que funcione, utilizo este código:
Esto lo coloque en un botón que se llama EnviarCorreo, por el momento solo quiero que el mensaje de prueba que intento enviar, llegue a mi correo pero no lo hace.
Si pudieran ayudarme con este problema o indicarme otro método de realizarlo o alguna consideración a tomar en cuenta estaría muy agradecido. Saludos y de nuevo gracias.
SUGERENCIA APORTADA POR EL COMPAÑERO Neckkito:
Documento que explica paso a paso cómo usar CDO: http://goo.gl/pNQ81f
Tres ejemplos de cómo enviar mail. Sus títulos son "Y una de mail" (y siguientes). El ejemplo de CDO es el tercero. El link es http://goo.gl/QW8ezS
Saludos.
Y Gracias al compañero que me ha ayudado en dos ocasiones y su amabilidad al explicarme las formas de utilizar el foro.
Revisare la solucion que me aporto el compañero, lo mas pronto me sea posible.
Estoy liado con enviar un correo, por medio de un servidor SMPT o POP. He leído que se utiliza una librería CDO pero no logro hacer que funcione, utilizo este código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set msg = CreateObject("CDO.message")
With msg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "myserver.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "myemail@domain.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
.Update
End With
msg.To = "email@domain.com"
msg.Subject = "MessageSubject"
msg.TextBody = "MesageContent"
msg.Send
Esto lo coloque en un botón que se llama EnviarCorreo, por el momento solo quiero que el mensaje de prueba que intento enviar, llegue a mi correo pero no lo hace.
Si pudieran ayudarme con este problema o indicarme otro método de realizarlo o alguna consideración a tomar en cuenta estaría muy agradecido. Saludos y de nuevo gracias.
SUGERENCIA APORTADA POR EL COMPAÑERO Neckkito:
Documento que explica paso a paso cómo usar CDO: http://goo.gl/pNQ81f
Tres ejemplos de cómo enviar mail. Sus títulos son "Y una de mail" (y siguientes). El ejemplo de CDO es el tercero. El link es http://goo.gl/QW8ezS
Saludos.
Y Gracias al compañero que me ha ayudado en dos ocasiones y su amabilidad al explicarme las formas de utilizar el foro.
Revisare la solucion que me aporto el compañero, lo mas pronto me sea posible.
Valora esta pregunta


0