Gambas-it

Gambas3 => Programmazione => Topic aperto da: dex - 04 Aprile 2019, 19:09:16

Titolo: [Risolto] SmtpClient più destinatari
Inserito da: dex - 04 Aprile 2019, 19:09:16
Ciao raga
Sto usando Smtpclient per l'invio di email,solo che funziona con un solo indirizzo di destinazione, come faccio ad aggiungere più destinatari?

Codice: [Seleziona]
Public Sub Button1_Click()

 Dim SMTP As New SmtpClient
 Dim file_allegato AS String
   
  file_allegato = File.Load("/percorso/dell'eventuale/file/da/allegare")

  With SMTP
    .Host = "nome_Host"
    .Port = Porta_Host
    .User = "nome_utente"
    .Password = "password"
    .Debug = True
    .From = "indirizzo_email_di_chi_invia_la posta"
    .To.Add("indirizzo_email_del_destinatario")
    .Subject = "testo_dell'Oggetto_della_email"
    .Encrypt = Net.SSL
    .Add("testo_del_corpo_dell'email - ossia_il_messaggio")
    If IsNull(file_allegato) = False Then .Add(file_allegato)
    .Send()
  End With

End
Titolo: Re:SmtpClient più destinatari
Inserito da: vuott - 04 Aprile 2019, 20:34:24
...prova a separarli con un punto e virgola.

Esempio:
.To.Add("aaaa@abcd.it; bbbb@abcd.it; cccc@abcd.it")



Titolo: Re:SmtpClient più destinatari
Inserito da: dex - 04 Aprile 2019, 20:44:53
Ciao Vuott
Gia fatto, va in errore

L'unico modo che per ora funziona e aggiungere più .To.Add
ma rallenta molto il programma e sono limitato a pochi destinatari

l'unico modo se non ne esiste uno più veloce è un ciclo For
Titolo: Re:SmtpClient più destinatari
Inserito da: vuott - 04 Aprile 2019, 21:16:48
eh...sì.
Titolo: Re:SmtpClient più destinatari
Inserito da: vuott - 04 Aprile 2019, 23:55:27
Allora... devi utilizzare il Metodo ".Insert( )" della proprietà ".To".

Esempio:

Codice: [Seleziona]
.To.Insert(["aaaa@abcd.it", "bbbb@abcd.it", "cccc@abcd.it"])
Titolo: Re:SmtpClient più destinatari
Inserito da: dex - 05 Aprile 2019, 00:35:45
Ottimo  :ok: :ok:
risolto