New topic: SMTP Anomaly, Sending Problems using SMTPSecureSocket
<http://forums.realsoftware.com/viewtopic.php?t=45615> Page 1 of 1 [ 1 post ] Previous topic | Next topic Author Message Hawkcode Post subject: SMTP Anomaly, Sending Problems using SMTPSecureSocketPosted: Tue Oct 16, 2012 11:47 am Joined: Sat Jul 24, 2010 12:20 am Posts: 36 Hi, First I Have combed the forums and the web and have read everything I can find and nothing explines what I have run into. I draged an Object onto the screen and set the Super to SMTPSecureSocket. The code below has two methods of sending, One dynamically creating the SMTPSecureSocket and One using the one that is on the form. If chkTestDynamic it runs the dynamic. Now my first problem. The only one that works is the Dynamic SMTPSecureSocket version, where it's created programmatically. The other Option Doesn't. Am I doing something wrong? I Am totally lost. This program will send approximately 300 emails with pdf attachments. The other problem I'm seeing using the dynamic version because it works is that it doesn't seem to send them all, it goes through the entire list but only a few of them get received. I'm sure this is due to something I'm doing, just don't know what. This is the only code that touches the SMTPSecureSocket. Thanks for any help you can provide. Rich Albrecht If chkTestDynamic.Value then Dim MailSocket as SMTPSecureSocket MailSocket = New SMTPSocket1 MailSocket.address = gsSMTPServer MailSocket.port = gnPort MailSocket.username = gsSMTPUserID MailSocket.password = gsSMTPPassword MailSocket.Secure = true MailSocket.ConnectionType = MailSocket.SSLv3 MailSocket.messages.append GetEmailMessage(lsPersonID, lsEmail, lfiPDF, lsName) lblStatus.Text = "Sending to " + lsName + "..." lblStatus.Refresh MailSocket.SendMail //send message MailSocket.Flush while MailSocket.BytesLeftToSend > 0 MailSocket.poll wend else SMTPSocket1.address = gsSMTPServer SMTPSocket1.port = gnPort SMTPSocket1.username = gsSMTPUserID SMTPSocket1.password = gsSMTPPassword SMTPSocket1.Secure = true SMTPSocket1.ConnectionType = SMTPSocket1.SSLv3 SMTPSocket1.messages.append GetEmailMessage(lsPersonID, lsEmail, lfiPDF, lsName) lblStatus.Text = "Sending to " + lsName + "..." lblStatus.Refresh SMTPSocket1.SendMail //send message SMTPSocket1.Flush while SMTPSocket1.BytesLeftToSend > 0 SMTPSocket1.poll wend end Top Display posts from previous: All posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost timeSubject AscendingDescending Page 1 of 1 [ 1 post ] -- Over 1500 classes with 29000 functions in one REALbasic plug-in collection. The Monkeybread Software Realbasic Plugin v9.3. http://www.monkeybreadsoftware.de/realbasic/plugins.shtml [email protected]
