如何通过程序调出系统内默认的邮件发送程序,并能自动添加指定的附件及主题等内容。(50分)

  • 主题发起人 主题发起人 holly888
  • 开始时间 开始时间
还不如自己用一个SMTP控件来发。
 
uses ...shellapi...;
...
ShellExecute (0,nil,'mailto:DelphiBird@163.com?Subject=标题&body=正文&Attribute=附件',nil,nil,SW_NORMAL);
 
BigBing谢谢!Attribute=附件部分没有作用
增加一个文本文件到附件中如何处理?
 
holly888:
真是不好意思。刚刚在网上看了一些文章,说ShellExecute发邮件是不能加附件的。可是我
觉得好像在什么地方看过,后来我查了MSDN,上面&后面只有四个参数:Subject、Body、
BC(抄送者)、BBC(暗送),并没有Attribute,气死我也!然后我研究了一下Foxmail,试图通过
程序后加参数来发附件,结果让我很失望,我什么也没找到!OutLook不知道怎么样。不过
如果你真要发附件,还是通过第三方控件来实现吧!还有一个地方你要研究一下,就是右键
单击某一个文件后可以发送到邮件接收者,用记事本打开那个快捷方式看看,说不定有什
么好东东!我的那些快捷方式里面居然空空如也!!!太不可思议了。不知道你的如何。如果
行的话,麻烦通告我!mailto:DelphiBird@163.com
 
Attachment?
Attach?
File?
 
to BigBing

右键发关,是内部调用邮件的message,必须依附MS的通讯薄。只能调用MS的outlook系列
 
接受答案了.
 
后退
顶部