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.
