Envio de email consistente
Bom dia,
Alguém conhece alguma rotina para envio de email que funcione com estabilidade. Estou enfrentando problemas com isso a um bom tempo. Todas as rotinas que uso sempre dá problema. Ora funciona, ora não funciona. Grato.
Alguém conhece alguma rotina para envio de email que funcione com estabilidade. Estou enfrentando problemas com isso a um bom tempo. Todas as rotinas que uso sempre dá problema. Ora funciona, ora não funciona. Grato.
Marcelo Me
Curtidas 0
Respostas
Everton Santos
10/05/2016
// OBSERVACAO : QUANDO USA ESSA ROTINA NO PROGRAMA QUE VC COLOCAR O RAISE NAO FUNCIONA
// NO MEU CASO SUBSTITUI TUDO POR SHOWMESSAGE E EXIT
// MAS A ROTINA FUNCIONA DIREITINHO USO O XE3
// acrescente no uses do programa
OleServer, Outlook2000,ComObj;
procedure btEmailClick(Sender: TObject);
var
wAnexo : String;
Outlook: OLEVariant;
MailItem: Variant;
begin
inherited;
wAnexo := caminho do seu anexo (EX: C:\TESTE.PDF);
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
MailItem := Outlook.CreateItem(olMailItem) ;
MailItem.Recipients.Add('SEU EMAIL')
MailItem.Subject := 'REPASSE DE ALUQUEL'; // ASSUNTO
MailItem.Body := 'REPASSE DE ALUQUEL '; // CORPO DO EMAIL
MailItem.Attachments.Add(wAnexo) ; ANEXO PODE ACRESCENTAR QTOS QUISER
MailItem.Send; // ENVIA
Outlook := Unassigned;
end;
// NO MEU CASO SUBSTITUI TUDO POR SHOWMESSAGE E EXIT
// MAS A ROTINA FUNCIONA DIREITINHO USO O XE3
// acrescente no uses do programa
OleServer, Outlook2000,ComObj;
procedure btEmailClick(Sender: TObject);
var
wAnexo : String;
Outlook: OLEVariant;
MailItem: Variant;
begin
inherited;
wAnexo := caminho do seu anexo (EX: C:\TESTE.PDF);
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
MailItem := Outlook.CreateItem(olMailItem) ;
MailItem.Recipients.Add('SEU EMAIL')
MailItem.Subject := 'REPASSE DE ALUQUEL'; // ASSUNTO
MailItem.Body := 'REPASSE DE ALUQUEL '; // CORPO DO EMAIL
MailItem.Attachments.Add(wAnexo) ; ANEXO PODE ACRESCENTAR QTOS QUISER
MailItem.Send; // ENVIA
Outlook := Unassigned;
end;
GOSTEI 0
Dorivan Sousa
10/05/2016
use o ACBrEmail do projetoacbr.com.br
GOSTEI 0
Marcelo Me
10/05/2016
Edsrp, obrigado pela resposta, mas e as configurações de SMTP? Não precisa?
GOSTEI 0