S stephenhu Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-17 #1 在我的程序中有两个按钮,我以一个为例说一下我想实现的功能。<br>点击一个按钮,跳出一个窗口要你输入你要发送的邮件的地址,再点此窗口<br>的确定按钮,即把outlook调出来,发送邮件。ie也是一样的。<br>这到底要怎样实现了。请各位帮忙拉。
在我的程序中有两个按钮,我以一个为例说一下我想实现的功能。<br>点击一个按钮,跳出一个窗口要你输入你要发送的邮件的地址,再点此窗口<br>的确定按钮,即把outlook调出来,发送邮件。ie也是一样的。<br>这到底要怎样实现了。请各位帮忙拉。
S stephenhu Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-17 #2 shellexecute(0,nil,'mailto:abc@263.net',nil,nil,SW_SHOW)<br><br>能不能给我解释一下shellexecute里面的那几个参数。<br>我写了一句shellexecute(0,nil,'mailto: edit1.text',nil,nil,sw_show),当outlook<br>调出来以后收件人栏是“edit.text”,而不是我在edit里面输入的收件人的地址,我想<br>这可能是哪个参数设置的问题。mailto是调出outlook,而调出ie是什么了?
shellexecute(0,nil,'mailto:abc@263.net',nil,nil,SW_SHOW)<br><br>能不能给我解释一下shellexecute里面的那几个参数。<br>我写了一句shellexecute(0,nil,'mailto: edit1.text',nil,nil,sw_show),当outlook<br>调出来以后收件人栏是“edit.text”,而不是我在edit里面输入的收件人的地址,我想<br>这可能是哪个参数设置的问题。mailto是调出outlook,而调出ie是什么了?
独 独帅 Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-17 #3 用IE打开一个地址:<br>ShellExecute(Handle, 'open', 'http://www.somesite.com', nil, nil, SW_SHOW);<br><br>用OE打开发送邮件窗口:<br>var<br> mailinfo: String;<br>begin<br> mailinfo := 'mailto:someone@somesite.com?Subject=This is the Subject';<br> ShellExecute(Handle, 'open', PChar(mailinfo), nil, nil, SW_SHOW) ;<br>end;<br>
用IE打开一个地址:<br>ShellExecute(Handle, 'open', 'http://www.somesite.com', nil, nil, SW_SHOW);<br><br>用OE打开发送邮件窗口:<br>var<br> mailinfo: String;<br>begin<br> mailinfo := 'mailto:someone@somesite.com?Subject=This is the Subject';<br> ShellExecute(Handle, 'open', PChar(mailinfo), nil, nil, SW_SHOW) ;<br>end;<br>
S stephenhu Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-17 #4 TO 独帅:<br> 我其实是想把edit1.text赋给someone@somesite.com,这样就更方便点。<br> ie我也是想实现同样的功能啊。<br> 请帮忙拉。
TO 独帅:<br> 我其实是想把edit1.text赋给someone@somesite.com,这样就更方便点。<br> ie我也是想实现同样的功能啊。<br> 请帮忙拉。
独 独帅 Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-22 #5 用IE打开一个地址:<br>var<br> s: String;<br>begin<br> s := edit1.text;<br> ShellExecute(Handle, 'open', PChar(s), nil, nil, SW_SHOW);<br>end;<br><br>用OE打开发送邮件窗口:<br>var<br> mailinfo: String;<br>begin<br> mailinfo := 'mailto:' + edit1.text' + ?Subject=This is the Subject';<br> ShellExecute(Handle, 'open', PChar(mailinfo), nil, nil, SW_SHOW) ;<br>end;<br>
用IE打开一个地址:<br>var<br> s: String;<br>begin<br> s := edit1.text;<br> ShellExecute(Handle, 'open', PChar(s), nil, nil, SW_SHOW);<br>end;<br><br>用OE打开发送邮件窗口:<br>var<br> mailinfo: String;<br>begin<br> mailinfo := 'mailto:' + edit1.text' + ?Subject=This is the Subject';<br> ShellExecute(Handle, 'open', PChar(mailinfo), nil, nil, SW_SHOW) ;<br>end;<br>