luisneria
26-04-2007, 23:51:57
Distinguido equipo club delphi, una vez mas nesecito de su ayuda, estoy intentando realizar una pequeña aplicación que envie correos desde delphi, y tengo una rutina utilizando SMTP, pero al momento de la conexión me figura un mensaje como este:
PROYECT EMAIL.EXE RAISED EXCEPTION CLASS EIDSOCKETERROR WITH MESSEGE 'SOCKET ERROR #11044', PROCESS STOPEED. USE STEP OR RUN TO CONTINUE
LA RUTINA EMPLEADA ES ESTA :
procedure TForm1.btenviarClick(Sender: TObject);
var Anexo : Integer;
begin
IdMessage.Recipients.EMailAddresses := edtPara.Text;
IdMessage.Subject := edtAssunto.Text;
IdMessage.Body := mmMensagem.Lines;
//Manipulando os Anexos
for Anexo := 0 to lbxAnexos.Items.Count-1 do
TIdAttachment.Create(idmessage.MessageParts, TFileName(lbxAnexos.Items.Strings[Anexo]));
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
end;
end.
Ajala alguien me puede hechar una mano.
gracias.
////Coloque las etiquetas Delphi
PROYECT EMAIL.EXE RAISED EXCEPTION CLASS EIDSOCKETERROR WITH MESSEGE 'SOCKET ERROR #11044', PROCESS STOPEED. USE STEP OR RUN TO CONTINUE
LA RUTINA EMPLEADA ES ESTA :
procedure TForm1.btenviarClick(Sender: TObject);
var Anexo : Integer;
begin
IdMessage.Recipients.EMailAddresses := edtPara.Text;
IdMessage.Subject := edtAssunto.Text;
IdMessage.Body := mmMensagem.Lines;
//Manipulando os Anexos
for Anexo := 0 to lbxAnexos.Items.Count-1 do
TIdAttachment.Create(idmessage.MessageParts, TFileName(lbxAnexos.Items.Strings[Anexo]));
IdSMTP.Connect;
try
IdSMTP.Send(IdMessage);
finally
IdSMTP.Disconnect;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
end;
end.
Ajala alguien me puede hechar una mano.
gracias.
////Coloque las etiquetas Delphi