Buenas estimados, los molesto nuevamente, de antemano muchas gracias...
Tengo un IdSMTP y un IdMessage mas este codigo:
Código Delphi
[-]
begin
IdMessage1.Recipients.EMailAddresses:=Edit1.Text;
IdMessage1.From.Address:= 'mail@mail.net';
IdMessage1.Subject:='envio de correo automático';
IdMessage1.Body.Text:=
'Para su información :' + #13#10 + #13#10 +
'El usuario '+ BDatos.RegHallazgos_T.FieldbyName('PGHallazgo').asString +
' ha Levantado una ' + BDatos.RegHallazgos_T.FieldbyName('TipoDesviacion').asString +
', Folio N° '+ BDatos.RegHallazgos_T.FieldbyName('idrhallazgo').asString + ' Con fecha '+ BDatos.RegHallazgos_T.FieldbyName('FECHA').asString +'''' + #13#10 +
'Unidad De proceso:'+ BDatos.RegHallazgos_T.FieldbyName('UnidadProceso').asString + '''' + #13#10 +
'Responsable : '+ BDatos.RegHallazgos_T.FieldbyName('Responsable').asString +'''' + #13#10 +
'Descripción del Hallazgo: '+ BDatos.RegHallazgos_T.FieldbyName('DesHallazgo').asString +''''+ #13#10 +
'Por favor Realizar análisis de causa y acción inmediata antes de 7 días hábiles.' + #13#10 +
'' + #13#10 +
'Atte.' + #13#10 +
'SGC';
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;
He provado infinidad de codigos de este foro e internet en general... y este con ciertos ajustes es el que mas resultado me ha dado, el problema, al enviar el mail los acentos los aparecen con signos de interrogacion encerrados en un cuadro negro...
que estoy haciendo mal??? hay otra forma mas facil y mejor de enviar un mail a distintos destinatarios???, aparte, que me llegan a la bandeja de SPAM...
Ojala puedan ayudarme, en este caso necesito enviar los mails con sus acentos correspondientes y/o (ojala, si no, texto plano no mas) con formato, firma y logo???
De antemano muchas gracias...
PD: el por que me quede con este codigo??? es el unico que pude echar a andar que me deja de tener mas de un destinatario...
PD2: no es para ahcer SPAM, es que a veces se deve enviar el informe a 3, 5, 2 6 etc... personas distintas...