Problema invio email su una gmail.

[Dario the best]

Salve, programmo in asp.net / vb.net.
Vi riporto il codice di invio email, funzionante per tutte le tipologie di email di destinazione, tranne su gmail.

Dim oMail As New System.Net.Mail.MailMessage
        Dim oSmtp As New System.Net.Mail.SmtpClient(SmtpSvr) 'euroimpianti.it / server 
        Dim cMittente As New System.Net.Mail.MailAddress("noreply@sito.it")
        Dim cRealMitt As New System.Net.Mail.MailAddress("email@gmail.com")
        oMail.From = cRealMitt
        oMail.ReplyTo = cMittente
        oMail.To.Add(Email)
        oMail.Subject = "Messaggio ricevuto dal sito " & Sito
        oMail.Body = "<div style=""Font-Family:Tahoma; color:#212121; font-size:13px;"">" &
                                     "</b><b>Nominativo: </b>" & txNominativo.Text.Replace("'", "''") &
                                     "<br><br><b>Email: </b>" & txEmail.Text.Replace("'", "''") &
                                     "<br><br><b>Telefono: </b>" & txTelefono.Text.Replace("'", "''") &
                                     "<br><br><b>Oggetto: </b>" & txOggetto.Text.Replace("'", "''") &
                                     "<br><br><b>Messaggio: </b>" & txMessaggio.Text.Replace("'", "''") &
                                 "</div>"
        oMail.Priority = Net.Mail.MailPriority.High
        oMail.IsBodyHtml = True


        Try
            oSmtp.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
            oSmtp.Send(oMail)
        Catch ex As Exception
            lbErrore.Visible = True
            lbErrore.Text = "Errore nell'invio: " & ex.Message
            Exit Sub
        End Try

Ho fatto un po' di ricerche, invano. Se qualcuno si è mai cimentato con una problematica simile e vuole darmi un consiglio, ringrazio in anticipo.

[Misterxxx]

Io uso questo e funziona anche con gmail (ho sostituito le stringhe con il relativo contenuto):

Try            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("miamail@gmail.com", "miapassword")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"


            e_mail = New MailMessage()
            e_mail.From = New MailAddress("miamail@gmail.com", mittente)
            e_mail.To.Add(maildestinatario)
            e_mail.CC.Add(maildestinatarioCC)
            e_mail.Subject = "Oggetto"
            e_mail.IsBodyHtml = False
            e_mail.Body = "corpomail"
            e_mail.Attachments.Add(New Attachment(path allegato))
            Smtp_Server.Send(e_mail)
            MsgBox("Ordine inviato", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Invia ORDINE")
        Catch error_t As Exception
        End Try

[Dario the best]

Lo testerò subito. Grazie mille, speriamo bene.

[alka]

Salve, programmo in asp.net / vb.net.

Discussione replica di questa già aperta in passato: (vedi qui).
Non si aprono più discussioni per lo stesso problema.