Datei an Mail anhängen.............

Option Explicit
Sub Sende()
Dim Sh As Shape
Dim Wert1, Wert2 As Integer
Dim i As Byte
Sheets("Senden").Select
Set Sh = Sheets("Senden").Shapes("Test")
Wert1 = 1
Wert2 = 48
For i = 1 To 20
With Sh
.OLEFormat.Object.Formula = "Anschreiben!$A$" & Wert1 & ":$I$" & Wert2
End With
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
'.Introduction = "Das ist der Einleitungstext." & vbCrLf & "mit einer zweiten Zeile"
.Item.To = "hw-lehnert@gmx.de"
.Item.Subject = "Anschreiben"
.Item.Save
' Funzt leider nicht.......
.Attachments.Add "C:\Dokumente und Einstellungen\Sonnenpeter\Desktop\Testereien bis zum    _
umfallen.xlsx"

'.Item.Send
End With
ActiveWorkbook.EnvelopeVisible = False
ActiveWorkbook.Save
'Ohne ActiveWorkbook.Save funzt es nicht?
Wert1 = Wert1 + 48
Wert2 = Wert2 + 48
Next
End Sub

Da es manuell möglich ist eine Datei anzuhängen, muss das doch auch über VBA möglich sein?
' Funzt leider nicht.......
.Attachments.Add "C:\Dokumente und Einstellungen\Sonnenpeter\Desktop\Testereien bis zum
umfallen.xlsx"

Ich bitte um Hilfe.
Gruß Sonnenpeter