Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-04-2006
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 21
JXJ Va por buen camino
Un codigo fuente para Enviar correo por SMTP

Un preludio, tengo delphi 7, con las indy 9 que trae delphi.
sin actualizaciones ni parches a delphi7

He descargado los demos de indy,
por qeu quiero poder enviar un mail, por correo
electronico, mediante el uso del smtp de smtp.mail.yahoo.com.mx
ya verifique el usuario y la contraseña ambos,
los escribo bien.

pero siempre que lo intento enviar, me dice que
necesito autentificarme, asi qeu no envia nada
en el demo, le cambio la opcion
de conexion a simple autentification, y se envia el correo
pero nunca llega.

¿Alguien de favor me puede facilitar un codigo fuente
con su compilado y los archivos dfm, res.
no solo copiado y pegado, en este hilo.?

solo quiero enviar un correo electronico a varios,
como funciona normalmente el outlook, sepárando
los destinatarios con una coma
usuario1@dominio.com,usuario2@eldomino.com

con cc, el texto, lo voy a poner del de un archivo html
para poder, enviarlo, personalizado. y que se vea bonito
al ser abierto por su receptor,

Requiero que llega a destinatarios con cuentas de hotmail
y otras que no manejan protocolos estandar, pero que
si reciben el correo entrante por smtp.

Vale gracias,
Responder Con Cita
  #2  
Antiguo 10-04-2006
Avatar de OSKR
OSKR OSKR is offline
Miembro
 
Registrado: nov 2004
Ubicación: San Cristóbal/Táchira/Venezuela
Posts: 389
Poder: 20
OSKR Va por buen camino
Mira este, te puede servir:
http://www.clubdelphi.com/foros/showthread.php?t=30506
__________________
Los Estados Unidos parecen destinados por la Providencia para plagar la América de miserias a nombre de la libertad."
Simón Bolívar
(Carta al Coronel Inglés Patricio Cambell 05/08/1829).
Responder Con Cita
  #3  
Antiguo 11-04-2006
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 21
JXJ Va por buen camino
gracias oskr

pero no me sirve... sigo sin poder enviar un mail. usando indy
con la version demo de una dll, de pago, si puedo enviar emails
el problema es que los que son para hotmail, nunca llegan.
Responder Con Cita
  #4  
Antiguo 11-04-2006
Avatar de OSKR
OSKR OSKR is offline
Miembro
 
Registrado: nov 2004
Ubicación: San Cristóbal/Táchira/Venezuela
Posts: 389
Poder: 20
OSKR Va por buen camino
y ya verificaste si hotmail usa los mismos puertos? porq nada lo obliga a hacerlo y si usa smtp/pop3...q se yo...Segùn Dec a èl le funciona bien e incluso de otros he sabido lo mismo, yo porq no he tenido`aùn la necesidad ni el tiempo de enviar por còdigo .
__________________
Los Estados Unidos parecen destinados por la Providencia para plagar la América de miserias a nombre de la libertad."
Simón Bolívar
(Carta al Coronel Inglés Patricio Cambell 05/08/1829).
Responder Con Cita
  #5  
Antiguo 12-05-2006
martinc5 martinc5 is offline
Miembro
 
Registrado: abr 2006
Posts: 17
Poder: 0
martinc5 Va por buen camino
Para permitir a tu cuenta de conexión el envío de correo electrónico a través de SMTP ajenos al de tu Proveedor de internet, tenés q habilitar alguna opcion de envio de correo SMTP. Fijate en el panel de control de tu servidor de Internet.
Tal vez pueda ser esto, vo ve!!!
Responder Con Cita
  #6  
Antiguo 15-05-2006
Metalmind Metalmind is offline
Registrado
 
Registrado: abr 2006
Posts: 6
Poder: 0
Metalmind Va por buen camino
Enviar email con delphi 7 i indy 9

Primero debes activar la opciopn de tu cuenta yahoo, con la qual t indica un numero de puerto qu noi es el 25 convencional por lo menos en yahoo.es es el 587, luego con un cliente smpt i un mail message puedes usar el siguiente codigo:
procedure TForm2.Button3Click(Sender: TObject);
var
ServidorSMTP: TIdSMTP;
begin

// Creem els objectes necessaris
ServidorSmtp := TIdSMTP.Create(Self);
Mailmessage := TIdMessage.Create(Self);
// Preparem el correu bàsicament
with Mailmessage do
begin
Subject := Assumpte.text;
Body.Text := 'aixo es una prova cridada desde una arxiu ini';


From.Address:= Origen.text;

Recipients.EMailAddresses := Desti.text+ ',' + CC.text+ ','+CCO.text;


end;

try
// Preparem i conectem amb el Smtp.
servidorSmtp.Host := Hostm.text;
ServidorSMTP.Port:= Strtoint(Nport.text);
ServidorSMTP.AuthenticationType:= atLogin;
ServidorSMTP.Username:= User.text;
servidorSMTP.Password:= Pass.text;
servidorSmtp.Connect(10000);


try
// Intentem enviar el correu.
servidorSmtp.Send(MailMessage);
// Sort, s'ha enviat

except
on E: Exception do // no ha funcionat
ShowMessage('Fallada al enviar: ' + E.Message);
end;

finally
// Finalment...
servidorSmtp.Disconnect;
servidorSmtp.Free;
Mailmessage.Free;
end;
close;
end;
Donde yo uso diversos edits, para que desde otra pantalla de configuracion, yo pueda recuperar informacion grabada en un archivo.ini, i pueda hacer funcionar mi aplicacion automaticamente, i la pueda hacer configurable para el usuario.
Prueba-lo y ya diras el que.
PD:Con yahoo.es despues de activar el servicio smtp me funciona.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
herramientas para el código fuente Lepe Varios 4 17-11-2004 18:16:50
Script Para Enviar Correo Electronico mel_618 PHP 2 11-10-2004 11:07:36
Ayuda con Delphi 4 para enviar correo Nasio Internet 6 19-05-2004 09:00:20
Fuente True Type para código de barras en formato EAN 13 Aprendiendo Varios 5 09-01-2004 19:10:59


La franja horaria es GMT +2. Ahora son las 07:47:42.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi