Fórum Espaço entre linhas utilizando mailto: #220213
12/03/2004
0
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
Curtir tópico
+ 0Posts
12/03/2004
Lucas Silva
Gostei + 0
16/03/2004
Danielclubedelphi
(...) + 13 + 13 + (...)
Gostei + 0
23/04/2004
Nigro
Gostei + 0
23/04/2004
Lucas Silva
var email: String; . . . Email := ´mailto: ?cc= teste &subject=´assunto´&body= linha1¬0Alinha2´; ShellExecute(Handle,´open´,pchar(Email), nil, nil, SW_SHOWNORMAL );
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)