您的位置：首页 > 编程语言 > ASP

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

2017-07-06 14:25 645 查看

发送文本Email:

1
<%
2
Set
myMail=CreateObject(
"CDO.Message"
)
3
myMail.Subject=
"SendingemailwithCDO"
4
myMail.From=
"mymail@mydomain.com"
5
myMail.
To
=
"someone@somedomain.com"
6
myMail.TextBody=
"Thisisamessage."
7
myMail.Send
8
setmyMail=nothing
9
%>
发送文本Email，带有Bcc和CC的:

01
<%
02
Set
myMail=CreateObject(
"CDO.Message"
)
03
myMail.Subject=
"SendingemailwithCDO"
04
myMail.From=
"mymail@mydomain.com"
05
myMail.
To
=
"someone@somedomain.com"
06
myMail.Bcc=
"someoneelse@somedomain.com"
07
myMail.Cc=
"someoneelse2@somedomain.com"
08
myMail.TextBody=
"Thisisamessage."
09
myMail.Send
10
setmyMail=nothing
11
%>
发送HTML格式的Email:

1
<%
2
Set
myMail=CreateObject(
"CDO.Message"
)
3
myMail.Subject=
"SendingemailwithCDO"
4
myMail.From=
"mymail@mydomain.com"
5
myMail.
To
=
"someone@somedomain.com"
6
myMail.HTMLBody=
"<h1>Thisisamessage.</h1>"
7
myMail.Send
8
setmyMail=nothing
9
%>
发送网页:

1
<%
2
Set
myMail=CreateObject(
"CDO.Message"
)
3
myMail.Subject=
"SendingemailwithCDO"
4
myMail.From=
"mymail@mydomain.com"
5
myMail.
To
=
"someone@somedomain.com"
6
myMail.CreateMHTMLBody
"http://www.w3schools.com/asp/"
7
myMail.Send
8
setmyMail=nothing
9
%>
发送本机的网页

1
<%
2
Set
myMail=CreateObject(
"CDO.Message"
)
3
myMail.Subject=
"SendingemailwithCDO"
4
myMail.From=
"mymail@mydomain.com"
5
myMail.
To
=
"someone@somedomain.com"
6
myMail.CreateMHTMLBody
"file://c:/mydocuments/test.htm"
7
myMail.Send
8
setmyMail=nothing
9
%>
发送带附件的文本email

01
<%
02
Set
myMail=CreateObject(
"CDO.Message"
)
03
myMail.Subject=
"SendingemailwithCDO"
04
myMail.From=
"mymail@mydomain.com"
05
myMail.
To
=
"someone@somedomain.com"
06
myMail.TextBody=
"Thisisamessage."
07
myMail.AddAttachment
"c:\mydocuments\test.txt"
'重复多次即可添加多个文件。
08
myMail.Send
09
setmyMail=nothing
10
%>
使用远程Server发送文本Email

01
<%
02
Set
myMail=CreateObject(
"CDO.Message"
)
03
myMail.Subject=
"SendingemailwithCDO"
04
myMail.From=
"mymail@mydomain.com"
05
myMail.
To
=
"someone@somedomain.com"
06
myMail.TextBody=
"Thisisamessage."
07
myMail.Configuration.Fields.Item_
08
(
"http://schemas.microsoft.com/cdo/configuration/sendusing"
)=2
09
'NameorIPofremoteSMTPserver
10
myMail.Configuration.Fields.Item_
11
(
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
)_
12
=
"smtp.server.com"
13
'Serverport
14
myMail.Configuration.Fields.Item_
15
(
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
)_
16
=25
17
myMail.Configuration.Fields.Update
18
myMail.Send
19
setmyMail=nothing
20
%>
远程Server需要身份验证

