Si claro. Disculpenme por no poner algo de codigo. Aca les dejo la funcion que hice que lo que hace es cojer un archivo de texto con la siguiente extructura y devolver un idMessage con los datos ya incluidos.
Aca los datos del fichero que tengo que leer.
Código:
usuario <usuario@domio.com> //De
usuario <usuario@domio.com> //Para
prueba //Asunto
Wed, Jul 22, 2009 at 1:05 AM //Fecha (Aca es donde no consigo convertir a TDateTime)
Esto es un ejemplo de lo que seria el contenido
del correo en el mensaje enviado.
Aca la funcion.
Código Delphi
[-]
procedure TForm1.GetMessageFromTXT(pFileName: string; var pIdMessage: TIdMessage);
var
vStringList: TStringList;
vDateTime: TDateTime;
begin
vStringList := TStringList.Create;
LongDateFormat := 'ddd, mmm d, yyyy "at" hh:mm AM/PM';
ShortDateFormat := 'ddd, mmm d, yyyy "at" hh:mm AM/PM';
try
vStringList.LoadFromFile(pFileName);
pIdMessage.From.Text := vStringList.Strings[0];
pIdMessage.Recipients.Add.Text := vStringList.Strings[1];
pIdMessage.Subject := vStringList.Strings[2];
vDateTime := StrToDateTime(vStringList.Strings[3]);
pIdMessage.Date := vDateTime;
vStringList.Delete(0);
vStringList.Delete(0);
vStringList.Delete(0);
vStringList.Delete(0);
vStringList.Delete(0);
pIdMessage.Body.Text := vStringList.Text;
finally
vStringList.Free;
end;
end;