Fórum email com confirmação de leitura #553813
11/05/2016
0
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
Curtir tópico
+ 0Posts
11/05/2016
Natanael Ferreira
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
Gostei + 0
04/08/2016
Everton Santos
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)