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
|
|||
|
|||
Problema con indi en delphi 2009
saludos tebgo un procedure con indi para mandar un adjunto que me funciona bien pero el adjunto llega 1000002.dat no con el formato del fichero que mando. este es el procedimiento
procedure TForm1.Correo(Servidor,Cuerpo,Asunto,DeDir,DeNom,AdjuntoDir,DestinoDir,DestinoNom,Usuario,Clave:stri ng); var Mensaje: TIdMessage; Conexion: TIdSMTP; Direcciones: TIdEmailAddressItem ; Adjunto: TIdAttachment; begin with datamodule1 do begin Mensaje := TIdMessage.Create(nil); Conexion := TIdSMTP.Create(nil); Conexion.Host := Servidor; // SMTP server host name Mensaje.Body.Add(Cuerpo); Mensaje.Subject := Asunto ; Mensaje.From.Text := DeDir; Mensaje.From.Name := DeNom; Adjunto := TIdAttachmentFile.Create(Mensaje.MessageParts, AdjuntoDir); Direcciones := Mensaje.Recipients.Add; Direcciones.Address := DestinoDir; // email address of recipient Direcciones.Name := DestinoNom; Conexion.Username := Usuario; // SMTP user name Conexion.Password :=Clave; // SMTP user password Conexion.Connect; Conexion.Send(Mensaje); Conexion.Disconnect; Adjunto.Free; Mensaje.Free; Conexion.Free; end; end; y esta es la llamada Correo('192.168.25.45','Cuerpo del mensaje','Asunto del mensaje','inf.psr@std.com','juan','c:\263.rar','inf.psr@std.com','Pulpo','inf.psr','okkkkk'); funciona correctamente pero llega un adjunto llamado 100002.dat helme please. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
problema con zeos y delphi 2009 | gasparsi | OOP | 6 | 16-04-2009 21:47:19 |
February 2009 Release de Delphi Prism 2009 | rruz | Noticias | 1 | 12-03-2009 21:43:11 |
Problema con variable tipo TIBSQL en Delphi 2009 | azkot | Varios | 4 | 26-11-2008 17:03:03 |
Evento Delphi 2009 y C++ Builder 2009 en Guadalajara y Mexico con David | poliburro | Noticias | 14 | 15-09-2008 01:03:58 |
Delphi 5 enviar emails sin Indi | molina669 | Internet | 1 | 20-10-2006 19:16:26 |
|