Bounced messages (SMTP part)
Dim objSMTP ' Create mailer component Set objSMTP = CreateObject("MailBee.SMTP") ' Unlock SMTP component objSMTP.LicenseKey = "put your license key here" ' Set SMTP server name objSMTP.ServerName = "mail.server.com" ' Set message properties objSMTP.FromAddr = "joe@domain1.com" objSMTP.ToAddr = "bill@domain2.com" objSMTP.Subject = "Hi" objSMTP.BodyText = "This is test message" ' Send e-mail. If it cannot be delivered, bounce will ' arrive to bounce@domain3.com, not to joe@domain1.com objSMTP.SendEx "bounce@domain3.com"
<% Dim objSMTP ' Create mailer component Set objSMTP = Server.CreateObject("MailBee.SMTP") ' Unlock SMTP component objSMTP.LicenseKey = "put your license key here" ' Set SMTP server name objSMTP.ServerName = "mail.server.com" ' Set message properties objSMTP.FromAddr = "me@mydomain.com" objSMTP.ToAddr = "you@yourdomain.com" objSMTP.Subject = "Hi" objSMTP.BodyText = "This is test message" ' Send e-mail. If it cannot be delivered, bounce will ' arrive to bounce@domain3.com, not to joe@domain1.com objSMTP.SendEx "bounce@domain3.com" %>See Also: