如何提取Indy TIdMessage對象的所有電子郵件地址？

Question

使用Indy，我如何提取TIdMessage的To,Cc和Bcc字段中的所有電子郵件地址？由於這些字段可以包含多個地址，我必須解析它們，但是我沒有找到任何現成的函數（也許我錯過了它）。

Answer 1

你顯然沒讀過

TIdMessage documentation:

TIdMessage.BccList

TIdMessage.CCList

TIdMessage.Recipients
標識消息的接收者。

property Recipients: TIdEmailAddressList;

說明
收件人是用於存儲TIdEmailAddressItem值標識該消息的收件人TIdEMailAddressList屬性。使用CCList收件人可以收到郵件的副本。使用BCCList讓收件人收到郵件的盲文副本。

所有這些屬性都會給你一個TIdEmailAddressList，你可以收集地址。

這是谷歌搜索Indy TIdMessage中的第二項。

例如：

function GetEmailAddresses(const Email: TIdMessage): TStringList; 
var 
    Item: TIdEmailAddressItem; 
begin 
    Result := TStringList.Create; 
    for Item in Email.Recipients do Result.Add(Item.Address); 
    for Item in Email.CcList do Result.Add(Item.Address); 
    for Item in Email.BccList do Result.Add(Item.Address); 
end; 

注意，印文檔使用with關鍵字很多。
雖然方便，using with is a very bad idea，我建議你不惜一切代價避免它。