Urgente Me Ajude - E-mail

Delphi

28/03/2003

Pessoal, coloquei o meu Prog uma rotina para enviar e-mail, tá funcionando, exceto por um problema,

Se o E-mail de Destino for um Alias do Servidor:

exemplo:

Alias: cristiano@cooperservice.com.br

Caixa Postal: coopersp08@terra.com.br

Não Posso Colocar Cristiano@cooperservice.com.br
tenho que colocar coopersp08@terra.com.br

Se não ele dá o seguinte erro
554 Error: no valid recipients

[b:961dc23d46]O código que estou utilizando é o seguinte:[/b:961dc23d46]

procedure TfrmPrincipal.dxButton5Click(Sender: TObject);
begin
tbConfEmail.Open; // Abre a Tabela
NMSMTP1.Host := tbConfEmailServidor.Value; // Define o Host
NMSMTP1.UserID := tbConfEmailID.Value; // Informa o ID de Login
If Not(NMSMTP1.Connected) then
NMSMTP1.Connect; // Conecta-se ao Host
NMSMTP1.PostMessage.FromAddress := tbConfEmailEmail_Origem.Value;; // E-mail de Origem
NMSMTP1.PostMessage.FromName := tbConfEmailNome_Env.Value;;
NMSMTP1.PostMessage.ToAddress.Text := tbConfEmailEmail.Value; // E-mail de Destino
NMSMTP1.PostMessage.Body.text := tbConfEmailMenss.Value; // Mensagem do Email
NMSMTP1.PostMessage.Attachments.text := tbConfEmailDiretorio.Value + ´\´ + tbConfEmailNome_Arq.Value; // Arquivo em Anexo
NMSMTP1.PostMessage.Subject := tbConfEmailAssunto.Value; // Assunto
NMSMTP1.SendMail; //Envia
Application.MessageBox(´Remessa Enviada com sucesso!´,´Ticket´,MB_OK+MB_ICONEXCLAMATION);
NMSMTP1.Disconnect; // Disconectando do Host
tbConfEmail.Close; // Fecha a Tabela
end;


Cristiano

Cristiano

Curtidas 0
POSTAR