??????????

???
???
???
???

dim MailSocket As New SMTPSocket
dim mail as emailMessage

MailSocket = New SMTPSocket

MailSocket.address = “smtp.nifty.com
MailSocket.port = 587
MailSocket.username = “myName”
MailSocket.password = “myPassword”

mail = new emailMessage
mail.fromAddress = “myName@nifty.com
mail.subject = “test”
mail.addRecipient “myName@nifty.com
mail.bodyPlainText=“test mail”

MailSocket.messages.append mail
MailSocket.sendMail

???DoEvents()???

dim MailSocket As New SMTPSocket
dim mail as emailMessage
dim startTick As Integer

MailSocket = New SMTPSocket

MailSocket.address = “smtp.nifty.com
MailSocket.port = 587
MailSocket.username = “myName”
MailSocket.password = “myPassword”

mail = new emailMessage
mail.fromAddress = “myName@nifty.com
mail.subject = “test”
mail.addRecipient “myName@nifty.com
mail.bodyPlainText=“test mail”

MailSocket.messages.append mail
MailSocket.sendMail

startTick= Ticks
do
DoEvents()
Loop Until (startTick+120)<Ticks