¿como recibo el body cuerpo y adjuntos de un mail IMAP server ??

[JXJ]

hola

duda de como puedo obtener el mensaje de un mail.
el body,.

tengo este codigo para IMAP de GMAIL. ya configure mi cuenta de gmail para que soporte
acceso de aplicaciones externas y como puedo bajar los archivos adjuntos.

Gracias.


unit GmailUnreadMailsU;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdIOHandler, IdIOHandlerSocket,
IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient,
IdIMAP4;

type
TGmailUnreadMailsF = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
EditCorreo: TEdit;
EditPass: TEdit;
BtnConecta: TButton;
Memo1: TMemo;
BtnGetNumlMailsInbox: TButton;
IdIMAP41: TIdIMAP4;
IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
IdMessage1: TIdMessage;
BtnGetUnreadlMails: TButton;
Memo2: TMemo;
EditUUID: TEdit;
BtnGetData: TButton;
Label6: TLabel;
Memo3: TMemo;
Memo4: TMemo;
procedure log(linea:string);
procedure BtnConectaClick(Sender: TObject);
procedure BtnGetNumlMailsInboxClick(Sender: TObject);
procedure BtnGetUnreadlMailsClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
GmailUnreadMailsF: TGmailUnreadMailsF;

implementation

{$R *.dfm}


procedure TGmailUnreadMailsF.log(linea:string);
begin
Memo1.Lines.Add(linea);
end;


procedure TGmailUnreadMailsF.BtnConectaClick(Sender: TObject);
begin
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;
IdIMAP41.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdIMAP41.Host := 'imap.gmail.com';
IdIMAP41.Port := 993;
IdIMAP41.ReadTimeout := 30000;
IdIMAP41.UseTLS := utUseImplicitTLS;
IdIMAP41.Username := EditCorreo.Text;
IdIMAP41.Password := EditPass.Text;
IdIMAP41.Connect;

if IdIMAP41.Connected then
begin
Label3.Caption := 'Si Conectado';
end
else
begin
Label3.Caption := 'No Conectado';
end;


end;

procedure TGmailUnreadMailsF.BtnGetNumlMailsInboxClick(Sender: TObject);
var
iTotalMsgsInbox : Integer;
begin

if IdIMAP41.SelectMailBox('INBOX') then
iTotalMsgsInbox := IdIMAP41.MailBox.TotalMsgs;
IdIMAP41.StatusMailBox('INBOX', IdIMAP41.MailBox); // este es necesario sino no actualiza los valores


log('Total de mails en la carpeta de INBOX es : '+ IntToStr(iTotalMsgsInbox) );



end;

procedure TGmailUnreadMailsF.BtnGetUnreadlMailsClick(Sender: TObject);
var
nummsgs:Integer;
n : Integer;
i : Integer;
TheUID: string;
TheFlags: TIdMessageFlagsSet;
begin
log('Total de mails en la carpeta de IdIMAP41.MailBox.UnseenMsgs es : '+ IntToStr(IdIMAP41.MailBox.UnseenMsgs) );
log('Total de mails en la carpeta de IdIMAP41.MailBox.RecentMsgs es : '+ IntToStr(IdIMAP41.MailBox.RecentMsgs) );

nummsgs:=idImap41.MailBox.TotalMsgs;


for i := 0 to nummsgs-1 do
begin
idimap41.GetUID(i+1, TheUID);
idimap41.UIDRetrieveFlags(TheUID, TheFlags);
idimap41.UIDRetrieveHeader(TheUID, IdMessage1);
// StringGrid1.Cells[0, i+1] := IntToStr(i+1);
log(IntToStr( i+1) + ' '+ IntToStr(i+1));
// StringGrid1.Cells[1, i+1] := TheUID;
log(IntToStr( i+1) +' ' + TheUID);
if mfSeen in TheFlags then begin
// StringGrid1.Cells[2, i+1] := 'Yes';
log(IntToStr(i+1 ) + ' ' + 'Yes' );
end else begin
// StringGrid1.Cells[2, i+1] := 'No';
log(IntToStr( i+1) + ' ' + 'No');
end;
// StringGrid1.Cells[3, i+1] := IdMessage1.Subject;
log(IntToStr( i+1) + IdMessage1.Subject);
end;


// idimap41.Retrieve(1, IdMessage1);
idimap41.RetrieveHeader(1, IdMessage1);
// idimap41.RetrieveEnvelope(1, IdMessage1);
Memo3.Lines.Add( IdMessage1.FromList.EMailAddresses);
Memo3.Lines.Add( IdMessage1.Recipients.EMailAddresses);
Memo3.Lines.Add( IdMessage1.Subject);
Memo3.Lines.Add( IdMessage1.CCList.EMailAddresses);
Memo4.Lines.Add( IdMessage1.Body.Text); // el texto no entra en el memo4 no se como


end;

end.

[petercat]

Buenas
Consiguistes extraer el cuerpo y los adjuntos de un correo entrante atraves de gmail??


Un saludo