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