"This is a multi-part message in MIME format --ER57AgL2KgQ=_UE3IFDO7y8OToAbLRThPX Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Content-Disposition: inline Correo de prueba para enviar correo adjunto --ER57AgL2KgQ=_UE3IFDO7y8OToAbLRThPX Content-Type: application/octet-stream; name="MsjOriginal.txt" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="MsjOriginal.txt" RXN0ZSBtZW5zYWplIGNvbnRpZW5lIGxhIGxpc3RhIGRlIHBhbGFicmFzIGFsdGlzb25hbnRlcyBx dWUgc2VyYW4gZWRpdGFkYXMgZGVsIGJ1em9uIGRlIHRyYW5zcGFyZW5jaWEuDQpTZSBhZGp1bnRh IHVuYSBjb3BpYSBzaW4gZWRpdGFyIGRlbCBtaXNtbywgc2UgYWNlcHRhbiBtYXMgcGFsYWJyYXMg "
he importado las siguientes clases
Uses IdSMTP, IdMessage, StdCtrls, IdBaseComponent, IdComponent,IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL,IdTCPConnection, IdTCPClient,IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdAttachment, IdAttachmentFile;
inicializo mis variables :
smtp := TIdSMTP.Create(Self); mail := TIdMessage.Create(Self); IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.create(self); Adjunto := TIdAttachmentFile.Create(mail.MessageParts, UniServerModule.StartPath+'MsjOriginal.txt'); Adjunto.ContentType := 'multipart';
Uso una cuenta Gmail, pero también ya probé con la de mi trabajo que no usa encriptación y el resultado es el mismo, alguien tiene alguna idea de como enviarlo sin que aparezca basura?
De antemano les agradezco a todos.
Saludos!!