enviar mail desde delphi

[eveprogram]

Empezado por martinchooozzz

sory!! y gracias

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

[dec]

Hola,

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.

[Faust]

Wow!!!

Otro Refrito...

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

Esto Ya Esta Muy Visto En Hilos Anteriores

[martinchooozzz]

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;

 
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 := '[email protected]';
     Password := '123456';
   end;
   with mail do
   begin
     Recipients.Add;
     Recipients[0].Name := 'martincho';
     Recipients[0].Address := '[email protected]';
     From.Name := 'Ubicacion de mi sistena';
     From.Address := '[email protected]';
     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;

[comba]

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