大侠帮忙!关于邮件!300分请笑纳!(300分)

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

徐丹

Unregistered / Unconfirmed
GUEST, unregistred user!
我想写一个程序可以将若干文件作为邮件附件发送到指定地址,
有没相控件及范利?300分请笑纳!
 
sakmail组件很好用的,发给你了
 
delphi自己、各种internet的控件包里都带有smtp的控件
 
elan:
没收到!
 
使用
ShellExecute(Handle, 'open',
'mailto:aaa@bbb' +
'?cc=xxx@yyy' +
'&bcc=zzz@ddd' +
'&subject="Hello%20how%20are%20you"' +
'&body="This%20is%0Aa%20two%20line%20message."',
nil, nil, SW_NORMAL);
可以发送邮件,但如何发送附件呢?
 
如果是程序的话
用控件更方便
SAKMAIL
AHM2000
RC25都可以,而且有范例
 
建议参考SAKEMAIL自己写一个,十分的简单。
 
还是用SAKEMAIL构件吧,有例子,比较方便,也很好用!
至于哪里有,在大富翁里查找SAKEMAIL就可以知道了,
因为前面的答案里已经有了。
 
用外部程序不是好办法,用控件就可以
 
利用outlook发送邮件,with attachement
我就知道这个,看看是否可以选择.


var
OutLookObject : Variant;
MailObject : Variant;
begin
OutLookObject := CreateOleObject('Outlook.Application');
MailObject := OutLookObject.CreateItem(0);
MailObject.Recipients.Add(‘XXX◎XXX.com');
MailObject.Body := 'This is a test...';
MailObject.Subject := 'Hi there...';
MailObject.Attachments.add('c:/temp1/XXX.doc');
MailObject.Attachments.add('c:/temp1/XXX1.doc');

MailObject.Send;
end;
 
ToAddress ,ToCC. ToBCC Attachments都是TStringList对象,xixi..知道了吧!
NMSMTP1->Host=
NMSMTP1->UserID=

NMSMTP1->EncodeType==uuMime;
NMSMTP1->PostMessage->FromAddress=
NMSMTP1->PostMessage->ToAddress
NMSMTP1->PostMessage->Subject=
NMSMTP1->PostMessage->ToCarbonCopy
NMSMTP1->PostMessage->ToBlindCarbonCopy
使用Connect()连接
使用SendMail() 发送
 
用Outlook不好吧,有些人不用它的,比如我就是一个。
如果有时间的话,最好还是仿SakeMail做一个,会提高水平的。
 
感谢各位,我用SAKMAIL 做了一个,有一个新问题,用SAKMAIL发送的邮件用OE接收
并打开后,主题及正文的汉字是乱码,不知何故,另外,8Bit及basec64指的是什么,
是否与此有关系,我没研究源码(也研究不通),请各位大侠告诉我如何解决;
 
我写了一片专门讲解各种乱码算法的《乱码算法大全》
可以到我的竹叶上去下载
http://mogao.126.com
在“大富翁练功厂”也可以下载
 
多人接受答案了。
 
后退
顶部