Io uso questo e funziona anche con gmail (ho sostituito le stringhe con il relativo contenuto):
codice: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