Io ho trovato tutto molto semplice e di immediata realizzazione (stranamente, secondo il mio standard).
Prima si dichiara
Sub Process_Globals
Dim SMTP As SMTP
End Sub
e poi
Rs = Main.dbIAH.ExecQuery(Criterio)
TotRec = Rs.RowCount
For N=0 To TotRec-1
Rs.Position = N
Nome = Rs.GetString ("Nome")
Mail = Rs.GetString ("Email")
ToastMessageShow("Invio una email a "&Nome& "(" & Mail &")", False)
SMTP.To.Add(Mail)
Next
SMTP.Subject = "Messaggio di " & Main.Proprietario
SMTP.Body = Messaggio
SMTP.Body = SMTP.Body.Replace("=", "=3D")
SMTP.Send
L'unico problema è un link che è all'interno della stringa Messaggio: non funziona.
Anche utilizzando :
encodedLink = su.EncodeUrl(link, "UTF8")
il link nell'email spedita non svolge la sua funzione.
Nella barra di stato di Tunderbird, passando il mouse sul link, esso viene visualizato correttamente ma con una barra "/" in più alla fine, barra che non appare nel testo dell'email.
In sintesi:
- nell'email appare
www.nomesito/pagina.asp?Parametro=1234&Altro=abcd
- nella barra di stato appare
www.nomesito/pagina.asp?Parametro=1234&Altro=abcd/
Bisogna che ci lavori ancora dietro.
EDIT
Dimenticavo: Bisogna ancora aggiungere, in Activity_Create
If FirstTime Then
SMTP.Initialize("smtp.gmail.com", 465, "
nomexxxxi@gmail.com", "xxxxx", "SMTP")
SMTP.UseSSL = True
End If