CDOSYS – ASP EMail

Asrkadaşlar altta kodlarını verdiğim ve indirme linkini verdiğim kodlar ile email gönderme işinizi sitenizden yapabilirsiniz.

CDOSYS bileşeni ile ASP kodları kullanarak sitenizden mail yollayabilirsiniz.

 

 

  Set oCdoMail = Server.CreateObject("CDO.Message")
  Set oCdoConf = Server.CreateObject("CDO.Configuration")

  sConfURL = "http://schemas.microsoft.com/cdo/configuration/"
  with oCdoConf
    .Fields.Item(sConfURL & "sendusing") = 2
    .Fields.Item(sConfURL & "smtpserver") = "localhost"
    .Fields.Item(sConfURL & "smtpserverport") = 25 'Artık 587 portunu kullanıyoruz...!
    .Fields.Update
  end with

  with oCdoMail
    .From = "you@yourdomain.com"
    .To = "someone@domain.com; somebody@domain.com"
    .CC = "someone.else@domain.com"
    .BCC = "someone@anotherdomain.com"
  end with

  with oCdoMail
    .Subject = "My message subject"
    .TextBody = "This is a plain text email"
    .HTMLBody = "This is an HTML email"
    .AddAttachment = "C:\Inetpub\wwwroot\attachment.zip"
  end with

  oCdoMail.Configuration = oCdoConf
  oCdoMail.Send
  Set oCdoConf = Nothing
  Set oCdoMail = Nothing

Download etmek isteyenler için: ASP EMail – CDOSYS