Delphi发送邮件

来源:互联网 发布:苹果解压缩软件 编辑:程序博客网 时间:2024/05/20 05:58

User SHELLAPI

1.使用外部程序

ShellExecute(Handle, 'open', 'mailto:hzqghost@21cn.com' +
'?cc=two@site' +
'&bcc=three@site' +
'&subject=Multiline%20Example'+
'&body=First line.%0ASecond line.%0AThird line.'+
'&file=''F:Demo1.xls''',