FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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!!! |
#2
|
|||
|
|||
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. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
herramientas para el código fuente | Lepe | Varios | 4 | 17-11-2004 17:16:50 |
Script Para Enviar Correo Electronico | mel_618 | PHP | 2 | 11-10-2004 10:07:36 |
Ayuda con Delphi 4 para enviar correo | Nasio | Internet | 6 | 19-05-2004 08:00:20 |
Fuente True Type para código de barras en formato EAN 13 | Aprendiendo | Varios | 5 | 09-01-2004 18:10:59 |
|