I have made a console application which check backup file on Ftp and then sends a email
In app.run i have written this code and called the method to Send an email:

Dim objTimer As new CustomTimer
objTimer.Mode = Timer.ModeMultiple
do
  App.DoEvents 3000
  ProSendEmail(CurrentDate)
loop

The method to send email is:

EmailSocket = new  MailSocket //Mailsocket is SMTPSecureSocket
Dim mail As New EmailMessage
EmailSocket.Address = "mail.server" // your SMTP email server
EmailSocket.Port =123
EmailSocket.Secure=True
EmailSocket.ConnectionType=3
EmailSocket.Username="xyz@gmail.com"
EmailSocket.Password="123"
EmailSocket.Connect

While 1=1 
  EmailSocket.Connect 
  If EmailSocket.IsConnected Then Exit
Wend

mail.FromAddress = "xyz@gmail.com"
mail.Subject =  "Database backup is missing for Date "
mail.AddRecipient("xyz@gmail.com")
mail.BodyPlainText ="Test email"

EmailSocket.DeleteAllMessages
EmailSocket.Messages.Append(mail)
EmailSocket.SendMail

The mail is not sent. What am I doing wrong in this?

Thanks in advance

  do until socket.Messages.Ubound = -1
    socket.Poll
  loop

Hi,
I have the same problem.
in the console app I can not send email
socket error 103 happens.
The same code in a windows application works flawlessly.

Using a Timer and using the above mentioned class for multiple email-sending did not work.