导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2003/12/5 17:50:13
标题:
如何让用户点按钮就自动打开OUTLOOK或者FOXMAIL等软件给指定的地址发邮件?
浏览:1659
加入我的收藏
楼主:
请给代码,感谢!
----------------------------------------------
-
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2003/12/5 17:54:38
1楼:
procedure ShellEMail(Sr:String); begin if sr<>' then shellexecute(application.handle,nil,pchar('mailto:'+sr),nil,nil,SW_SHOWNORMAL) else mymsgbox('是空的','^^',mb_ok); end; ShellEMail('jeamicle@etang.com');
----------------------------------------------
作者:
2003/12/5 18:14:20
2楼:
感谢BIOS大哥,为表感激之情,我回家马上升级一下BIOS :)
----------------------------------------------
-
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2003/12/6 13:53:40
3楼:
一起学习啊! 论坛上的问题 偶都认真记录在案 不管解决 与还没解决 !偶都将继续关注 只是最近要考试了(5门)所以没时间在 研究了 !对不起啊!
----------------------------------------------
作者:
2003/12/9 15:49:51
4楼:
你好,怎么我找不到shellexecute这个函数呢?
----------------------------------------------
-
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2003/12/9 15:58:55
5楼:
uses shellapi;
----------------------------------------------