Domain & Hosting Yazılım Pratikleri

ASP’de CDO Yöntemiyle E-posta Göndermek

ASP eski ama hala geçerliliği olan bir dil. Fakat bazı yetenekleri kısıtlı ve bunlar için ekstra çözümlere ihtiyaç duyuluyor. E-posta gönderme işlemleri de bu kapsamdadır.

Birçok Windows sunucuda CDO ile sorunsuz biçimde e-posta gönderimi sağlanabilmektedir. Aşağıda paylaştığımız kodları kullanabilirsiniz :

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = """Adınız Soyadınız"" <[email protected]>" 
objMessage.To = "[email protected]" 
objMessage.TextBody = "Mail içeriğini buraya giriniz" & vbCRLF & "Bu gönderim SMTP iletim kullanacaktır."

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.alanadi.com"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "parolaniziburayayaziniz"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

 

 

Subscribe
Bildir
guest
3 Yorum
En Yeniler Eskiler
Inline Feedbacks
View all comments