如何编程生成一个新邮件并通过OUT LOOK 发送;(46分)

  • 主题发起人 主题发起人 徐丹
  • 开始时间 开始时间

徐丹

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用程序将若干文件作为邮件附件生成一个邮件并发送?
如何提取一个OUTlook邮件,并分析它以得到:主题、发件人、正文、附件等;
只有这些分了,实在不成敬意!

 
1、用Foxmail发送若干文件作为邮件附件生成一个邮件并发送方法:(OUTLOOK没试过,我只用Foxmail,就当支持国产软件事业吧,哈...)
uses shellapi;

...
prog := '路径/foxmail.exe';
pram := '路径/a.txt 路径/b.txt 路径/c.txt';//中间是空格
ExecuteFile(prog, pram, '', SW_SHOW);
...
2、...???...
 
简单,
ShellExecute(Handle, 'open',
'mailto:aaa@bbb' +
'?cc=xxx@yyy' +
'&bcc=zzz@ddd' +
'&subject="Hello%20how%20are%20you%3F"' +
'&body="This%20is%0Da%20two%20line%20message."',
nil, nil, SW_NORMAL);
回车用 %D, %A , 不能用 &D&A, 否则会有一个空行。(来自新闻组)
不知道其他是怎么样的, 我的 the bat 是这样.

这是用缺省的邮件软件,如果你的oe 是缺省的话, 就会成功。
 
supermmx:在body中,到底那些字符需要用%??代替,那些字符不用呢?
 
我也不是特别清楚,估计是回车换行空格,等等。
或许是 #1..#32 之间的。
 
小弟愚笨,能否个范例!
 
能否也把范例给我,用outlook或者Foxmail都行!
chordy@21cn.com
 
呵呵,我是没看清题目,附件不知道怎么弄,
或许是:'&Attachment="filename"' 之类的, 没试过。
 
createoleobject('outlook.application');
 
同意autumn的说法。
以下地址有个完整的例子
http://delphizine.com/features/1999/09/di199909bt_f/di199909bt_f.asp
 
我尝试过,在oe中,如果body的字数多于490个就不行。还是attatchment稳当,但好像没有这样的参数,如果使用foxmail可以用 路径/foxmail.exe 文件名.txt加入附件。oe不行,其命令行参数为msimn.exe /mailurl: %1
其中%1 就是body,cc之类。
 
你可以看一下我的回答,
<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=313251">
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=313251</a>
我很穷的,可不要吝啬啊$_$
 
多人接受答案了。
 
后退
顶部