Mailbee Mail support

Hi Borg and everyone,

Here is a bad and not complete support code for 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.


Edited by Clovis - 03 March 2006 at 10:30pm