我的程序通过 GMail 向联系人发送电子邮件。通常这很有效,但我们注意到有时我的程序“认为”它发送的电子邮件实际上并没有到达 Gmail,更不用说到达联系人了。我认为我可以在程序中添加一个检查,该检查访问 Gmail“已发送邮件”文件夹以查看每封电子邮件是否确实已发送。
我有一些使用 TIdPOP3 组件的代码,但这会从收件箱中下载标题,而不是从已发送的项目中下载。我的问题是,如何访问已发送邮件文件夹中的标题?
以下是我正在使用的代码。它只是测试代码,所以没有任何 try/finally 块等。
with pop do
begin
host:= 'pop.gmail.com';
username:= 'someone@gmail.com';
password:= .....;
Port:= 995;
Connect;
if connected then
with i:= checkmessages downto 1 do
begin
msg.clear; // msg is of type TIdMessage
if retrieve (i, msg)
then listbox1.items.add (msg.subject)
end;
disconnect
end;