Private ObjAttachment As Attachment ' Variable damit wir im Eventhandler 
  ' darauf zugreifen können
    Public Function WriteMail(ByVal tSMTP As String, ByVal tSubject As String, _
                        ByVal tFrom As String, ByVal tTo As String, Optional _
                        ByVal tAttachment As String = "") As Integer
        Dim objToken As New Object
        WriteMail = 0
        Dim oMail As New MailMessage(tFrom, tTo)
 
        ' SMTP-Server
        Dim oSMTP As New SmtpClient
        AddHandler oSMTP.SendCompleted, AddressOf sendMail_SendCompleted
 
        Try
            With oSMTP
                ' Mailserver
                .Host = "127.0.0.1"
                .Port = 25
                .UseDefaultCredentials = True
                .DeliveryMethod = SmtpDeliveryMethod.Network
            End With
 
            With oMail
                .Subject = tSubject
 
                .IsBodyHtml = False
                .Body = tContent
 
                If tAttachment <> "" Then
                    If ObjAttachment Is Nothing Then
                        ObjAttachment = New Attachment(tAttachment) ' Neues 
                        ' Attachment erstellen
                    End If
 
                    .Attachments.Add(ObjAttachment)
                End If
                .Priority = MailPriority.Normal
            End With
 
            oSMTP.SendAsync(oMail, objToken)
 
        Catch ex As Exception
            ErrLog("modMail.WriteMail: " & ex.Message.ToString)
            WriteMail = -1
        End Try
    End Function
 
    Private Sub sendMail_SendCompleted(ByVal sender As Object, ByVal e As  _
      System.ComponentModel.AsyncCompletedEventArgs)
        Dim userToken As Object = e.UserState
        If e.Cancelled Then
            Debug.WriteLine("Email cancelled.")
        End If
 
        If e.Error IsNot Nothing Then
            Debug.WriteLine("Error: {0}", e.Error.ToString)
        Else
            Debug.WriteLine("Email sent!")
            ObjAttachment.Dispose() 'wenn erfolgreich wieder zerstören, und 
            ' damit die Datei freigeben
        End If
        Debug.WriteLine(e.UserState.ToString)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus