Dim client As New SmtpClient
        With client
            .Host = "smtpserver"
            .Port = 587
            .Timeout = 5 * 60 * 1000
            .DeliveryMethod = SmtpDeliveryMethod.Network
            .EnableSsl = True
            .Credentials = anmeldung
 
            .Send(eMail)
        End With

System.Net.Mail.SmtpException: Fehler beim Senden von Mail. ---> _
  System.IndexOutOfRangeException: Der Index war außerhalb des Arraybereichs.
   bei System.Net.Base64Stream.EncodeBytes(Byte[] buffer, Int32 offset, Int32 _
   count, Boolean dontDeferFinalBytes, Boolean shouldAppendSpaceToCRLF)
   bei System.Net.Base64Stream.Write(Byte[] buffer, Int32 offset, Int32 count)
   bei System.Net.Mime.MimePart.Send(BaseWriter writer)
   bei System.Net.Mime.MimeMultiPart.Send(BaseWriter writer)
   bei System.Net.Mail.Message.Send(BaseWriter writer, Boolean sendEnvelope)
   bei System.Net.Mail.SmtpClient.Send(MailMessage message)
   --- Ende der internen Ausnahmestapelüberwachung ---
   bei System.Net.Mail.SmtpClient.Send(MailMessage message)
   bei WebmailClient.NeueMail.SendMail(String Absender, String Empfänger, _
     String Betreff, String Nachricht, String Cc, String Bcc, ListView Anhänge) _
     in C:\***.vb:Zeile 217.

Private Sub SendMail(ByVal Absender As String, ByVal Empfänger As String, ByVal _
  Betreff As String, ByVal Nachricht As String, _
                         Optional ByVal Cc As String = Nothing, _
                         Optional ByVal Bcc As String = Nothing, _
                         Optional ByVal Anhänge As ListView = Nothing)
        Me.Enabled = False
        Me.Cursor = Cursors.WaitCursor
 
        Dim UserMail As MailAddress = New MailAddress(Username)
 
        Try
            Dim anmeldung As New Net.NetworkCredential
            anmeldung.UserName = Username
            anmeldung.Password = Password
 
            Dim eMail As New MailMessage(Absender, Empfänger)
 
            With eMail
 
                .From = New Net.Mail.MailAddress(Absender)
                If LesebestätigungToolStripMenuItem.Checked = True Then
                    .Headers.Add("Disposition-Notification-To", Chr(34) & "<" & _
                      Absender & ">")
                End If
                'Fügt den Benutzer als Bcc ein, damit eine Kopie der Mail im 
                ' Postfach landet
                If KopieAnAbsenderToolStripMenuItem.Checked = True Then
                    .Bcc.Add(UserMail)
                End If
                .Subject = Betreff
                .IsBodyHtml = False
                .BodyEncoding = System.Text.Encoding.Default
                .Priority = MailPriority.Normal
 
 
                If Not IsNothing(Anhänge) Then
'Anhänge ist ein ListView in der alle angefügten Dateien gesammelt werden wobei 
' in SubItems(2) der Pfad zur Datei steht
                    For i As Integer = 0 To Anhänge.Items.Count - 1
                        Dim aPfad As String = Anhänge.Items(i).SubItems( _
                          2).Text.ToString
                        Dim Anhang = New Attachment(aPfad)
                        .Attachments.Add(Anhang)
                    Next
                End If
 
                '.Attachments.Add(anhang)
                .Body = Nachricht
            End With
 
            Dim client As New SmtpClient
            With client
                .Host = "smtp.mail.emea.microsoftonline.com"
                .Port = 587
                .Timeout = 5 * 60 * 1000
                .DeliveryMethod = SmtpDeliveryMethod.Network
                .EnableSsl = True
                .Credentials = anmeldung
 
                .Send(eMail)
            End With
 
            Me.Close()
 
        Catch ex As Exception
 
            MsgBox(ex.ToString, MsgBoxStyle.Critical)
 
        End Try
        Me.Enabled = True
        Me.Cursor = Cursors.Default
    End Sub

eMail.Attachments.Item(0).TransferEncoding = Net.Mime.TransferEncoding.SevenBit

Joachim