[ajuda] envio de email pelo delphi

[mutantesf 2]

eu queria saber se alguem ai tem uma source de envio de email pq jah tentei com varios tuto e sempre da erro!

[ANDREPINTOZINHO 6]

Fazer um aplicativo completo para manipulação de e-mails é um tanto trabalhoso e não é o assunto desta dica. Muitas vezes, porém, queremos apenas dar ao nosso software a capacidade de enviar simples e-mails. Isto é fácil, especialmente porque o Delphi5 nos oferece o componente TNMSMTP (paleta FastNet) que faz praticamente todo o trabalho para nós. Precisamos apenas alterar algumas propriedades e chamar alguns métodos para que a mensagem seja enviada. Vamos para a prática:

 

1. Coloque um componente TNMSMTP no form.

 

2. Coloque um botão e no evento OnClick deste botão escreva:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

 

{ Seu servidor SMTP }

NMSMTP1.Host := 'smtp.servidor.com.br';

 

{ Porta SMTP, **NÃO MUDE ISTO** }

NMSMTP1.Port := 25;

 

{ Nome de login do usuário }

NMSMTP1.UserID := 'MeuLogin';

 

{ Conecta ao servidor }

NMSMTP1.Connect;

 

{ Se ocorrer algum erro durante a conexão com o servidor, avise! }

if not NMSMTP1.Connected then

raise Exception.Create('Erro de conexão');

 

with NMSMTP1.PostMessage do begin

{ Seu e-mail }

FromAddress := '[email protected]';

 

{ Seu nome }

FromName := 'Meu Nome';

 

{ E-mail do destinatário }

ToAddress.Clear;

ToAddress.Add('[email protected]');

 

{ Assunto da mensagem }

Subject := 'Assunto da mensagem';

 

{ Corpo da mensagem }

Body.Clear;

Body.Add('Primeira linha da mensagem');

Body.Add('Segunda linha da mensagem');

Body.Add(''); { Linha em branco }

Body.Add('Última linha da mensagem');

 

{ Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }

 

Attachments.Clear;

 

{ Endereço do anexo }

Attachments.Add('c:\diretorio\arquivo.ext');

 

end;

 

{ Manda o e-mail }

NMSMTP1.SendMail;

{ Disconecta do servidor }

NMSMTP1.Disconnect;

end;

 

 

Pronto! É só fazer as adaptações necessárias e você terá envio de e-mails em sua aplicação.

 

Observações:

Para enviar o mesmo e-mail para vários destinatário de uma só vez basta adicionar os endereços de e-mails de todos os destinatários em NMSMTP1.PostMessage.ToAddress.

 

:D:D:D:D:D

[mutantesf 2]

ta dando erro:

 

userID

postmessage

fromadrees

 

e + alguns sera que é pq to usando o delphi 7?

[ANDREPINTOZINHO 6]

oche num sei nao :(