超链接的简单问题(50分)

T

tianzhegs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #1

我想在edit中写邮箱名,然后再使用api函数
ShellExecute(handle,nil,'mailto:edit1.text',nil, nil, SW_SHOWNORMAL);
把outlook调出来,发邮件,但我不知道如何使mailto后面的邮箱名是edit中输入的文字,
请各位帮忙,谢谢了

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #2

刚开始学吧[]

var str: string;

str := 'mailto:'+edit1.text;
ShellExecute(handle,nil,pchar(str),nil, nil, SW_SHOWNORMAL);

 

春

春意

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #3

再在uses中请加入：shellapi就OK了！

 

S

sailorhdx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #4

ShellExecute(Handle, 'Open', 'mailto:BugReport@itfirst.net?subject=错误报告', nil, nil, sw_normal);

这样写就可以了！

别忘了 引用这个单元 ShellApi ！

 

S

sailorhdx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #5

ShellExecute(Handle, 'Open', 'mailto:BugReport@itfirst.net?subject=错误报告', nil, nil, sw_normal);

BugReport@itfirst.net这就可以是从Edit中获得的邮件地址！

这样写就可以了！

别忘了 引用这个单元 ShellApi ！

 

T

tianzhegs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #6

多人接受答案了。