Hi Borg and everyone,
Here is a bad and not complete support code for http://www.afterlogic.com/ - Mailbee Objects , one of the best emailling component (just my opinion, I'm not linked with them at all) :
'******************************************
'*** Mailbee Objects v3.2+ ***
'******************************************
'Mailbee Objects v3.2+ component (this version allows authentication)
Case "Mailbee"
'Create the e-mail server object
Set objMailBee = Server.CreateObject("MailBee.SMTP")
'Check to see if an error has occured
'If an error has occured write an error to the page
If Err.Number <> 0 Then errorMsg("An error has occured while sending an email.<br />Please check that Mailbee Objects v3.2 or above email component is installed on the server.<br />")
With objMailBee
' Set the license key => MUST BE EDITABLE IN ADMIN SECTION
.LicenseKey = ""
.ServerName = strMailServer
'Send SMTP Server authentication data
If NOT strMailServerUser = "" AND NOT strMailServerPass = "" Then
.AuthMethod = 2
.UserName = strMailServerUser
.Password = strMailServerPass
End If
'Who the e-mail is from
.FromAddr = strFromEmailAddress
'.FromName = strFromEmailName
'Who the e-mail is sent to
.ToAddr strRecipientEmailAddress, strRecipientName
'The subject of the e-mail
.Subject = strSubject
'Set the e-mail body format
If blnHTML = True Then
.BodyFormat = 1
.BodyText = strEmailBodyMessage & strEmailBodyAppendMessage
Else
.BodyText = strEmailBodyMessage & strEmailBodyAppendMessage
End If
'Send the e-mail
If NOT strMailServer = "" Then .Send
End With
'Close the server mail object
If objMailBee.Connected Then
objMailBee.Disconnect
End If
I hope it helps for WWF v8.
|