Italian Inviare una mail tramite l'account di una propria mail

T

toro1950

Active Member

Licensed User

• Aug 31, 2023

• #1

Un caro saluto a tutta la comunità, avrei bisogno che un appa che sto sviluppando posssa inviare una mail ad un preciso indirizzo sfruttato l'account della mia mail,
esempio Mario@virgilio.it, oppure @alice.it, oppure @libero.it ecc della quale chiaramente conosco le credenziali (user e password, smtp, ecc)
ed inviarla ad un idirizzo ben preciso della quale chiaramaente conosco solo l'indirizzo, è possibile farlo? sono alle prima armi, ringrazio in anticipo
chiunque voglia aiutarmi. Grazie
Mario

 

drgottjr

Expert

Licensed User

Longtime User

• Aug 31, 2023

• #2

quando e' possibile mandare email attraverso una app tua,
usa la libreria net (con la classe stmp). funziona perfettamente.
usa la casella di ricerca sopra ("net", "smtp")

ma, da solito, non e' possibile inviare email tramite una app (di un terzo)
senza un server smtp che lo permetta. e, da solito, non lo permettono.

devi cercare un server smtp (gratuito o no). si tratta di un servizio come
tanti altri (http, ftp, ssh, etc). molti sviluppatori vogliono inviare email dalle
loro app come tu. dopo nella tua app, puoi usare il tuo indirizzo come mittente
e qualsiasi altro indirizzo come destinatario, e il server si occupara' dell'invio.

c'era una volta quando gmail lo permetteva. forse ancora possibile, ma
soltanto con un account gmail. comunque non facile da configurare se non mi
sabbaglio.

 

T

toro1950

Active Member

Licensed User

• Sep 1, 2023

• #3

Seguendo ai tuoi consigli ci sono riuscito: ho creato una mail ad hoc nel mio sito e utilizzato smtp.
l'unico problema che riscontro è che non riesco ad ottenere un messaggio di mail inviata o meno
ho provato con Wait For smtpClient_MessageSent(Success As Boolean) ma non mi restituisci nessun
messaggio, la mail viene sempre inviata
Private Sub SendEmail(FileName As String)
smtpClient.UseSSL = False
smtpClient.To.Add("mail di destinazione")
smtpClient.Subject = FileName
smtpClient.Body = "questa è una prova invio mail con app"
smtpClient.Send
Wait For smtpClient_MessageSent(Success As Boolean)
If Success Then
ToastMessageShow("mail inviata", True)
Else
ToastMessageShow("LastException.Message", True)
End If
End Sub

 

Sagenut

Expert

Licensed User

Longtime User

• Sep 1, 2023

• #4

Elimina la parte dopo

B4X:

smtpClient.Send

e aggiungi questa Sub al tuo progetto

B4X:

Sub smtpClient_MessageSent(Success As Boolean)
If Success Then
  ToastMessageShow("Mail Inviata", True)
Else
  ToastMessageShow("Errore: " & LastException.Message , True)
End If
End Sub

 

Last edited: Sep 1, 2023

Sagenut

Expert

Licensed User

Longtime User

• Sep 1, 2023

• #5

Ho corretto il nome dell'evento mettendo il tuo.
Prima c'era il nome generico.
Copia di nuovo l'esempio se lo avevi già preso.

 

T

toro1950

Active Member

Licensed User

• Sep 1, 2023

• #6

Ho provato ma ancora non mi restituisce nessn messaggio, forse non ho settato qualcosa, non capisco.
Non ho ancora capito come inserire il codice qui, quindi allego il codice

 

Sagenut

Expert

Licensed User

Longtime User

• Sep 1, 2023

• #7

Per pubblicare del codice devi usare l'icona con
</>
e copiare il tuo codice nella finestra che si apre.

 

T

toro1950

Active Member

Licensed User

• Sep 1, 2023

• #8

ho notato che il file zippato era troppo grande, allego solo codice

 

Attachments

• provamail.zip

  1.2 KB · Views: 139

Sagenut

Expert

Licensed User

Longtime User

• Sep 1, 2023

• #9

Il tuo progetto è un Default o un B4XPages?
Se è un Default per creare il file zip del progetto devi usare
Export as Zip
che trovi nel menù dell'IDE.
Puoi anche vedere una icona che sembra un pacco regalo per usare quella funzione.
Non sono a casa quindi non posso fare molto.

 

T

toro1950

Active Member

Licensed User

• Sep 1, 2023

• #10

anche con Sub smtpClient_MessageSent(Success As Boolean) non viene visualizzato nessun messaggio

 

Sagenut

Expert

Licensed User

Longtime User

• Sep 1, 2023

• #11

OK, ho controllato.
Io non ho mai usato quella libreria quindi non la conosco.
Il problema è nella riga di Initialize, che è composta così

B4X:

smtpClient.Initialize(SERVER, PORT, USERNAME, PASSWORD, EVENTNAME)

La stringa che scriverai come EVENTNAME sarà quella da usare per rinominare la Sub.
Esempio:

B4X:

smtpClient.Initialize(SERVER, PORT, USERNAME, PASSWORD, "MandaMail")

Private Sub MandaMail_MessageSent(Success As Boolean)
    If Success Then
        ToastMessageShow("Mail Inviata", True)
    Else
        ToastMessageShow("Errore: " & LastException.Message , True)
    End If
End Sub

A te la scelta del nome per l'Evento.
Quello attuale con la sintassi come un indirizzo internet diviso da punti non credo sia buono.
Fammi sapere

 

T

toro1950

Active Member

Licensed User

• Sep 1, 2023

• #12

Ok, ora funziona, Grazieeeeeeeee!!!!