E-Mail mit Visual Basic.Net verschicken

Dieses Beispiel ist als Modul angelegt (da für eine Konsolenanwendung), kann aber fix auf OO-Programmierung geändert werden. In erster Linie will ich mir Sucherei ersparen.

1. Imports mail = System.Net.Mail
2.  
3. Module EMail
4.     Friend Function EMail(ByVal sAdressat, ByVal sBetreff, ByVal sText) As Boolean
5.         Const csTrennzeichen As String = ";"
6.         Dim oCredentials As New System.Net.NetworkCredential
7.         Dim oClient As New mail.SmtpClient
8.         Dim oEMail As New mail.MailMessage
9.         Dim bReturn As Boolean
10.         Dim asAdressen As String (), sAdresse As String
11.  
12.         bReturn = True
13.         asAdressen = Split(sAdressat, csTrennzeichen)
14.  
15.         With oCredentials
16.             .UserName = My.Settings.EMailUsername
17.             .Password = My.Settings.EMailPasswort
18.         End With
19.  
20.         With oClient
21.             .Host = My.Settings.EMailSmtp
22.             .Port = My.Settings.EMailSmtpPort
23.             .UseDefaultCredentials = False
24.             .Credentials = oCredentials
25.         End With
26.  
27.         Try
28.             With oEMail
29.                 .IsBodyHtml = False
30.                 .From = New mail.MailAddress (My.Settings.EMailAbsender)
31.  
32.                 For Each sAdresse In asAdressen
33.                     .To.Add(sAdresse)
34.                 Next
35.  
36.                 .Subject = sBetreff
37.                 .Body = sText
38.             End With
39.  
40.             oClient.Send(oEMail)
41.  
42.         Catch ex As Exception
43.             Console .WriteLine("Fehler: " & ex.Message)
44.             bReturn = False
45.         End Try
46.  
47.         Return bReturn
48.     End Function
49. End Module
50.  
51.  

Info für mich: Liegt auf dem Asus im Projekteordner.