GARANTIR DESCONTO

Fórum email com confirmação de leitura #553813

11/05/2016

0

BOA TARDE,

USO ESTA ROTINA PRA ENVIAR E-MAIL E ESTA REDONDINHA
PORÉM NÃO SEI SE DESTA FORMA EU CONSIGO SOLICITAR
CONFIRMACAO DE LEITURA SE ALGUEM SOUBER POR FAVOR ME AJUDE


try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
MailItem := Outlook.CreateItem(olMailItem) ;
if TRIM(cdsContratosEMAIL_FINANCEIRO.Text) <> '' then
MailItem.Recipients.Add(cdsContratosEMAIL_FINANCEIRO.Text)
else
MailItem.Recipients.Add(cdsContratosEMAIL.Text);
MailItem.Subject := 'REPASSE DE ALUQUEL';
MailItem.Body := 'REPASSE DE ALUQUEL ';
MailItem.Attachments.Add(wAnexo) ;
MailItem.Send;
Outlook := Unassigned;
Everton Santos

Everton Santos

Responder

Posts

11/05/2016

Natanael Ferreira

Utilize a propriedade [b]ReadReceiptRequested[/b] no objeto MailItem.
 try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  MailItem := Outlook.CreateItem(olMailItem);
  if TRIM(cdsContratosEMAIL_FINANCEIRO.Text) <> '' then
    MailItem.Recipients.Add(cdsContratosEMAIL_FINANCEIRO.Text)
  else
    MailItem.Recipients.Add(cdsContratosEMAIL.Text);
  MailItem.Subject := 'REPASSE DE ALUQUEL';
  MailItem.Body := 'REPASSE DE ALUQUEL ';
  MailItem.Attachments.Add(wAnexo);
  MailItem1.ReadReceiptRequested := True; // Adicionei esta linha
  MailItem.Send;
  Outlook := Unassigned;

Veja estes dois artigos:
http://balaiotecnologico.blogspot.com.br/2012/11/integrando-o-outlook-em-aplicacoes.html
http://balaiotecnologico.blogspot.com.br/2012/11/integrando-o-outlook-em-aplicacoes_23.html
Responder

Gostei + 0

04/08/2016

Everton Santos

natanael obrigado pela dica estranho qdo vc respondeu o devmedia nao me avisou agora q to vendo muito obrigado
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar