想调用系统的发邮件KDSendMail方法，请求帮助

栏目：k3wise知识作者：金蝶来源：金蝶云社区发布：2024-09-16浏览：1

KDSendMail这个东西怎么用啊，我弄的对不对麻烦给看下啊。
Dim SendMail As New KDMobileOpen.KDSendMail

Dim dct As KFO.Dictionary
Set dct = New KFO.Dictionary
dct("DefaultTitle") = "asdf"
dct("DefaultContent") = "asdf"
dct("DefaultEmails") = "274916727@qq.com"

cc.SendMail (dct)

上面代码贴错了
Dim SendMail As New KDMobileOpen.KDSendMail
Dim dct As KFO.Dictionary
Set dct = New KFO.Dictionary
dct("DefaultTitle") = "asdf"
dct("DefaultContent") = "asdf"
dct("DefaultEmails") = "274916727@qq.com"

SendMail.KDSendMail dct