Enviar Email

[Leonardo Machado Moreira 0]

Fala GaleraAlguém sabe como enviar email com o delphiestou usando os componentes indy que eu encontrei em um tutorial o código do tutorial vai abaixo, mas so da o erroRecipient address rejected: PARA ENVIAR AS MENSAGENS, CLIQUE EM "ENVIAR e RECEBER" E INFORME SEUS DADOS DE ACESSO AO UOL.Alguem sabe que é isso ,,,,,se alguem conhecer outra maneira pra enviar email sou todo ouvidos ou olhos sei lavlw///////////////procedure TForm1.Button1Click(Sender: TObject);beginif odAnexos.Execute thenListBox1.Items.Add(odAnexos.FileName);end;7. No botão enviar digite o seguinte código:procedure TForm1.Button2Click(Sender: TObject);var xAnexo : Integer;beginIdMessage.Recipients.EMailAddresses := edtPara.Text;IdMessage.CCList.EMailAddresses := edtCC.Text;IdMessage.BccList.EMailAddresses := edtCCO.Text;//Trata a Prioridade da mensagemcase cbxPrioridade.ItemIndex of0 : IdMessage.Priority := mpHigh;1 : IdMessage.Priority := mpNormal;2 : IdMessage.Priority := mpLow;end;IdMessage.Subject := edtAssunto.Text;IdMessage.Body := mmMensagem.Lines;if cbxConfirmaLeitura.Checked thenIdMessage.ReceiptRecipient.Text := IdMessage.From.Text; // Auto Resposta//Tratando os arquivos anexosfor xAnexo := 0 to ListBox1.Items.Count-1 doTIdAttachment.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo]));IdSMTP.Connect;tryIdSMTP.Send(IdMessage);finallyIdSMTP.Disconnect;end;Application.MessageBox('Email enviado com sucesso!', 'Confirmação', MB_ICONINFORMATION + MB_OK);end;///////////////////////////

[marcio.theis 3]

você precisa fazer autenticação e se conectar com o server, procure no fórum a respeito, já foi debatido.