Italian Spedire numerose email

[AlpVir]

Vorrei spedire una serie di email senza alcun intervento da parte dell'utente, se non quella iniziale di schiacciare un pulsante. Dovrebbe poi essere il codice, all'interno di un opportuno loop che scansiona un db, a fare il resto.
Leggo però che :

Note that the email will not be sent automatically. The user will need to press on the send button

Difatti il codice suggerito :

Dim Message As Email
Message.To.Add( Rs.GetString ("Email") )
Message.Subject = "Messaggio di pinco pallino"
Message.Body = "bla bla bla"
StartActivity(Message.GetIntent)

richiede appunto una specifica operazione per ogni email che si intende spedire.
Poichè io vorrei spedirne una decina ne consegue che il tutto diventa ingestibile praticamente.
Quali suggerimenti potete darmi ?
Grazie anticipatamente.

 

[fiaful]

Io proverei a vedere se esiste un qualche componente che aggiri l'intent collegandosi direttamente con un smtp server via socket... altrimenti lo scriverei (tra l'altro se non devi aggiungere allegati e se non utilizza una connessione criptata è anche piuttosto semplice)

Ciao

 

[AlpVir]

Grazie fiaful
In effetti NON devo aggiungere allegati e la connessione NON è (non credo che sia) criptata.
Quanto a "scrivere componenti" .... al momento non saprei che pesci pigliare.
Qundi tu suggerisci di indicare in qualche modo, quale mittente, oltrechè il solito [email protected] anche il server SMPT (smtp.gmail.com) e "superare" (ossia non utilizzare) il client di posta elettronica.

EDIT
In effetti esiste l'oggetto SMT che sembra fare il caso mio. Stasera provo.
"SMTP object allows you to send emails with no user intervention and without relying on the device installed mail clients."

 

[fiaful]

Ciao AlpVir... il componente da te indicato non lo conosco ma dalla descrizione che hai postato direi che è proprio quello che ti serve...
ciao

 

[djveleno]

La libreria è la NET, il componente SMTP, io ho provato a creare un'app che spediva mail a 5/6 indirizzi ma, non ha funzionato, sia sulla porta 25 che sulla 587, se riesci mi puoi tenere aggiornato?

 

[AlpVir]

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, "[email protected]", "xxxxx", "SMTP")
SMTP.UseSSL = True
End If

 

[AlpVir]

Il problema del post precedente (link non corretto nell'email) si risolve con un

SMTP.Body = SMTP.Body.Replace("=", "=3D")

 

[luciano deri]

Slave, ho provato a usare la libreria NET per una questione analoga, ma non mi esegue mai l'evento SMTP_MessageSent.