如何单击StaticText就启动Outlook Express
编号：QA002291
建立日期: 1999年12月20日 最后修改日期：1999年12月22日
所属类别：
彭定友:
如何单击StaticText(实为一Email地址)就启动Outlook Express，而且将Email地址传递过去?
回答:
fjq的意见：
Click 事件
Run("C:\Program Files\Microsoft Office\Office\Outlook.exe",Normal!) (RUN()函数只能打开可执行文件,Normal!为Outlook窗口大小)
MailSession mSes
MailMessage mMsg
MailReturnCode mReturn
Integer Nbr
mSes = Create MailSession
//用户注册
mReturn = mSes.MailLogon('用户名','登陆口令',MailNewSession!)
IF mReturn <> MailReturnSuccess! THEN...Return
//弹出邮件用户列表
mReturn = mSes.MailAddress(mMsg)
IF mReturn <> MailReturnSuccess! THEN ... Return
mSes.MailLogoff()
Destroy mSes
以上程序代码可以打开Outlook.exe并且同时打开邮件地址簿,至于将StaticText 或单行编辑框的值直接附给Outlook的收件框还未尝试过。另外,以上代码执行若有问题请及时与我联系。
luoxie的意见：
调用API函数ShellExecute是否更好，不过我没有在PB中试过。
此问题由fjq等回答。
| |
|
|
| |
|
|
