Envia mail
 

Hola a todos.
He estado buscando la forma de enviar un mail desde una aplicación delphi en otros hilos de este foro. A partir de eso me he bajado demos de las Indy's y he chequeado el MailClient.

Bien, tengo una aplicación en delphi y un proceso en tiempo real. Lo que necesito es enviar un mail cada vez que se realice ese evento.

Entonces necesito tener un servidor mail en la maquina donde corre mi aplicación? para que funcione el mailclient?

Si alguien sabe como puedo enviar un mail y que necesito y me puede ayudar le estaré muy agradecido. No pido que me den la aplicación hecha pero si que me den la mayor cantidad de ideas que tengan.
Gracias :p

Te envío parte de un código que he hecho hace poco para enviar mails utilizando el componente TNMSMTP; Está comentado, pero si tienes dudas ya dirás...

Código Delphi [-]
//'--------------Comienza envío--------------------'
// Elementos fijos del componente
NMSMTP.Host := EditHost.Text;
NMSMTP.PostMessage.Body.AddStrings(MemoCuerpo.Lines);
NMSMTP.PostMessage.FromAddress := EditFromAdress.Text;
NMSMTP.PostMessage.FromName := EditFromNAme.Text;
NMSMTP.PostMessage.ReplyTo := EditReplyTo.Text;
NMSMTP.PostMessage.Subject := EditSubject.Text;
// Error en la direccion
if (EditDireccion.Text = '') then begin
//... tratar error
end;
 
// Optativos
NMSMTP.PostMessage.ToAddress.Add(EditDireccion.Text);
// Añadir fichero adjunto
NMSMTP.PostMessage.Attachments.Add(EditFichero.Text);
 
// Enviar
NMSMTP.Connect;
// conectado correctamente?
if (NMSMTP.Connected) then begin
// Bloque de proteccion
try
NMSMTP.SendMail;
except
on E:Exception do begin
// 'ERROR: Se ha producido un error en el envío: '
end; // on
end; // try
end // if
else begin
//--MessageDlg('No conectado', mtError, [mbOK], 0)
end;
NMSMTP.Disconnect;

He retirado código que había entre medio para no entorpecer la comprensión de ésta parte, espero no haber quitado nada de más; Si hay algun error ya me lo dirás...

Mejor probar con las indy, que vienen muy bien documentadas y con ejemplos.

Hola Neftali, gracias por contestar.
Disculpa mi ignorancia pero no encontre el NMSMTP. Es simplemente una clase o un componente VCL?

Y en caso de que lo encuentre hay 2 cosas que no tengo claras:

1. Por NMSMTP.Host tengo que entender q es la dirección a quin deseo enviar o el servidor mail al cual quiero enviar,
por lo cual vendría la siguiente interrogante:

2. NMSMTP.Reply es la dirección a quien deseo enviar el mail (me parece mas logico de acuerdo a que lo pusiste como parámetro obligatorio) o simplemente cuando quiero hacer un reply de un mensaje q tengo.

Nuevamente muchas gracias por ayudarme.
Esperaré tu respuesta. :D

Hola, gracias por el consejo.
Pues ya logre resolver el problema. Soy un poco lento y recíén me di cuenta que tengo que utilizar el servidor mail que hay en mi red. Yo pensaba que era un simple programa que mandaba mails, pero buej.... ya aprendí algo mas.

Gracias.

Busca el paquete "NetMasters FastNet Tools", al menos en delphi 6 yo lo tengo (DCLNMF60.BPL)

1. Es el identificador del servidor de correo.
2. Reply es la dirección de respuesta que le saldrá al que tú le envía el mail (normalmente será la tuya).

Hola soy nuevo en el foro y me preguntaba que si ese componente tambien lo tiene delphi 7 gracias

salu2

Si. Lo que pasa es que no vienen instalado por defecto. Lo tens que instalar vos.
Revisa este Hilo que ahi dice como instalarlo.

http://www.clubdelphi.com/foros/show...stalar+fastnet

Sin embargo, tal como se menciona en ese mismo hilo, al momento de querer usarlos aparece un mensaje de error y hasta ahora no he visto que alguien lo haya resuelto.

Yo recomendaría mejor usar las Indy, que son también sencillas de usar, y hay muchas referencias a ellas en los foros.

// Saludos

Oye roman y como utilizo las Indy

me podrias dar un ejemplo con el mismo fin de este post

salu2