用Delphi中怎样编写带附件的邮件发送和接收程序(100分)

豆

豆非

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-12

• #1

如

 

F

fo2fo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #2

中国铁道出版社的实作activex组件for asp，其中有一个send mail的组件编写过程
你可以参考参考，应该能解决你的问题

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #3

C:/Program Files/Borland/Delphi6/Demos/Indy/MailClient，看看例子吧。

 

E

epic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #4

用NMSMTP控件,用法如下:
NMSMTP.PostMessage.Attachments.AddStrings(Listbox1.Items);
事先用一个OpenDialog控件把需要发送的附件Listbox1.Items.Add(OpenDialog.filename)
可以有若干个附件.

 

X

xiaoq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #5

epic 的方法是正确的，我试过行的.
也可以用SakSMTP控件来发,用法同样.
用SakPOP控件来收,方法如下:
if SakMsg1.AttachedFiles.Count > 0 then
begin
Sakmsg1.AttachedFiles[J].SaveToFile('...');
...
end;
当然还要用到SakMsg控件啦.
...
...

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #6

还是用Indy中的Idpop3和IdMessage来做简单，delphi6有自带的例子
/Delphi6/Demos/Indy/MailClient
我现在正在做这个东西，效果不错。[]

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #7

接受答案了.