2009-12-15 5 views

Répondre

2

Send email in vb.net

Ou

Imports System.Net.Mail 
Public Class Form1 
    Private Sub Button1_Click(ByVal sender As System.Object, _ 
     ByVal e As System.EventArgs) Handles Button1.Click 
     Try 
      Dim SmtpServer As New SmtpClient() 
      Dim mail As New MailMessage() 
      SmtpServer.Credentials = New _ 
       Net.NetworkCredential("[email protected]", "password") 
      SmtpServer.Port = 587 
      SmtpServer.Host = "smtp.gmail.com" 
      mail.From = New MailAddress("[email protected]") 
      mail.To.Add("TOADDRESS") 
      mail.Subject = "Test Mail" 
      mail.Body = "This is for testing SMTP mail from GMAIL" 
      SmtpServer.Send(mail) 
      MsgBox("mail send") 
     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
    End Sub 
End Class 
+1

semble correcte, même si je suggérerais 'L'utilisation du courrier en tant que nouveau MailMessage()' depuis MailMessage implémente IDisposable – MarkJ

+0

En outre, le code instancie une nouvelle MailMessage deux fois. –

+1

c'est le style typique de codage dans l'obscurité de la programmation, en passant par des exceptions jusqu'à ce qu'il «fonctionne». En général, vous verrez toutes les méthodes commencer par essayer et finir par attraper l'exception de base. nous avions un développeur qui ferait l'affaire. catch ex comme exception ... response.write (" ") dans chaque méthode, les utilisateurs ont aimé voir ceux-ci en bonus, s'il y avait une seule citation dans le message d'exception, il y aurait une erreur js et la page ne s'exécuterait pas correctement – Shawn

Questions connexes