【结贴】[请求]代码发邮件

刺青 · 发表于 2009-12-10 17:53:11

好的。
另外，我想调用平台中设置的帐号的信息。邮件帐号表里面的“帐号属性”这个字段数据类型是二进制流，怎么调用比较方便？

zfang · 发表于 2009-12-11 09:34:34

邮件库中不是有账户属性那个窗体么？你看看它的。

刺青 · 发表于 2009-12-11 11:39:48

我参考帐号属性里的procedure TACCOUNTPROPERTYFORM.Init事件写的代码：
procedure TYJ.Button4Click(Sender: TObject);
var
FAccount: TMailAccount;
begin
dialogs.ShowMessage(FAccount.POPHost);
end;
想取得系统帐号中的信息，但是像上面那样子写，感觉没头没尾的，实在是看不懂系统里的代码。怎么也找不到怎么连数据库的。然后又是怎么取数据的。

zfang · 发表于 2009-12-11 11:48:12

直接通过对象的方式访问就行了。
具体你可以看看邮件库中相关的代码（TMailAccount这个类）。
你自己要去数据库取此字段，你也不知道他是怎么存储的。还更麻烦些。

刺青 · 发表于 2009-12-11 11:57:05

可否给个小例子？就直接取帐号里的一个字段的信息就可以了。

zfang · 发表于 2009-12-11 12:51:54

直接通过这个对象就可以取到呀
FAccount
业务模型\协同系统\个人事务\邮件库\帐户属性中的代码
procedure TACCOUNTPROPERTYFORM.Init;
begin
  ckbPopSSL.Checked := FAccount.POPUseSSL;
  ckbSMTPSSL.Checked :=  FAccount.SMTPUseSSL;
  edtPOPHost.Text := FAccount.POPHost;
  edtPOPPort.Text := SysUtils.IntToStr(FAccount.POPPort);
  edtSMTPHost.Text := FAccount.SMTPHost;
  edtSMTPPort.Text := SysUtils.IntToStr(FAccount.SMTPPort);
  edtAccount.Text := FAccount.AccountID;
  edtAddress.Text := FAccount.MailAddress;
  edtUserID.Text := FAccount.UserID;
  edtPass.Text := FAccount.Password;
  ckbDelete.Checked := FAccount.DeleteOnRetrieve;
  ckbVerify.Checked := FAccount.Verify;
  ckbDifferPOP.Checked := FAccount.DifferPOP;
  edtVerifyUserID.Text := FAccount.VerifyAccount;
  edtVerifyPass.Text := FAccount.VerifyPassword;
end;

刺青 · 发表于 2009-12-11 15:24:43

var
  lAccount: TMailAccount;
begin
  lAccount := TMailAccount.Create;
  dialogs.ShowMessage(lAccount.POPHost);
end;
我这样写，但是这样是空的。要怎么写才能取到数据库的数据？

zfang · 发表于 2009-12-11 16:02:45

那当然不行了，需要用 TMailSystem，具体你可以看看邮件库中的这几个类
TMailSystem
TMailAccounts
TMailAccount

刺青 · 发表于 2009-12-14 11:19:34

OK了，可以结帖了

		自动登录	找回密码
密码			立即注册