Fomulario de envior de email

[Mateuus 0]

Oi gente Esta dando Alguma coisa errada No meu Fomulario

 

 

O codigo nao da nenhum erro mais nao envia a messagem

 

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
 IdTCPClient, IdMessageClient, IdSMTP, StdCtrls;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Edit2: TEdit;
   Edit3: TEdit;
   Button1: TButton;
   IdSMTP1: TIdSMTP;
   IdMessage1: TIdMessage;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

IdSMTP1.Host := 'smtp.mail.yahoo.com.br';
IdSMTP1.Username := 'valuercheating';
IdSMTP1.Password := 'mateus27';

IdMessage1.Subject := 'Titulo do e-mail';
IdMessage1.Body.Add(Edit1.text);
IdMessage1.Body.Add(Edit2.text);
IdMessage1.Body.Add(Edit3.text);

try
IdSMTP1.Send(idMessage1);
except
messagedlg('Erro ao enviar e-mail, verifique sua conexão com a internet.',mtInformation,[mbOk],0);
end;
  end;

end.

 

sempre da esse erro Erro ao enviar e-mail, verifique sua conexão com a internet.

[Wiglan 0]

O jovem, nao bota seus dados pessoais não....

 

 

faz seguindo esse exemplo aqui que funciona : http://rguilemond.wordpress.com/2009/03/29/enviar-email-com-anexo-pelo-delphi-2009/

 

outra coisa, olhando por cima do seu codigo da pra ver que falta pelo menos um

 

idsmtp1.connect;

 

*configurar a porta de envio....

[carlos crispim 0]

Mateus eu fiz uma rotina para envio de email com anexo,

esta tudo funcionando correto exceto o enviao do anexo,

exemplo: 1º eu abro a tela de pedidos,2ºquando termino de fazer o pedido ele

envia automaticamente conforme cadastrado o email do cliente e outras configurações

até ai tudo bem, só q se eu não fechar a tela e começar novamente no termino do

pedido ele envia o anterior junto com o novo pedido ou seja 2 pedidos diferentes

vou passar o codigo pra você, se você puder me ajudar ficarei muito grato.

 

obs:Envia os pedidos corretamente, só que ta enviando os 2 caso eu não feche e abre novamente a tela

 

Var

xAnexo : Integer;

EMP_HOST,EMP_SENHA,EMP_EMAIL:STRING;

begin

// CONFIGURARÇÕES DO IDSMTP

WITH DM.QEMPRESA DO

BEGIN

CLOSE;

SQL.Clear;

SQL.ADD('SELECT * FROM EMPRESA');

SQL.ADD('WHERE REG=:P0');

PARAMS[0].Value:=1;

OPEN;

END;

EMP_HOST:=DM.QEMPRESAHOST.Value;

EMP_SENHA:=DM.QEMPRESASENHA.Value;

EMP_EMAIL:=DM.QEMPRESANOMEFANTASIA_2.Value;

IdSMTP.Host:=EMP_HOST;

IdSMTP.Password:=EMP_SENHA;

IdSMTP.Username:=EMP_EMAIL;

 

// CONFIGURAÇÕES DO IDMESSAGE

 

IdMessage.Recipients.EMailAddresses :=label23.Caption;

IdMessage.CCList.EMailAddresses := label26.Caption;

IdMessage.BccList.EMailAddresses := DBLookupComboBox1.KeyValue;

IdMessage.Priority := mpLow;

IdMessage.Subject := 'ENVIO DE PEDIDO';

IdMessage.Sender.Text := 'SEGUE EM ANEXO O PEDIDO';

IdSMTP.Connect;

IdSMTP.Authenticate;

if FileExists(ultimopedido) then

begin

TIdAttachment.create(idmessage.MessageParts, TFileName(ULTIMOPEDIDO));

end;

Try

IdSMTP.Send(IdMessage);

Finally

IdSMTP.Disconnect;

End;

IdSMTP.Disconnect;

End;