Urgente - Envio de emails usando NMSMTP

Question

S� consigo mandar um email quando o servidor do email para quem estou enviando � o mesmo que eu conectei e n�o consigo saber porque.
Preciso conectar o componente com o servidor terra, mas necessito enviar para qualquer servidor... oq eu fa�oooooooooo????

Deus · Answer

N�o d� pra sabermos o porqu� sem algumas informa��es! :) Coloque o c�digo fonte do envio aqui, e diga se voc� recebe alguma mensagem de erro quando tenta mandar para outro servidor.

Espero resposta. Abra�os, dEUS.

Lylyka · Answer

O C�digo � este:

NMSMTP1.Host := �smtp.terra.com.br�;
NMSMTP1.Port := 25;
Nome := ��;
N := Length(DMSIAM.TPessoaEmail.AsString);
For I := 1 To N Do
Begin
If Copy(DMSIAM.TPessoaEmail.AsString, I, 1) = �@� Then
Break
Else
Nome := Nome + Copy(DMSIAM.TPessoaEmail.AsString, I, 1);
End;

NMSMTP1.UserID := Nome;
NMSMTP1.Connect;

NMSMTP1.PostMessage.ToAddress.Clear;
NMSMTP1.PostMessage.Attachments.Clear;

NMSMTP1.PostMessage.FromAddress := TUsuarioEmail.value;
NMSMTP1.PostMessage.FromName := TUsuarioNome.value;
NMSMTP1.PostMessage.Subject := �Requisi��o de Compras�;
NMSMTP1.PostMessage.ToAddress.Add(DMSIAM.TPessoaEmail.AsString);
NMSMTP1.PostMessage.Attachments.Add(NomeArquivo);
NMSMTP1.PostMessage.Body.Add(�Segue em anexo a Requisi��o�);
NMSMTP1.SendMail;

ShowMessage(�E-mail enviado com sucesso�);
NMSMTP1.disconnect;

Se o email que estou enviando � para o terra, funciona, mas se for para outro servidor, d� erro: �554 Error: No valid recipients�

O que eu estou fazendo de errado?

Deus · Answer

Bem, experimente utilizar uma fun��o para enviar mensagem, para ficar mais f�cil a debuga��o.. com essa aqui:

procedure EnviarMensagem(stHost, stFromAdd, stFromName, stPara, stAssunto, stMsg, stAtt:string);
var i:integer;
begin
 with NMSMTP1 do
 begin
   ClearParams := true;
   Host := stHost;

   if not Connected then
     Connect;

   with PostMessage do
   begin
     FromAddress := stFromAdd;
     FromName := stFromName;

     if not (Trim(stAtt) = ��) then
       Attachments.Add(stAtt); 

     Subject := stAssunto;
     Body.Text := stMsg;

     ToAddress.Clear;
     ToAddress.Add(stPara);
     SendMail;
   end;
 end;
end;

A�, quando voc� quisesse enviar a mensagem, voc� faria:

EnviarMensagem(�smtp.uol.com.br�, 
               TUsuarioEmail.value,
               TUsuarioNome.value,
               DMSIAM.TPessoaEmail.AsString,
               �Requisi��o de Compras�,
               �Segue em anexo a Requisi��o�,
               NomeArquivo);

Se voc� continuar tendo problemas, sugiro que mude o componente para [i:ed674cff49]IdSMTPServer[/i:ed674cff49], da cole��o de componentes [url=http://www.indyproject.org/download/Indy9.html]IndyProject[/url], que � muito bom e � bem mais utilizado - sem falar que � [i:ed674cff49]OpenSource[/i:ed674cff49]. ;) � s� clicar [url=http://www.indyproject.org/download/Indy9.html]Aqui[/url]. ;)

Espero ter ajudado! Abra�os, dEUS.