| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
RRAAFFAA
Colaborador
Registrado: Sábado, 13 de Agosto de 2005
Mensagens: 1073
|
 Enviada: Qua Nov 21, 2007 10:23 am Assunto: Email com Indy no Delphi 2005.. affff |
 |
|
Olá amigos ... to com umm problema pra enviar email com Indy no D2005
eis meu código
| Código: | procedure TfmPrincipal.EnviaEmail;
begin
if not ValidaEmail(PChar(Trim(edEmail.Text))) then
begin
Application.MessageBox('Email inválido!', 'Erro', MB_OK or MB_ICONERROR);
Abort;
end;
ConfigStatus('Enviando email...', 0);
EmailCorpo.ContentType := 'text/html';
EmailCorpo.From.Name := 'EuroSoft Informática';
EmailCorpo.From.Address := 'contato@anuariodigital.com.br';
EmailCorpo.Recipients.EMailAddresses := Trim(edEmail.Text);
EmailCorpo.Priority := mpHighest;
EmailCorpo.Subject := Trim(edAssunto.Text);
EmailCorpo.Body.LoadFromFile('C:\teste.html');
SMTP.Host := 'smtp.anuariodigital.com.br';
SMTP.AuthType := atDefault;
SMTP.Port := 25;
SMTP.Username := 'contato@anuariodigital.com.br';
SMTP.Password := 'senhasenha';
SMTP.Connect;
SMTP.Authenticate;
try
try
SMTP.Send(EmailCorpo)
except
on e: Exception do
begin
raise Exception.Create('Erro ao enviar Email.'#13+
'Erro: ' + e.Message);
ConfigStatus('Erro ao enviar email!', 1);
end;
end;
finally
SMTP.Disconnect;
ConfigStatus('Email enviado com sucesso!', 2);
ShowMessage('Email enviado com sucesso!');
end;
end; |
| Código: | function TfmPrincipal.ValidaEmail(const EMail: PChar): Boolean;
var
s: String;
aPos: Integer;
begin
aPos := Pos('@', Email);
if (aPos > 1) then
begin
s := Copy(EMail, aPos + 1, Length(Email));
if (Pos('.', s) > 1) and (Pos('.', s) < Length(s)) then
Result := True
else
Result := False;
end
else
Result := False;
end; |
mas não tem geito...
da problema na authenticação... diz que authenticação está incorreta e pronto... não consigo resolver...
alguem ja viu isso no Delphi 2005??
desde já obrigado
Rafael |
|
| Voltar ao Topo |
|
 |
