asp使用CDO.Message发送邮件详细代码集合



发送文本Email:

1<%

2Set myMail=CreateObject("CDO.Message")

3myMail.Subject="Sending email with CDO"

4myMail.From="[e-mail]"

5myMail.To="[e-mail]"

6myMail.TextBody="This is a message."

7myMail.Send

8set myMail=nothing

9%>

发送文本Email，带有Bcc和CC的:

01<%

02Set myMail=CreateObject("CDO.Message")

03myMail.Subject="Sending email with CDO"

04myMail.From="[e-mail]"

05myMail.To="[e-mail]"

06myMail.Bcc="[e-mail]"

07myMail.Cc="[e-mail]"

08myMail.TextBody="This is a message."

09myMail.Send

10set myMail=nothing

11%>

 

发送HTML格式的Email: 

1<%

2Set myMail=CreateObject("CDO.Message")

3myMail.Subject="Sending email with CDO"

4myMail.From="[e-mail]"

5myMail.To="[e-mail]"

6myMail.HTMLBody = "<h1>This is a message.</h1>" 

7myMail.Send

8set myMail=nothing

9%>

 

发送网页:

1<%

2Set myMail=CreateObject("CDO.Message")

3myMail.Subject="Sending email with CDO"

4myMail.From="[e-mail]"

5myMail.To="[e-mail]"

6myMail.CreateMHTMLBody "http://www.w3schools.com/asp/" 

7myMail.Send

8set myMail=nothing

9%>

发送本机的网页

1<%

2Set myMail=CreateObject("CDO.Message")

3myMail.Subject="Sending email with CDO"

4myMail.From="[e-mail]"

5myMail.To="[e-mail]"

6myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm" 

7myMail.Send

8set myMail=nothing

9%>

发送带附件的文本email

01<%

02Set myMail=CreateObject("CDO.Message")

03myMail.Subject="Sending email with CDO"

04myMail.From="[e-mail]"

05myMail.To="[e-mail]"

06myMail.TextBody="This is a message."

07myMail.AddAttachment "c:\mydocuments\test.txt" '重复多次即可添加多个文件。

08myMail.Send

09set myMail=nothing

10%>

 

使用远程Server发送文本Email

01<%

02Set myMail=CreateObject("CDO.Message")

03myMail.Subject="Sending email with CDO"

04myMail.From="[e-mail]"

05myMail.To="[e-mail]"

06myMail.TextBody="This is a message."

07myMail.Configuration.Fields.Item _

08("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

09'Name or IP of remote SMTP server

10myMail.Configuration.Fields.Item _

11("http://schemas.microsoft.com/cdo/configuration/smtpserver") _

12="smtp.server.com"

13'Server port

14myMail.Configuration.Fields.Item _

15("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _

16=25 

17myMail.Configuration.Fields.Update

18myMail.Send

19set myMail=nothing

20%>

远程Server需要身份验证

01Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 

02Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 

03  

04Const cdoAnonymous = 0 'Do not authenticate

05Const cdoBasic = 1 'basic (clear-text) authentication

06Const cdoNTLM = 2 'NTLM

07  

08Set objMessage = CreateObject("CDO.Message") 

09objMessage.Subject = "Example CDO Message" 

10objMessage.From = """Me"" <[e-mail]>" 

11objMessage.To = "[e-mail]" 

12objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication."

13  

14objMessage.Configuration.Fields.Item _

15("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

16  

17'Name or IP of Remote SMTP Server

18objMessage.Configuration.Fields.Item _

19("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.your.com"

20  

21'验证方式, NONE, Basic (Base64 encoded), NTLM

22objMessage.Configuration.Fields.Item _

23("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

24  

25'SMTP 服务器的用户名

26objMessage.Configuration.Fields.Item _

27("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youruserid"

28  

29'SMTP 服务器的密码

30objMessage.Configuration.Fields.Item _

31("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"

32  

33'Server端口(通常为25)

34objMessage.Configuration.Fields.Item _

35("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

36  

37'是否使用SSL连接(False 或 True)

38objMessage.Configuration.Fields.Item _

39("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

40  

41'连接smtp的超时时间，单位为秒

42objMessage.Configuration.Fields.Item _

43("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

44  

45objMessage.Configuration.Fields.Update

46  

47objMessage.Send

发送对文件附件和回执，并与远程服务器的身份验证
交付处置通知请求。为了使用的传递状态通知（返回
收据和交付处置的要求），我们需要创建一个引用到CDO的配置
除了CDO Message对象的对象，并设置小数目的属性。你必须
使用cdoSendUsingPort（网络连接），而不是SMTP服务器的拾取目录
（cdoSendUsingPickup）。

 

01Const cdoSendUsingPickup = 1 

02Const cdoSendUsingPort = 2 '如果使用发送通知，必须使用这个。Const cdoAnonymous = 0

03Const cdoBasic = 1 ' clear text

04Const cdoNTLM = 2 'NTLM

05'发送状态通知

06Const cdoDSNDefault = 0 'None

07Const cdoDSNNever = 1 'None

08Const cdoDSNFailure = 2 'Failure

09Const cdoDSNSuccess = 4 'Success

10Const cdoDSNDelay = 8 'Delay

11Const cdoDSNSuccessFailOrDelay = 14 'Success, failure or delay

12  

13set objMsg = CreateObject("CDO.Message")

14set objConf = CreateObject("CDO.Configuration")

15  

16Set objFlds = objConf.Fields

17With objFlds

18   .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort

19   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.yourhost.com"

20   .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

21   .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your-username"

22   .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your-password"

23   .Update

24End With

25  

26strBody = "This is a sample message." & vbCRLF

27strBody = strBody & "It was sent using CDO." & vbCRLF

28  

29With objMsg

30   Set .Configuration = objConf

31   .To = "[e-mail]" 

32   .From = "[e-mail]"

33   .Subject = "This is a CDO test message"

34   .TextBody = strBody

35    'use .HTMLBody to send HTML email.

36   .Addattachment "c:\temp\Scripty.zip"

37   .Fields("urn:schemas:mailheader:disposition-notification-to") = "[e-mail]"

38   .Fields("urn:schemas:mailheader:return-receipt-to") = "[e-mail]" 

39   .DSNOptions = cdoDSNSuccessFailOrDelay

40   .Fields.update

41   .Send

42End With