email (10分)

L

ldelphi

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个 DBEdit ,它的 name 为 dbeEmail ,它的内容为一些随着指针变化的 email 地址。我有一 button,它的 name 为 sbEmailAnybody。我想实现一个功能:当一按 sbEmailAnybody 时,自动调用系统默认的 EMAIL 软件,来发送 EMAIL 给 dbeEmail 中的 email 地址。
 
ShellExecute(Handle,’Open’,Pchar(‘mailto:twos@etang.com?body=’
+Body的内容+’&subject=’+Subject的内容+’cc=’+抄送的地址
+’&bcc=’密送的地址’),nil,nil,SW_SHOWNORMAL)
 
多人接受答案了。
 
顶部