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

FileZilla’da Klasör Listelenirken Alınan Hatanın Çözümü
20 Mart 2016
ModSecurity Kurallarını .htaccess Üzerinden Devre Dışı Bırakma
21 Mart 2016

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"" <gonderenmail@domainadiniz.com>" 
objMessage.To = "alicimailadresi@gmail.com" 
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") = "gonderenmail@domainadiniz.com"

'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

 

 

Bu makale size yardımcı oldu mu?
Evet0
Hayır1

1
Kimler Neler Demiş?

avatar
1 Comment threads
0 Thread replies
0 Followers
 
Most reacted comment
Hottest comment thread
1 Comment authors
ismail Recent comment authors
  Subscribe  
En Yeniler Eskiler
Bildir
ismail
Ziyaretçi

asp cdo.message yandex mx kayıtlarıyla nasıl mail gönderilir.

Show Buttons
Hide Buttons