Private Function sendMail(ByVal subject As String, ByVal mailText As _
      String, ByVal recipient As String, ByVal prio As Integer, ByVal bcc As _
      MailAddressCollection) As String
        Dim result As String
        Dim fromAdress As MailAddress = New MailAddress(My.Settings.mailFrom, _
          "Sendername")
        Dim toAdress As MailAddress = New MailAddress(recipient)
        Dim oMail As MailMessage = New MailMessage(fromAdress, toAdress)
 
        ' Neues MailMessage-Objekt
        Dim SmtpMail As New SmtpClient
 
        ' SMTP-Server
 
        SmtpMail.Host = mailserver
 
        With oMail
            .IsBodyHtml = False
 
            ' Betreff
            .Subject = subject
 
            ' Nachricht
            .Body = mailText
 
 
            For Each element As MailAddress In bcc
                .Bcc.Add(element)
            Next
 
            If prio = 0 Then
                .Priority = MailPriority.Low
            ElseIf prio = 1 Then
                .Priority = MailPriority.Normal
            ElseIf prio = 2 Then
                .Priority = MailPriority.High
            End If
 
            ' Erweiterte Mail-Einstellungen
 
            SmtpMail.Credentials = New Net.NetworkCredential(mailuser, _
              mailpassword)
 
        End With
 
        Try
            ' Nachricht senden
            SmtpMail.Send(oMail)
            result = "Mail was sent."
 
        Catch oEx As Exception
            result = oEx.Message
        End Try
 
        Return result
    End Function

--
Wann und wo ? Denn, Dort....!

VB.NET 2005 EE / MySQL / MSSQL EE