Fórum Envio de email consistente #553646

// 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;

use o ACBrEmail do projetoacbr.com.br

Edsrp, obrigado pela resposta, mas e as configurações de SMTP? Não precisa?