DonOctavioDelFlores
Colaborador
Registrado: Quarta-Feira, 12 de Setembro de 2007
Mensagens: 2630
Localização: Pra lá de Bagda
|
| Enviada: Qua Nov 21, 2007 10:31 am Assunto: |
|
|
qual versao do indy que é?
_________________
“The problem with the world is that everyone is a few drinks behind.” Humphrey Bogart |
|
| Voltar ao Topo |
|
|
RRAAFFAA
Colaborador
Registrado: Sábado, 13 de Agosto de 2005
Mensagens: 1073
|
| Enviada: Qua Nov 21, 2007 10:55 am Assunto: |
|
|
| É a versão 10 da Indy |
|
| Voltar ao Topo |
|
|
DonOctavioDelFlores
Colaborador
Registrado: Quarta-Feira, 12 de Setembro de 2007
Mensagens: 2630
Localização: Pra lá de Bagda
|
|
| Voltar ao Topo |
|
|
RRAAFFAA
Colaborador
Registrado: Sábado, 13 de Agosto de 2005
Mensagens: 1073
|
| Enviada: Qua Nov 21, 2007 1:41 pm Assunto: |
|
|
ok amigo .. valeu pela ajuda...
mas não consegui resolver...
obrigado.. e aguardo |
|
| Voltar ao Topo |
|
|
Marc-br
Aprendiz
Registrado: Terça-Feira, 3 de Julho de 2007
Mensagens: 141
Localização: Franca-SP
|
| Enviada: Qua Nov 21, 2007 2:08 pm Assunto: |
|
|
| RRAAFFAA escreveu: | ok amigo .. valeu pela ajuda...
mas não consegui resolver...
obrigado.. e aguardo |
SMTP.AuthType := atLogin; ? |
|
| Voltar ao Topo |
|
|
RRAAFFAA
Colaborador
Registrado: Sábado, 13 de Agosto de 2005
Mensagens: 1073
|
| Enviada: Qua Nov 21, 2007 4:29 pm Assunto: |
|
|
amigo ... no Indy 10 isso não existe...
só existem as opções atDefault, atNone, atSASL...
apenas essas...
o problema é que ... o servidor SMTP que eu estou tentando utilizar tem segurança até na alma....
e até agora eu não achei nada que me ajudasse...
pra voces terem uma ideia ... nem o exemplo do proprio site da NEVRONA não funfou.... deu o mesmo erro que eu estou tendo
authentication failed
aguardo e obrigado |
|
| Voltar ao Topo |
|
|
DonOctavioDelFlores
Colaborador
Registrado: Quarta-Feira, 12 de Setembro de 2007
Mensagens: 2630
Localização: Pra lá de Bagda
|
| Enviada: Qua Nov 21, 2007 4:41 pm Assunto: |
|
|
mas ele fala no link que eu passei que vc tem que adicionar um componente pra fazer esse trabalho... e linkar o componente no smtp...
_________________
“The problem with the world is that everyone is a few drinks behind.” Humphrey Bogart |
|
| Voltar ao Topo |
|
|
Marc-br
Aprendiz
Registrado: Terça-Feira, 3 de Julho de 2007
Mensagens: 141
Localização: Franca-SP
|
| Enviada: Qua Nov 21, 2007 4:45 pm Assunto: |
|
|
| RRAAFFAA escreveu: | amigo ... no Indy 10 isso não existe...
só existem as opções atDefault, atNone, atSASL...
apenas essas...
o problema é que ... o servidor SMTP que eu estou tentando utilizar tem segurança até na alma....
e até agora eu não achei nada que me ajudasse...
pra voces terem uma ideia ... nem o exemplo do proprio site da NEVRONA não funfou.... deu o mesmo erro que eu estou tendo
authentication failed
aguardo e obrigado |
malz,
eu uso delphi 7
Eu tinha um programa de email antigo, feito em 2004, usando NMSMTP(paleta FASTNET) e nos funcionarios e os nossos clientes usavam esse programa configurado pra um "smtp" que nao exigia autentificação...
Agora mudamos de provedor de hospedagem de site, e o smtp mudou tambem, agora precisa de fazer autentificação... e o NMSMTP nao da suporte pra autentificação afff
tive q refazer o programa todo usando INDY SMTP e eu tive esses problemas de autentificação ate descobrir q era o "AuthentificationType"
Eu tb to pra pegar o Delphi mais novo e pelo visto vou ter problemas
desculpa entao nao poder ajudar
alguns servidores SMTP para logar, vc informa apenas o "login" no "login"...
outros servidores, vc tem q informar o EMAIL no "login"
no meu caso por exemplo, meu email é marcelo@incca.com.br
Meu login pra autentificação no smtp é marcelo@incca.com.br
tenta ve se eh isso |
|
| Voltar ao Topo |
|
|
RRAAFFAA
Colaborador
Registrado: Sábado, 13 de Agosto de 2005
Mensagens: 1073
|
| Enviada: Qua Nov 21, 2007 4:57 pm Assunto: |
|
|
valeu ...vou verificar...
obrigado |
|
| Voltar ao Topo |
|
|
Marc-br
Aprendiz
Registrado: Terça-Feira, 3 de Julho de 2007
Mensagens: 141
Localização: Franca-SP
|
| Enviada: Qua Nov 21, 2007 5:19 pm Assunto: |
|
|
| RRAAFFAA escreveu: | valeu ...vou verificar...
obrigado |
de qualquer modo, vc tem q ter certeza absoluta q vc esta informando "login/senha" corretos pra dar mais firmeza nos seus testes
Pega seu SMTP / login / senha, e teste em algum programa tipo OUTLOOK ou o Mozilla Thunderbird ate funcionar...Se enviar OK, entao vc ja tem certeza q os dados estao corretos e ja te ajuda a vc tentar descobrir o erro |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
