FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
tengo un problema con ServidorSMTP.Connect(10000);
me muetra un error dice ke no hacepta tantos enteros este es el codigo ke utilizo haber si alguien me puede ayudar estoy utilizando delphi 6
procedure TForm1.Button1Click(Sender: TObject); var ServidorSMTP:TIdSMTP; var Mailmessage:TIdMessage; begin ServidorSMTP:=TIdSMTP.Create(Self); Mailmessage:=TIdMessage.Create(Self); with Mailmessage do begin Subject:='Prueba?'; Body.Text:='hola soy DELPHI'; from.Address:='correo@gmail.com'; Recipients.EMailAddresses:='correo@gmail.com'; end; try ServidorSMTP.Host:='smtp.gmail.com'; ServidorSMTP.Port:=587; ServidorSMTP.AuthenticationType:=atLogin; ServidorSMTP.UserId:=correo@gmail.com'; ServidorSMTP.Password:='pasword del correo'; ServidorSMTP.Connect(10000); try ServidorSMTP.Send(Mailmessage); except on E: Exception do ShowMessage('Falla al enviar:'+E.Message); end; finally ServidorSMTP.Disconnect; ServidorSMTP.Free; Mailmessage.Free; end; close; end; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
fastreport aplicar format a cantidad de 10000 a 10000.00 | JXJ | Impresión | 1 | 20-10-2010 07:30:47 |
Houston tengo un problema .... | Jesús Pena | Varios | 4 | 01-02-2008 23:45:34 |
Tengo un Problema con el DecimalSeparator | andiget | Varios | 2 | 20-06-2007 20:21:36 |
Tengo un problema con la libreria | ElDioni | Varios | 0 | 15-07-2005 13:27:04 |
tengo un problema con el comando VAL | perudelphi | OOP | 8 | 08-12-2004 03:31:30 |
|