Esse fonte funciona no Indy 9 e no 10. Observe a diretiva ver210 que separa
o Delphi 10 dos antigos.
Espero que ajude.
SMTP:= TIdSMTP.Create(Application);
MailMessage:= TIdMessage.Create(Application);
try
SMTP.Host:=';
SMTP.Port:=25;
{$ifdef ver210}
SMTP.AuthType:=satDefault;
{$else}
SMTP.AuthType:=atDefault;
{$endif}
SMTP.Username:='';
SMTP.Password:='';
MailMessage.From.Address:='';
MailMessage.From.Name:='';
MailMessage.Recipients.EMailAddresses:=';
MailMessage.Subject:='';
MailMessage.Body.Text:='Em anexo está o ChatLog para análise.';
Attachment:=TIdAttachmentFile.create(MailMessage.MessageParts,
Path+'Database\Logs\Chatlog.old');
Attachment.FileName:=LogName;
try
try
Log('Chat: Connecting in SMPT Server',tlNet);
if IsOnline then
begin
SMTP.Connect();
if SMTP.Connected then
begin
try
SMTP.Send(MailMessage);
except
on E:Exception do
begin
Log('Chat: Error sending message.
Error:'+E.Message,tlError);
end;
end;
end;
end
else Log('Chat: Not connected in Internet or server
down!',tlError);
except on E:Exception do
begin
Log('Chat: Error sending message. Error:'+E.Message,tlError);
end;
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end;
finally
FreeAndNil(Attachment);
FreeAndNil(SMTP);
FreeAndNil(MailMessage);
end;
if not Erro then Log('Chat: ChatLog sended with success!',tlMessage);
2010/3/26 Omar Marques <webomarmat...@yahoo.com.br>
>
>
>
> Boa tarde, amigos(as)...
>
> Tudo bom. Estou precisando de ajuda para o processo de envio de e-mails
> para meu sistema de Ordem de Serviço feito em Delphi 5 Enterprise.
>
> Ouvi comentários sobre a Indy na versão 9.x que é compatível com o Delphi 5
> e funciona bem, mas não consegui achar o link e baixar para testar.
>
> Alguém tem alguma idéia de como poderia enviar e-mail. Sei que pode-se
> abrir o gerenciador de e-mail do usuário e setar alguns
> campos (destinatário) e tal, mas se possível gostaria de fazer isto rápido
> e transparente.
>
> Será que tem alguma outroa biblioteca que me ajude a resolver. Quem saber,
> atachar um anexo e tal.
> Quais parâmetros de configuração do e-mail eu teria de setar ? smtp ?
>
> Agradeço a atenção de todos
>
> Omar M. Haddad
> Analista de Sistemas
>
> __________________________________________________________
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
