StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>To get the info related to the Sent Items you can use the <a href="https://developers.google.com/gmail/imap_extensions" rel="nofollow"><code>Gmail imap_extensions</code></a> and the <code>TIdIMAP4</code> component.</p> <p>Try this sample</p> <pre><code>{$APPTYPE CONSOLE} uses Classes, SysUtils, IdIMAP4, IdSSLOpenSSL, IdMessageCollection, IdExplicitTLSClientServerBase; procedure GetSentItems; var LIdIMAP4: TIdIMAP4; LIdSSLIOHandlerSocketOpenSSL : TIdSSLIOHandlerSocketOpenSSL; AMailBoxList: TStrings; AMsgList: TIdMessageCollection; i: integer; begin LIdIMAP4 := TIdIMAP4.Create(nil); try LIdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try LIdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv3; LIdIMAP4.IOHandler := LIdSSLIOHandlerSocketOpenSSL; LIdIMAP4.Host := 'imap.gmail.com'; LIdIMAP4.Port := 993; LIdIMAP4.UseTLS := utUseImplicitTLS; LIdIMAP4.Username := 'user'; LIdIMAP4.Password := 'password'; LIdIMAP4.Connect; try //list the mail boxes AMailBoxList:=TStringList.Create; try if LIdIMAP4.ListSubscribedMailBoxes(AMailBoxList) then Writeln(AMailBoxList.Text); finally AMailBoxList.Free; end; AMsgList:=TIdMessageCollection.Create(TIdMessageItem); try if LIdIMAP4.SelectMailBox('[Gmail]/Enviados') then //This folder name is localizated in english use [Gmail]/Sent Mail if LIdIMAP4.MailBox.TotalMsgs>0 then if LIdIMAP4.UIDRetrieveAllEnvelopes(AMsgList) then for i := 0 to AMsgList.Count-1 do begin //do your work here Writeln(AMsgList[i].Subject); //list the subject of the sent items end; finally AMsgList.Free; end; finally LIdIMAP4.Disconnect; end; finally LIdSSLIOHandlerSocketOpenSSL.Free; end; finally LIdIMAP4.Free; end; end; begin try GetSentItems; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; readln; end. </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload