O Mito E-mail

[Fernando_Ramos]

pessoal,

queria saber se alguém poderia me ensinar como enviar um e-mail simples com o delphi. já usei milhares de códigos que encontrei na internet e nenhum funciona..

tenho dos pops e smtps para testar...o do bol e o do servidor de hospedagem , onde hospedo minha pagina.

desde já agradeço a ajuda de todos!

[Graymalkin]

Com esse aqui você faz isso: http://www.graymalkin.globalhosts.com.br/pysendmail.asp

Ainda não inclui o exemplo de Delphi na distribuição, mas o mesmo seria:

Incluir "ComObj" na cláusula Uses.

Declarar a seguinte variável:

var V : Variant;

Usar o seguinte código:

  V := CreateOleObject('Py.SendMail');
  V.SMTPServer := 'smtp.servidor.com.br';
  V.To := 'para@provedor.com.br';
  V.From := 'de@provedor.com.br';
  V.Subject := 'Assunto';
  V.Body := 'um teste';
  V.Send;

Vale lembrar que o BOL só permite que você envie mensagens (pelo SMTP) se você tiver feito pelo menos uma conexão com o servidor de recepção (POP). Ou seja, você só envia depois de tentar receber. Que eu saiba esse é o único que tem esse detalhe. Já testei meu componente com cerca de três ou quatro outros servidores e deu certo.

Abraços,

Graymalkin

[Fernando_Ramos]

usei como ensinado, coloquei os arquivos na mesma pasta da aplicação , mantenado a estrutura. e foi apresentado um erro de "sequencia de classe invalida"

[Graymalkin]

Você registrou a DLL com o regsvr32?

Abraços,

Graymalkin