<% Set Mail = Server.CreateOBject("Bamboo.SMTP")
Mail.ContentType = "text/html" 'mailin içeriği
Mail.Server = "mail.domain.com" 'mail server
Mail.From = "gonderen@domain.com" ' gonderen mail adresi
Mail.FromName = "gonderen adi" 'gonderen adi
Mail.Rcpt "alici@domain.com" ' sizin mail adresiniz
Mail.Subject = "haber listesi" ' konu
Mail.Message = "mail listenize katilmak istiyorum" ' mesaj
Mail.Send %>