ShellExecute(Handle, nil, pchar('mailto:' + Label1.Caption) , nil, nil, SW_SHOWNORMAL);good luck

解决方案 »

  1.   

    later
    ShellExecute(Handle, 'open', pchar('mailto:' + Label1.Caption+'?subject=主题') , nil, nil, SW_SHOWNORMAL);
      

  2.   

    如果你可以确定邮件地址的范围,用if...then...判断一下用哪个地址,然后ShellExecute它不就完了。
      

  3.   

    用:
    ShellExecute(Handle,'open','mailto:[email protected]',nil,nil,SW_SHOW);//[email protected]为邮件地址
    就可以了
      

  4.   

    ePing兄与Kingron兄的回答都是正确的,而ePing兄似乎更快一点,Kingron兄就多了个subject的设定,虽有画蛇添足之嫌但不失为对小弟的一个启发。
    另外两位仁兄似乎就有点答非所问了。大家为提高解答率努力把!