Email con delphi??

[Kamikaze]

Eh estado buscando en muchos lugares como puedo enviar un email por delphi sin abrir ningun correo electronico preterminado (outlook) o pag de internet secundaria (lo que quiero es que conectara con un servidor de internet para enviarse); pero todos los codigos que consigo siempre me dan error y no me funcionan.... me preguntaria si alguien tiene ese codigo (comprovado que funciona) y seria tan amable de pasarmelo.... ( estoy quemado de buscar y siempre encontrar lo mismo ).
Y si me lo pudiera "explicar" (por encima) mejor.....

Muchas gracias!!!

_-Little_programmer-_

P.D.:Lo que pretendo hacer es un programa que tu pones dos renglones de caracteres y el programa guarde esa informacion en el disco duro y luego lo envie por internet....

[Neftali [Germán.Estévez]]

En alguna ocasión lo he hecho utilizando el componente TNMSMTP; Un código de ejemplo podría ser éste:

Código Delphi [-]
var
  TSFiles:TStringList;
begin
  // Elementos fijos del componente
  NMSMTP.Host := EditHost.Text;
  _debugLog(EditHost.Text, False);
  NMSMTP.PostMessage.Body.AddStrings(MemoCuerpo.Lines);
  _debugLog(MemoCuerpo.Lines.Text, False);
  NMSMTP.PostMessage.FromAddress := EditFromAdress.Text;
  _debugLog(EditFromAdress.Text, False);
  NMSMTP.PostMessage.FromName := EditFromNAme.Text;
  _debugLog(EditFromNAme.Text, False);
  NMSMTP.PostMessage.ReplyTo := EditReplyTo.Text;
  _debugLog(EditReplyTo.Text, False);
  NMSMTP.PostMessage.Subject := EditSubject.Text;
  _debugLog(EditSubject.Text, False);
  
  // Optativos
  NMSMTP.PostMessage.ToAddress.Add(EditDireccion.Text);
  // Añadir los ficheros
  NMSMTP.PostMessage.Attachments.AddStrings(TSFiles);
  // Enviar
  NMSMTP.Connect;
  if (NMSMTP.Connected) then begin
    try
      NMSMTP.SendMail;
    except
      on E:Exception do begin
        // Tratamiento de excepcion... 
      end;
    end;
  end
  else begin
     //--    MessageDlg('No conectado', mtError, [mbOK], 0)
  end;
  NMSMTP.Disconnect;

[LordBits]

este es utilizando las componente TWinshoeSMTP.

 procedure SendMail;
 var
  sToo  : TStringList;
  sText : TStringList;
  i	 : integer;
 begin
 
   sToo  := TStringList.Create;
   sText := TStringList.Create;
   try
    sToo.Add('[email protected]')
    SMTP.Host   := '10.10.10.11';
    sToo.Append('[email protected]');
    msg.Too	 := sToo;
    msg.Subject := 'JIBM';
    sText.Append('este es desde mi programa sin thread por el momento');
    msg.Text	:= sText;
    msg.From	:= '[email protected]';
    msg.Attachments.AddAttachment('c:\cursocpp.pdf');
    SMTP.Send(msg);
    except
     
   end;
 end;

[roman]

Empezado por LordBits

utilizando las componente TWinshoeSMTP.

Si no recuerdo mal las componentes WinShoes son las ahora conocidas como Indy. En los foros hay varios ejemplos de envio de correo con Indy, por ejemplo, éste:

http://www.clubdelphi.com/foros/show...ghlight=idsmtp

// Saludos

[Kamikaze]

Empezado por Neftali

En alguna ocasión lo he hecho utilizando el componente TNMSMTP; Un código de ejemplo podría ser éste:

Muchas gracias por tu codigo Neftali pero que uses usas? por que ami no me reconoce el NMSMTP....

me pone: [Error] Unit1.pas(37): Undeclared identifier: 'NMSMTP' en la linea
NMSMTP.Host := EditHost.Text;.......

Bueno, de todas formas gracias por todo.

_-Little_programmer-_

[Neftali [Germán.Estévez]]

Empezado por Kamikaze

...pero que uses usas? por que ami no me reconoce el NMSMTP...

Yo utilizao Delphi 6.
Es un componente de la paleta FastNet, que corresponde al BPL dclnmf60.bpl que suele estar enel directorio BIN de Delphi;
Una vez que colocas ese componente en el uses debería aparecer la unit NMsmtp que es donde se encuentra.

Busca en la ayuda de Delphi por el componente: TNMSMTP

[Kamikaze]

Empezado por Neftali

Yo utilizao Delphi 6.
Es un componente de la paleta FastNet, que corresponde al BPL dclnmf60.bpl que suele estar enel directorio BIN de Delphi;
Una vez que colocas ese componente en el uses debería aparecer la unit NMsmtp que es donde se encuentra.

Busca en la ayuda de Delphi por el componente: TNMSMTP

O soy yo o en el delphi 7 no esta ni la paleta fastnet ni el archivo dclnmf60.bpl y ni siquiera aparece nada en help con la palabra TNMSMTP

¿Alguien me puede aclararme que es lo que tengo? si delphi o un fake malisimo del delphi.

[roman]

Empezado por Kamikaze

O soy yo o en el delphi 7 no esta ni la paleta fastnet ni el archivo dclnmf60.bpl

No eres tú. En Delphi 7 las componentes FastNet no se instalan por default. Mira este hilo donde te aclaran qué pasa:

http://www.clubdelphi.com/foros/show...hlight=FastNet

// Saludos