Foros Club Delphi - enviar mail desde delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - enviar mail desde delphi (https://www.clubdelphi.com/foros/showthread.php?t=56370)

enviar mail desde delphi

buenas gente aca esta mi primera incursion en el foro.
alguien sabe como se puede enviar un mail desde un programa desarrollado con delphi sin abrir outlook, el correo no contendria mucha informacion solamente nombre del equipo donde se esta ejecutando, grupo de trabajo o dominio.es decir cargaria los datos de configuracion de la cuenta de correo para que se envie el correo siempre a la misma direccion.
programo con delphi 7

desde ya muchas gracias

Hola,

Bienvenido a los foros. Hay que usar el buscador. Verás que encontrarás información sobre este tema porque se ha tratado anteriormente en varias ocasiones además. Debajo, en esta misma página, verás que hay una serie de "temas relacionados". Empieza por ahí si quieres, o busca en los foros, como digo.

Cita:

Empezado por martinchooozzz (Mensaje 286910)

sory!! y gracias

Hola como estas? has encontrado informacion, por que yo no

Hola,

Cita:

Empezado por eveprogram

Hola como estas? has encontrado informacion, por que yo no

Abre el buscador de los foros y busca por "enviar email". Si no encuentras lo que buscas detalla más lo que necesitas.

Wow!!!

Otro Refrito...

¡¡¡¡¡¡enviar E-mail Desde Delphi!!!!!!

Esto Ya Esta Muy Visto En Hilos Anteriores

asi pude enviar correo con mi cuenta de speedy! tube que agregar esto smtp.AuthenticationType:=Atlogin; sino me daba un error de autentificacion despues lo otro andaba x ahi en los foros;

Código:

 

uses

  Idmessage, IdSMTP;

 

 

procedure TForm1.Button1Click(Sender: TObject);

var

   smtp: TIdSMTP;

   mail: TIdMessage;

 begin

   smtp := TIdSMTP.Create(Self);

   smtp.AuthenticationType:=Atlogin;

   mail := TIdMessage.Create(Self);

   with smtp do

   begin

     Port := 25;

     Host := 'mail.speedy.com.ar';

     Username := 'xxxxxxxx@speedy.com.ar';

     Password := '123456';

   end;

   with mail do

   begin

     Recipients.Add;

     Recipients[0].Name := 'martincho';

     Recipients[0].Address := 'xxxxxxxxxx@speedy.com.ar';

     From.Name := 'Ubicacion de mi sistena';

     From.Address := 'xxxxxxxx@speedy.com.ar';

     Subject := 'Ubicacion Sigea';

     Body.Text := 'cuerpo del mensaje';

   end;

 //  TIdAttachment.Create(mail.MessageParts, 'C:\adjunto.txt');

   smtp.Connect(30000);

   try

     try

      smtp.Send(mail);

     except

       on E: Exception do

         ShowMessage(E.Message);

     end;

   finally

     if smtp.Connected then

       smtp.Disconnect;

   end;

   mail.Free;

   smtp.Free;

end;

Es posible poner una imagen jpg en el mail

Hola trabajo con delphi6 y estoy enviando automáticamente cientos de mail.

Mi pregunta es si es posible añadir una imagen a el cuerpo del mensaje.

Utilizo los componentes indy idsmtp y idmessage.

Un saludo