Function mailSend(ByVal from As String)
        Dim oMail As New MailMessage
 
        ' SMTP-Server (z.B. T-Online)
        SmtpMail.SmtpServer = "mail.xxxx.ch"
 
        With oMail
            .Fields.Add( _
              "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"_
              , "1")
            .Fields.Add( _
            "http://schemas.microsoft.com/cdo/configuration/sendusername", _
            "Benutzername")
            .Fields.Add( _
            "http://schemas.microsoft.com/cdo/configuration/sendpassword", _
            "Passwort")
            ' Absender
            .From = "xxx@xxxx.ch"
 
            ' Empfänger
            .To = from
 
            ' Betreff
            .Subject = "Test-Nachricht"
 
            ' Nachricht
            .Body = "Dies ist eine Test-Nachricht"
 
            ' Anlagen?
            ' .Attachments.Add(New MailAttachment("Dateiname"))
 
 
        End With
 
        Try
            SmtpMail.Send(oMail)
            MsgBox("Nachricht wurde versandt.")
 
        Catch oEx As Exception
            MsgBox("Fehler: " & oEx.Message.ToString)
 
        End Try
 
    End Function

Fehler: Auf das Objekt 'CDO.Message' konnte nicht zugegriffen werden.