Ver Mensaje Individual
  #1 (permalink)  
Antiguo 11/02/2009, 05:27
Danesa
 
Fecha de Ingreso: diciembre-2008
Mensajes: 4
Antigüedad: 15 años, 5 meses
Puntos: 0
Pregunta Al enviar mail con CDO se añaden adjuntos que no deberían aparecer.

Hola a todos, he desarrollado una aplicación de mensajería con CDO en VB6. La aplicación debe realizar envíos periódicos de mensajes. Los mensajes sólo deben llevar texto plano en el cuerpo del mensaje. Sin embargo, cuando los recibe el destinatario, los mensajes llegan con el 'body' vacío y dos archivos adjuntos, uno de ellos con el texto del mensaje. Alguien sabe por qué puede ocurrir esto?
El código es el siguiente:

iConf.Fields(cdoSendUsingMethod) = cdoSendUsingPort
iConf.Fields(cdoSMTPServer) = sSmtp
iConf.Fields(cdoSMTPServerPort) = nPuertoSmtp
iConf.Fields(cdoSMTPConnectionTimeout) = 10 ' quick timeout
iConf.Fields(cdoSMTPAuthenticate) = cdoBasic 'es con autenticación
iConf.Fields(cdoSMTPUseSSL) = False
iConf.Fields(cdoSendUserName) = sCuenta
iConf.Fields(cdoSendPassword) = sPswd
iConf.Fields.Update

Set mCorreo.Configuration = iConf
mCorreo.To = sCtaNeonDestino
mCorreo.From = sCuenta

mCorreo.Subject = sAsunto
mCorreo.TextBody = Texto del mensaje
mCorreo.Send

Como veis, no es nada del otro mundo. Alguien sabe por qué puede estar ocurriendo esto?

Gracias a todos.

Última edición por Danesa; 11/02/2009 a las 05:32 Razón: Errata en el título