Access - ENVIO DE E-MAIL POR CDO (POSIBLE SOLUCIÓN)

   
Vista:

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:

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
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 Neckkito

ENVIO DE E-MAIL POR CDO (POSIBLE SOLUCIÓN)

Publicado por Neckkito (1104 intervenciones) el 23/12/2013 21:03:54
Perfecto!!!!!

Muchas gracias!!!!


http://neckkito.siliconproject.com.ar
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