Espaço entre linhas utilizando mailto:

Delphi

12/03/2004

Caros Senhores,

Estou precisando colocar um espaço entre linhas. Utilizado o código #13 conforme função abaixo, mas não está funcionando.

Obs.: Tem que ser utilizado o Lotus Notes e não pode ser com o componente NNTP/POP pois fireware ou outro sistema bloqueia o envio de mensagem. Sobrando esta alternativa.

var strMsg, bodyMail:string;

strMsg:= ´mailto:´ +send+wrap+ ´?Subject=´ +dm.tblClienteSubjectMail.Text +13+ ´&Body=´+
mensagem qualquer´´+ dm.tblEmprestarAnalista.Value+ ´, o ´+ dm.tblBackupPeca.Value+
´ código mensagem qualquer´ ´+IntToStr(dm.tblBackupCodigo.Value)+13+´ mensagem qualquer´ ´+
dm.tblEmprestarData.Text+´ mensagem qualquer´+13;

ShellExecute (Handle, ´open´, pChar (strMsg), ´´,´´,SW_show);

Agradeço a colaboração de todos.

Grato


Mcsimoes

Mcsimoes

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

12/03/2004

tenta colocar a string ¬A0 ou ¬0A no email.....


GOSTEI 0
Danielclubedelphi

Danielclubedelphi

12/03/2004

tentou #13 duas vezes ?

(...) + 13 + 13 + (...)


GOSTEI 0
Nigro

Nigro

12/03/2004

nada disso funciona, também estou tentando, pois acho que na conversão para pchar, perde a quebra, e agora?


GOSTEI 0
Lucas Silva

Lucas Silva

12/03/2004

esse código abaixo funciona perfeitamente no outlook.
var email: String;
.
.
.
Email := ´mailto: ?cc= teste &subject=´assunto´&body= linha1¬0Alinha2´;
ShellExecute(Handle,´open´,pchar(Email), nil, nil, SW_SHOWNORMAL );



GOSTEI 0
POSTAR