bpmaildemo.txt

有一个发送邮件的系统 大家看看怎么样啊?有想做的可以参照一下啊

This little component sends Email.

It is freeware. More ThankyouWare than anything else. I need a thanks to 
continue writing/improving these little goodies. So mail me at [e-mail]
I'll then always mail you if there are any improvements or updates.

Notice:
This dll is provided "as is" so this takes away all or any responsibility from
me if anything should happen to any of your stuff.

This dll may NOT be sold it is FreeWare.


Some Changes:
You now can clear the AddTo, AddCc etc by isueing

Mail.Clear

Before sending another message in the same script.
It also will not bomb out from under you. That has been fixed too.

Register:
Copy the dll and OCX file to your system directory then use regsvr32 to register them both.

Sample:

<%

Set Mail=Server.CreateObject("BPMail.Mail")

'This line must be there else it will not work ;-)
Mail.Free = "This component is freeware"

'SMTP Server
Mail.SMTPServer = "smtp.whatever"

'Priority 1 to 5 (3 being default)
Mail.Priority = 1

'Sender of the mail
Mail.From = "[e-mail]"

'Use the AddTo to add up to 500 e-mail addresses
'At least one AddTo is required
Mail.AddTo = "[e-mail]"
Mail.AddTo = "[e-mail]"

'Use the AddCc(Carpon Copy) to add up to 500 e-mail addresses
'Not Required
Mail.AddCc = "[e-mail]"
Mail.AddCc = "[e-mail]"

'Use the AddBCc(Blind Carpon Copy) to add up to 500 e-mail addresses
'Not Required
Mail.AddBCc = "[e-mail]"
Mail.AddBCc = "[e-mail]"

'You can also specify to whom the recipient mus reply to.
'Not Required 
Mail.ReplyTo = "[e-mail]"

'The subject of the message
Mail.Subject = "This is a test"

'Then the main message
Mail.AddMessage = "Test line 1"
Mail.AddMessage = "Test line 2"
Mail.AddMessage = "Test line 3"

'The last statement to send the mail.
'Error codes will be written if there are any errors.
Response.Write Mail.Send
%>