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

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

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

view plainprint?

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

// 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;