email com confirmação de leitura
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;
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
Curtidas 0
Respostas
Natanael Ferreira
11/05/2016
Utilize a propriedade [b]ReadReceiptRequested[/b] no objeto MailItem.
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
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
Everton Santos
11/05/2016
natanael obrigado pela dica estranho qdo vc respondeu o devmedia nao me avisou agora q to vendo muito obrigado
GOSTEI 0