17/01/2009, 14:28
|
 | | | Fecha de Ingreso: diciembre-2003 Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 21 años Puntos: 11 | |
| Respuesta: Excel, Macro de Archivo, Enviar correo
Dejo la solucion al problema "Se ha producido el error '-2147220973 (80040213)' en tiempo de ejecucion"
El codigo orginal CDO tal cual se baja del sitio, no posee autentificacion, y aun asi funcionaba antes, ahora, practicamente todos los servidores requieren autentificar el email con un domino, usuario y contraseña para que el email no sea anomimo y evitar spam
agregando las lineas de codigo que menciona el sitio mas arriba se soluciona
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
el problema que tuve yo como tantos otros es que el error 2147220973 (80040213) no dice que es de autentificacion y uno busca cualquier solucion menos la correcta
__________________ -- Nunca te des por vencido, aún vencido -- Web |