https://forums.webwiz.net/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 13 Apr 2026 05:09:42 +0000 Fri, 03 Mar 2006 22:27:38 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.08 360 https://forums.webwiz.net/RSS_post_feed.asp?TID=18593 https://forums.webwiz.net/forum_images/web_wiz_forums.png https://forums.webwiz.net/ https://forums.webwiz.net/mailbee-mail-support_topic18593_post100543.html#100543 Author: Clovis
Subject: 18593
Posted: 03 March 2006 at 10:27pm

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]]> Fri, 03 Mar 2006 22:27:38 +0000 https://forums.webwiz.net/mailbee-mail-support_topic18593_post100543.html#100543