Imports System.Net.Mail
Imports System.Net.Mail.SmtpClient
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim iMsg As Object
        Dim iConf As Object
        Dim Flds As Object
        Dim eMailAddresse As String = ""
        Dim BCCMail As String = ""
        Dim Absender As String = ""
        Dim SmtpServer As String = ""
 
        'eMailVersand
        iMsg = CreateObject("CDO.Message")
        iConf = CreateObject("CDO.Configuration")
 
        iConf.Load(-1)    ' CDO Source Defaults
        Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = _
              2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
            = SmtpServer 
            .Item( _
            "http://schemas.microsoft.com/cdo/configuration/smtpserverport") = _
            25
            .Update()
        End With
 
        With iMsg
            .Configuration = iConf
            .To = eMailAddresse
            .Cc = ""
            .Bcc = BCCMail
            .From = Absender
            .Subject = "TelefonNr"
            .textbody = "Automatisch-generierte Email"
 
' Hier kommt der Fehler:
            .Attachments.Add(New Attachment("C:\temp\test.txt"))
 
            .Send()
        End With
 
 
    End Sub