???
???
???
???
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