Thanks RBNUBE, Brad and others. The following code (from NUBE) essentially
works. I put msgboxes in all of the events. I get that it connects, then it
says
it sent the mail 8 or 9 times, then mail complete, then error sending the
mail. However, it actually works in sending the mail in most cases (but doesn't
work at all unless from address agrees with account address).
__________________________
Dim mail as EmailMessage
Dim file as EmailAttachment
Dim i as Integer
Dim s as String
SMTPSocket1.address = "smtp.aol.com"
SMTPSocket1.port = 587
SMTPSocket1.username = "gamoore"
SMTPSocket1.password = "myrosebud2006"
mail = New EmailMessage
mail.fromAddress= "[EMAIL PROTECTED]"
mail.subject= "RB email test"
mail.bodyPlainText = "hello world"
mail.headers.appendHeader "X-Mailer","REALbasic SMTP Demo"
mail.addRecipient "[EMAIL PROTECTED]"
mail.addRecipient "[EMAIL PROTECTED]"
SMTPSocket1.messages.append mail //add email to list of messages
SMTPSocket1.SendMail
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
