Ir para conteúdo
Fórum Script Brasil
  • 0

Email pelo outlook com assinatura


Douglas Soares

Pergunta

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

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...