Delphi TIdMessage(IdMessage)の添付をファイルに保存

Delphi Indy TIdMessage(IdMessage)の添付をファイルに保存

特に受信したメールの添付ファイルを保存する場合

// uses IdAttachmentFile
procedure SaveAttachmentFile(AIdMsg: TIdMessage);
var
    I: Integer;
begin
    for I := 0 to AIdMsg.MessageParts.Count - 1 do begin
        if (AIdMsg.MessageParts.Items[I] is TIdAttachmentFile) then begin
            TIdAttachmentFile(AIdMsg.MessageParts.Items[I]).SaveToFile('C:\Temp\' + AIdMsg.MessageParts.Items[I].FileName);
        end;
    end;
end;