buongiorno a tutti,
mi sto imbattendo in questo problema:
devo creare, a run-time, il corpo di un messaggio mail da inviare con il programma
predefinito e uso il seguente codice
procedure TGestPratSForm.SendConftoTOBtnClick(Sender: TObject); var em_subject, em_body, em_mail, Acapo, Spazio : string; begin Acapo := '%0C'; Spazio := '%20'; em_subject := 'Conferma Sigg '+ PmMasterData.ADO1aMascheraRAGIONESOCIALE.Value+' x '+ IntToStr(PmMasterData.ADOPartecipanti.recordCount); em_body := 'di Seguito ns. CONFERMA per i servizi appresso elencati: '+acapo+ 'descrizione : '+PmmasterData.ADO1aMascheraDESCRIZIONEPRATICA.Value+Acapo+ 'destinazione : '+PmmasterData.ADO1aMascheraDESTINAZIONE.Value+Acapo+ 'Cliente : '+PmMasterData.ADO1aMascheraRAGIONESOCIALE.Value+ ' - C.Fisc.:'+PmMasterData.ADOClienteCODICEFISCALE.Value+Acapo+ 'Dal : '+FORMATDATETIME('dd/mm/yyyy', PmMasterData.ADO1aMascheraDATAPARTENZA.Value)+ ' Al : '+FORMATDATETIME('dd/mm/yyyy', PmMasterData.ADO1aMascheraDATARIENTRO.Value)+Acapo; if PmMasterData.ADOPartecipanti.recordCount > 0 then begin PmMasterData.ADOPartecipanti.first; em_body := em_body + 'Passeggeri : '+Acapo; while not PmMasterData.ADOPartecipanti.eof do begin em_body := em_body + ' - '+PmMasterData.ADOPartecipantiCOGNOMENOME.Value + ' - dt.nascita : '+ FORMATDATETIME('dd/mm/yyyy', PmMasterData.ADOPartecipantiDATANASCITA.Value) + ' - rec. telef.: '+ PmMasterData.ADOPartecipantiTELEFONO.Value+Acapo; PmMasterData.ADOPartecipanti.next; end; end; em_body := em_body +Acapo+ 'In attesa Vs. conferma, cordiali saluti.'+Acapo; em_mail := 'mailto:'+(QRYFornProvv.fieldByName('E-Mail1') as TStringField).value+'?subject=' + em_subject + '&body=' + em_body ; ShellExecute(Handle,'open', PChar(em_mail), nil, nil, SW_SHOWNORMAL) ; end;Se il programma in questione è OUTLOOK oppure il nuovo programma di win 10 (POSTA)
il testo viene regolarmente formattato rispettando i caratteri di 'a capo' e 'spazio'
impostati, me negli altri (ad esempio THUNDERBIRD) il testo viene riportato senza interruzioni..
Esiste il modo di formattare in modo generico tale testo, affinchè venga 'accettato' anche
dalle altre applicazioni ?