Do...Loop with SMTPSocket

Getting Started
1

Trying to send the email 6 times to myself but it only emailed once.
I know that it disconnect after sending…Is there anyway to reconnect and email again for a few times depending on my Do…Loop?

Dim i As Integer
Do Until i = 5
msgbox "This is message " + str(i)

//***************************************************
SendMailSocket.Address = "SMTP Email Server" // your SMTP email server
SendMailSocket.Port = 587 // Check your server for the property port # to use
SendMailSocket.Username = "SMTP USERNAME"
SendMailSocket.Password = "SMTP PWD"


// Create the actual email message
Dim mail As New EmailMessage
mail.FromAddress = "test@yourdomain.com"
mail.Subject = "Test Email from Xojo" + str(i)
mail.BodyPlainText = "Hello, World!"
mail.Headers.AppendHeader("X-Mailer", "Xojo SMTP Example") // Sample header
mail.Headers.AppendHeader("Received", "Xojo SMTP Example") // Sample header
mail.Headers.AppendHeader("Message-Id", "Test@test.com")
mail.AddRecipient("info@honjofudousan.com")


// Add the message to the SMTPSocket and send it
SendMailSocket.Messages.Append(mail)
SendMailSocket.SendMail
//***************************************************

i = i + 1

Loop

2

Why would you want to do this? Add the recipients and be done.

Do you come from AppleScript?

for i as integer = 1 to 6

is a bit more concise than the awkward do loop.

3

Thank your the reply.
Actually, I have a list of email addresses of friends and would like to email out to them with the same content but with a little personalized touch.
Wants the program to read the list from a listbox and send email to each of them directly.

4

You can add invididual messages to the socket and send them out all at once.

5

Out got it working!
My problem is with the subject. I want to send Asian language in the subject.
Any encoding tip?

6

Very good. Encoding in a subject is done in a special way. For instance, “smörebröd” becomes

=?UTF-8?B?c23DtnJlYnLDtmQ=?=

Here is something on this topic: https://ncona.com/2011/06/using-utf-8-characters-on-an-e-mail-subject/

7

Then you need to encode with UTF-8 Quoted Printable.

MBS has a Plugin Method for this: EncodeEmailSubjectMBS

8

Or better send or receive email with MBS CURL plugin.

9

Thank very much to every for the valuable input.
Special thanks to Beatrix W.

The encoding on the subject heading and body text works great!