01
Const
cdoSendUsingPickup=1
'SendmessageusingthelocalSMTPservicepickupdirectory.
02
Const
cdoSendUsingPort=2
'Sendthemessageusingthenetwork(SMTPoverthenetwork).
03
04
Const
cdoAnonymous=0
'Donotauthenticate
05
Const
cdoBasic=1
'basic(clear-text)authentication
06
Const
cdoNTLM=2
'NTLM
07
08
Set
objMessage=CreateObject(
"CDO.Message"
)
09
objMessage.Subject=
"ExampleCDOMessage"
10
objMessage.From=
""
"Me"
"<me@my.com>"
11
objMessage.
To
=
"test@paulsadowski.com"
12
objMessage.TextBody=
"Thisissomesamplemessagetext.."
&vbCRLF&
"ItwassentusingSMTPauthentication."
13
14
objMessage.Configuration.Fields.Item_
15
(
"http://schemas.microsoft.com/cdo/configuration/sendusing"
)=2
16
17
'NameorIPofRemoteSMTPServer
18
objMessage.Configuration.Fields.Item_
19
(
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
)=
"mail.your.com"
20
21
'验证方式,NONE,Basic(Base64encoded),NTLM
22
objMessage.Configuration.Fields.Item_
23
(
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
)=cdoBasic
24
25
'SMTP服务器的用户名
26
objMessage.Configuration.Fields.Item_
27
(
"http://schemas.microsoft.com/cdo/configuration/sendusername"
)=
"youruserid"
28
29
'SMTP服务器的密码
30
objMessage.Configuration.Fields.Item_
31
(
"http://schemas.microsoft.com/cdo/configuration/sendpassword"
)=
"yourpassword"
32
33
'Server端口(通常为25)
34
objMessage.Configuration.Fields.Item_
35
(
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
)=25
36
37
'是否使用SSL连接(False或True)
38
objMessage.Configuration.Fields.Item_
39
(
"http://schemas.microsoft.com/cdo/configuration/smtpusessl"
)=
False
40
41
'连接smtp的超时时间，单位为秒
42
objMessage.Configuration.Fields.Item_
43
(
"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
)=60
44
45
objMessage.Configuration.Fields.Update
46
47
objMessage.Send
发送对文件附件和回执，并与远程服务器的身份验证

交付处置通知请求。为了使用的传递状态通知（返回

收据和交付处置的要求），我们需要创建一个引用到CDO的配置

除了CDOMessage对象的对象，并设置小数目的属性。你必须

使用cdoSendUsingPort（网络连接），而不是SMTP服务器的拾取目录

（cdoSendUsingPickup）。

01
Const
cdoSendUsingPickup=1
02
Const
cdoSendUsingPort=2
'如果使用发送通知，必须使用这个。ConstcdoAnonymous=0
03
Const
cdoBasic=1
'cleartext
04
Const
cdoNTLM=2
'NTLM
05
'发送状态通知
06
Const
cdoDSNDefault=0
'None
07
Const
cdoDSNNever=1
'None
08
Const
cdoDSNFailure=2
'Failure
09
Const
cdoDSNSuccess=4
'Success
10
Const
cdoDSNDelay=8
'Delay
11
Const
cdoDSNSuccessFailOrDelay=14
'Success,failureordelay
12
13
setobjMsg=CreateObject(
"CDO.Message"
)
14
setobjConf=CreateObject(
"CDO.Configuration"
)
15
16
Set
objFlds=objConf.Fields
17
With
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
24
End
With
25
26
strBody=
"Thisisasamplemessage."
&vbCRLF
27
strBody=strBody&
"ItwassentusingCDO."
&vbCRLF
28
29
With
objMsg
30
Set
.Configuration=objConf
31
.
To
=
"test@paulsadowski.com"
32
.From=
"me@my.com"
33
.Subject=
"ThisisaCDOtestmessage"
34
.TextBody=strBody
35
'use.HTMLBodytosendHTMLemail.
36
.Addattachment
"c:\temp\Scripty.zip"
37
.Fields(
"urn:schemas:mailheader:disposition-notification-to"
)=
"me@my.com"
38
.Fields(
"urn:schemas:mailheader:return-receipt-to"
)=
"me@my.com"
39
.DSNOptions=cdoDSNSuccessFailOrDelay
40
.Fields.update
41
.Send
42
End
With

                                            

                                        

                        
                        内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息 
                    

                    

                    

                        

                         标签： 
                                                

                        

                    


                

            


            

                
相关文章推荐

                

                
            

        

        

            

            
            

                

                    
新的分享

                    

                        
                    

                

            


            

                

                    
章节导航