Search The ForumSearch   RegisterRegister  LoginLogin

MailBee SMTP

 AfterLogic Forum : MailBee SMTP
Subject Topic: Negative or void server response Post ReplyPost New Topic
Author
Message << Prev Topic | Next Topic >>
Guests
Guest Group
Guest Group


Joined: 10 November 2003
Online Status: Online
Posts: 262
Posted: 29 March 2005 at 8:23pm | IP Logged Quote Guests

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
Back to Top View Guests's Profile Search for other posts by Guests
 
Alex
AfterLogic Support
AfterLogic Support
Avatar

Joined: 19 November 2003
Online Status: Offline
Posts: 2206
Posted: 30 March 2005 at 7:52am | IP Logged Quote Alex

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
Back to Top View Alex's Profile Search for other posts by 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

  Post ReplyPost New Topic
Printable version Printable version

Forum Jump

Powered by Web Wiz Forums version 7.9
Copyright ©2001-2004 Web Wiz Guide