uviewmail.dfm

关于利用DELPHI来进行企业级方案解决的著作的附书源码

object ViewMailModule: TViewMailModule
  OldCreateOrder = False
  OnDeactivate = WebPageModuleDeactivate
  PageProducer = PageProducer
  Left = 572
  Top = 161
  Height = 104
  Width = 383
  object PageProducer: TPageProducer
    ScriptEngine = 'JScript'
    Left = 48
    Top = 8
  end
  object popEmail: TIdPOP3
    Host = 'sina.com'
    Left = 288
    Top = 8
  end
  object EmailAdapter: TAdapter
    OnIterateRecords = EmailAdapterIterateRecords
    Left = 128
    Top = 8
    object TAdapterActions
      object GetEmail: TAdapterAction
        OnExecute = GetEmailExecute
        OnGetParams = GetEmailGetParams
      end
    end
    object TAdapterFields
      object MessageId: TAdapterField
        OnGetValue = MessageIdGetValue
      end
      object MessageSubject: TAdapterField
        OnGetValue = MessageSubjectGetValue
      end
      object MessageFromName: TAdapterField
        OnGetValue = MessageFromNameGetValue
      end
      object MessageDate: TAdapterField
        OnGetValue = MessageDateGetValue
      end
      object MessageFromEmail: TAdapterField
        OnGetValue = MessageFromEmailGetValue
      end
      object MessageSize: TAdapterField
        OnGetValue = MessageSizeGetValue
      end
      object MessageCount: TAdapterField
        OnGetValue = MessageCountGetValue
      end
    end
  end
  object msgEmail: TIdMessage
    BccList = <>
    CharSet = 'GB2312'
    CCList = <>
    NoDecode = True
    Recipients = <>
    ReplyTo = <>
    Left = 208
    Top = 8
  end
end