por favor..se alguem puder me ajudar com ENVIO de e-mail com Delphi 2005 e Indy10...não funciona...hehe não sei pq...já vi um monte de livros e manuais e falam sempre a mesma coisa...mas comigoi nunca funcionou....
abaixo está o código de testes q fiz... IdMessage1.ContentType := 'text/html'; IdMessage1.Subject := 'Título'; IdMessage1.Body.Add('1° Linha'); IdMessage1.Body.Add('2° Linha'); IdMessage1.Body.Add('3° Linha'); IdMessage1.From.Address := '[EMAIL PROTECTED]'; IdMessage1.From.Name := 'Alan'; IdMessage1.From.Text := 'texto do from'; IdMessage1.Recipients.Clear; IdMessage1.Recipients.Add.Address := '[EMAIL PROTECTED]'; wErro := ''; // Conecto pop por alguns SMTP só conectam depois do POP3 try IdPOP31.Host := 'pop3.bol.com.br'; IdPOP31.Port := 110; IdPOP31.Username := 'usuario'; IdPOP31.Password := 'senha'; try IdPOP31.Connect; wErro := 'Nenhum Erro com POP3'; except on E:Exception do wErro := 'Erro: '+E.Message; end; finally IdPOP31.Disconnect; end; try IdSMTP1.Host := 'smtp.bol.com.br'; IdSMTP1.Port := 25; // gmail a porta é 465 IdSMTP1.Username := 'usuario'; IdSMTP1.Password := 'senha'; // IdSMTP1.AuthType := atDefault; try IdSMTP1.Connect; wErro := wErro + #13+'Nenhum Erro com SMTP'; except on E:Exception do wErro := wErro + #13+'Erro: '+E.Message; end; if (IdSMTP1.Connected) then IdSMTP1.SendMsg(IdMessage1) finally IdSMTP1.Disconnect; end; ShowMessage(wErro); se alguem puder me ajudar, agradeço.... Aan Veceli -- <<<<< 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: [EMAIL PROTECTED] ou [EMAIL PROTECTED] 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: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html