Buongiorno a tutti.
Premetto che quello che vi stò per chiedere non è per la realizzazione di un programma "nocivo", ma per un applicativo con fini informativi.
La questione è questa:
Dim oMsg As New MailMessage
Dim Destinatari() As String
Dim oSmtp As New SmtpClient(smtpclient)
Dim oUserTocken As Object = oMsg
Try
oMsg.From = New MailAddress(EmailMittente, NomeMittente)
Destinatari = Split(EmailDestinario, ";")
For i As Integer = Destinatari.GetLowerBound(0) To Destinatari.GetUpperBound(0)
oMsg.To.Add(Destinatari(i))
Next
oMsg.IsBodyHtml = True
oMsg.BodyEncoding = System.Text.Encoding.UTF8
oMsg.Subject = Subject
oMsg.Body = Messaggio
oMsg.IsBodyHtml = True
oMsg.Priority = MailPriority.High
oSmtp.DeliveryMethod = SmtpDeliveryMethod.SpecifiedPickupDir
oSmtp.UseDefaultCredentials = True
oSmtp.SendAsync(oMsg, oUserTocken)
Catch ex As System.Exception
Console.WriteLine(ex.Message.ToString)
Finally
oMsg.Dispose()
End Try
Il problema è il seguente. Il messaggio non viene spedito durante l'esecuzione del programma, ma solamente al suo stop. Ossia: se genera 10 email, queste verranno spedite solamente al alla pressione dello stop (in debug) e mai prima. Naturalmente, non è quello che voglio.
Quello che vorrei è un invio immediato della email. Naturalmente senza nessuna necessità di stoppare il programma.
Ringrazio tutti in anticipo.

Rispondi quotando