Email pelo outlook com assinatura

[Douglas Soares]

Bom dia, gostaria de saber se quando eu abro o outlook com o delphi, se tem jeito de vir a assinatura que já está configurada no outlook, segue meu código:

procedure TfrmCadClientes.btnAvisoCobrancaClick(Sender: TObject);
var
Mail, destino, c_motivo, linha1 : String;
begin
query4.Open;
destino := '';
if cdsCobranca.FieldByname('MOTIVO').Value = 1 Then
c_motivo := 'compra';

if cdsCobranca.FieldByname('MOTIVO').Value = 2 Then
c_motivo := 'anuidade';

if cdsCobranca.FieldByname('MOTIVO').Value = 3 Then
c_motivo := 'trimestralidade';

if cdsCobranca.FieldByname('MOTIVO').Value = 4 Then
c_motivo := 'mensalidade';

if cdsCobranca.FieldByname('MOTIVO').Value = 2 then
linha1 := 'Até a presente data não acusamos o recebimento referente a ' + c_motivo +' do software ' + query4.FieldByname('SUCINTO').AsString + ' vencida no ' +'%0D%0A'
else
linha1 := 'Até a presente data não acusamos o recebimento da parcela ' + cdsCobranca.FieldByname('PARCELA').AsString + ' referente a ' + c_motivo +' do software ' + query4.FieldByname('SUCINTO').AsString + ' vencida no ' +'%0D%0A';


if not cdsClientes.FieldByname('EMAIL').IsNull Then
destino := trim(cdsClientes.FieldByname('EMAIL').Text);

if not cdsClientes.FieldByname('CTT_EMAIL').IsNull Then
 begin
  if destino <> '' Then
  destino := destino + ';' + TRIM(cdsClientes.FieldByname('CTT_EMAIL').Text)
  else
  destino :=  (cdsClientes.FieldByname('CTT_EMAIL').Text);
 end;

// Aviso de Cobrança
Mail := 'mailto:' + destino +'?Subject=AVISO DE VENCIMENTO ' + query4.FieldByname('SUCINTO').AsString +
'&Body= A '+'%0D%0A' +
(cdsClientes.FieldByname('IGREJA').Text) + '%0D%0A' +
'A/C: ' + (cdsClientes.FieldByname('CONTATO').Text) + '%0D%0A' +
'%0D%0A' +
linha1 +
//'%0D%0A' +
'dia  ' + (cdsCobranca.FieldByname('VENC').AsString) + ', caso tenha passado desapercebido e a mesma não puder ser quitada até o sexto dia do' +'%0D%0A' +
//'%0D%0A' +
'vencimento, pedimos a gentileza de entrar em contato conosco o mais breve possível.;

//ASSINATURA DEVERIA APARECER AQUI!
ShellExecute(handle,'open',PChar(mail),'' ,'',SW_SHOW);
end;

Abraços

[Jhonas]

gostaria de saber se quando eu abro o outlook com o delphi, se tem jeito de vir a assinatura que já está configurada no outlook

A assinatura está em texto ou em figura ?

[Douglas Soares]

A assinatura está em texto ou em figura ?

É um arquivo HTM que já está configurado no outlook, e tem texto e imagem.

Abraços

[Jhonas]

É um arquivo HTM que já está configurado no outlook, e tem texto e imagem.

qual é o nome do arquivo htm que contem a assinatura ? é só descobrir o nome e anexá-lo ao email

abraço

[Douglas Soares]

está em C:\Arquivos de programas\Arquivos comuns\Microsoft Shared\Papel de carta\logosnsystems.htm

[Douglas Soares]

Jhonas, mesmo com o nome dele, com anexarei juntamente ao meu código?

[Jhonas]

Jhonas, mesmo com o nome dele, com anexarei juntamente ao meu código?

Douglas ... assim que der uma aliviada no serviço te repondo ok ?

abraço

[Douglas Soares]

beleza, aqui tambem tá azedo esses dias.... vlw