邮件问题**

xjc

如何用代码获得平台邮件功能的帐户参数,就是下面那几个参数哈

xjc

怎么没人说啊??

lixy

在邮件库中有代码  可以参考一下
procedure TMailAccountStorageCommand.SetAccount(ADataSet: TDataSet;
  AMailAccount: TMailAccount);
var
  lStream: TStream;
begin
  AMailAccount.AccountGUID := ADataSet.FieldByName('FGUID').AsString;
  AMailAccount.AccountID := ADataSet.FieldByName('FACCOUNTID').AsString;
  AMailAccount.OwnerID := ADataSet.FieldByName('FOWNERGUID').AsString;
  AMailAccount.MailAddress := ADataSet.FieldByName('FMAILADDRESS').AsString;
  lStream := THugeMemoryStream.Create(0);
  try
    TBlobField(ADataSet.FieldByName('FPROPERTY')).SaveToStream(lStream);
    lStream.Position := 0;
    AMailAccount.LoadPropertiesFromStream(lStream);
  finally
    lStream.Free;
  end;
end;