'attachmend hinzufügen
                        If sAttachment <> "" Then
                            sp = Split(sAttachment, ",", -1)
                            For y = 0 To UBound(sp)
                                If sp(y) <> "" Then 'keinen nullstring senden
                                    .AttachmentIndex = y
                                    .AttachmentPosition = y 'zwei attachments 
                                    ' können nicht an der gleichen position in 
                                    ' der email stehen
                                    .AttachmentName = DATNAME(sp(y))
                                    .AttachmentPathName = sp(y)
                                End If
                            Next y
                        End If