MAILBEE POP3 SMTP WEBMAIL IMAP4 POP IMAP EMAIL COMPONENT VB ASP ACTIVEX COM VBA OCX NET .NET C# VB.NET ASP.NET DOWNLOAD QUEUE SSL SECURITY CENSOR ACCESS PARSER C++ DLL CONTROL LIBRARY MIME INTERFACE

MailBee SMTP

AfterLogic Forum : MailBee SMTP

Topic: Negative or void server response

Author

Message

<< Prev Topic | Next Topic >>

Guests
Guest Group

Joined: 10 November 2003
Online Status: Online
Posts: 262

Posted: 29 March 2005 at 8:23pm \| IP Logged

Hi,

I saw another thread on this topic but it didn't really seem to address my issue:

I've written an app in MS Access that uses MailBee for both POP and SMTP. For the most part, it works famously (and much better that the mail objects I was using before I discovered MailBee). Today, I wrote a small app to help me diagnose some problems. It uses essentially the same code as the main app for the part that actually sends the mail. I tested it at home and it worked like a champ but when my user tried it, it choked and returned a "Negative or void server response" error. The main difference between here and there (as far as I can tell) is that we have different ISPs and hence (perhaps) different security requirements on the SMTP server. However, as mentioned above, another app on my user's machine uses the same (-ish) code and works every time.

Here is the meat of my code if it helps:

mailTo = getAppVariable("AnalysisEmail")
objSMTP.LicenseKey = getAppVariable("MailbeeSMTPKey")
objSMTP.EnableEvents = True
objSMTP.Servername = getAppVariable("SMTPServer")
objSMTP.FromAddr = getAppVariable("UserEmailAddress")

If objSMTP.Connect Then
    showStatus "Connected to server: " & objSMTP.Servername
    Set rsMail = getADODBRecordset("SELECT * FROM qryAllMail WHERE Forward = True")
    Do While Not rsMail.EOF
        DoEvents
        objSMTP.Subject = rsMail("Subject")
        messageText = rsMail("MessageText")
        If Not messageText = "" Then
             objSMTP.ToAddr = mailTo
             objSMTP.BodyText = messageText
             showStatus "Sending message " & messageNum & " . . ."
             If objSMTP.send Then
                showStatus "Message sent to: " & mailTo
                showStatus "     " & objSMTP.Subject
                mailSent = True
             Else
                showStatus "ERROR: Unable to send message. Error code: " & objSMTP.ErrDesc
             End If
             messageNum = messageNum + 1
        End If
        rsMail.MoveNext
    Loop
    objSMTP.Disconnect
    showStatus "Disconnecting from server: " & objSMTP.Servername
    rsMail.Close
Else
    showStatus "Failed to connect to server: " & objSMTP.Servername
    showStatus "Error code is: " & objSMTP.ErrDesc
End If

Thanks in advance,

Mark

Alex
AfterLogic Support

Joined: 19 November 2003
Online Status: Offline
Posts: 2206

Posted: 30 March 2005 at 7:52am \| IP Logged

My first guess is that SMTP authentication required (SMTP.AuthMethod = 2, SMTP.UserName = "username", SMTP.Password = "password"). Your code does not use it. This means e-mails addressed to local recipients will be sent while mails addressed to external recipients -will not.

To tell for sure what's happening, MailBee log would be great. Could you enable MailBee logging (SMTP.EnableLogging = True, SMTP.LogFilePath = "C:\smtp_log.txt") and send us the log file?

Regards,
Alex

If you wish to post a reply to this topic you must first login
If you are not already registered you must first register

Printable version

Forum Jump

.NET Components

ActiveX Components

Web scripts

Solutions

MailBee SMTP