Newsgroup: it.comp.appl.access
Titolo: Invio Mail tramite codice

Buongiorno, devo inviare tramite codice una mail che contiene un allegato.
 
Qui sotto scrivo il codice. Non  da alcun tipo di errore,  le variabili prendono il corretto valore, le credenziali sono corrette eppure niente, arrivo a "Email inviata correttamente" ma la mail non parte, ho verificato nella cartella spam, niente anche lì. Cosa sto sbagliando?
 
Private Function InviaMail(pdfFilePath As String, codrif As String, customerdata As Dictionary(Of String, String)) As Boolean
        Dim ragionesociale As String = ""
        If customerdata.ContainsKey("Partita IVA") Then
            ragionesociale = customerdata("Ragione Sociale")
        Else
            ragionesociale = customerdata("Nome")
        End If
 
        Dim oggetto As String = "Preventivo n. " & codrif
        Dim mail As String = customerdata("Email")
        Dim indirizzoMittente As String = "**********"
        Dim passwordMittente As String = "*********"
 
        Dim indirizzoDestinatario As String = mail
 
        Dim contenuto As String = "**********"
 
        Dim messaggio As New MailMessage(indirizzoMittente, indirizzoDestinatario, oggetto, contenuto)
        Dim attachment As New Attachment(pdfFilePath)
        messaggio.Attachments.Add(attachment)
 
        Dim client As New SmtpClient("
smtps.aruba.it
", 587)
        client.EnableSsl = True
        client.Credentials = New NetworkCredential(indirizzoMittente, passwordMittente)
 
        Try
            client.Send(messaggio)
            MessageBox.Show("Email inviata correttamente.")
            Return True
        Catch ex As Exception
            MessageBox.Show("Si è verificato un errore durante l'invio dell'email: " + ex.Message)
            Return False
        End Try
    End Function
 
 
 
 
 
la cosa buffa è che in un'altra sezione di codice relativa al login, tramite mail invio pwd temporanea se utente non si ricorda la password. Il codice alla fine è lo stesso e funziona correttamente, per questo sono sconcertato.
 
Grazie mille
 

 End Try 
Questa non è sintassi VBA, è Vb.Net. O hai inserito qualche funzione che tenta di riprodurre il Try - Catch di Vb.Net?

Errore mio, mi son dimenticato di specificare che si tratta di codice 
vb.net
 e non di vba. Spero non sia OT



prova a mettere la porta 465
BFS


Mettendo la porta 465 non so per quale strano motivo ma si blocca. Con il debugger ho eseguito istruzione per istruzione e una volta eseguito client.Send(messaggio) semplicemente non va avanti, si blocca a questo passaggio


con ssl attivo devi usare 465 e questo è certo
per fare una prova, non usare ssl attivo e metti
smtp.nomedominio.xxx  e porta 25 e vedi se va
 
 
BFS
 


Ciao e grazie per la risposta. Per quanto riguarda la prima parte non saprei, anche nell'altro codice ho ssl attivo e porta 587. Comunque, provando a disabilitare ssl e impostando porta 25 esce messaggio errore "Failure Sending mail"


Allego anche il codice che invece funziona, giusto per completezza!
 
Private Function InviaMail(mail As String)
        Dim oggetto As String = "***********************"
        Dim contenuto As String = "**************** " 
 
        Dim indirizzoMittente As String = "*************"
        Dim passwordMittente As String = "*************"
 
        Dim indirizzoDestinatario As String = mail
 
        Dim messaggio As New MailMessage(indirizzoMittente, indirizzoDestinatario, oggetto, contenuto)
 
        Dim client As New SmtpClient("
smtps.aruba.it
", 587)
        client.EnableSsl = True
        client.Credentials = New NetworkCredential(indirizzoMittente, passwordMittente)
 
        Try
            client.Send(messaggio)
            MessageBox.Show("Email inviata correttamente.")
        Catch ex As Exception
            MessageBox.Show("Si è verificato un errore durante l'invio dell'email: " + ex.Message)
        End Try
    End Function


il codice che ti funziona è il classico della libreria smtp
quindi l'errore è sulle parti aggiunte da te
 
 
intanto ragionesociale a cosa serve? non lo vedo usato da nessuna parte 
o sbaglio?
 
sicuro che indirizzoDestinatario sia valorizzato con un indirizzo 
corretto? fai un debug di customerdata("Email")
 
BFS
 
 
 
 
 
 

corretto? fai un debug di customerdata("Email") 
 
Si è questo che mi manda in confusione, facendo il debug i dati risultano corretti.... oggi non sono in ufficio, Lunedì provo ancora a sbatterci la testa e provo ancora a eseguire istruzione per istruzione e vi aggiorno. Grazie mille