automatischer Mailversand über Outlook

Sub MehrMails()
Dim strPath As String, strFile As String
Dim strMitgl(1 To 20) As String, strAnr(20) As String, strEml(20) As String
Dim strsh20 As String
Dim ii As Integer, jj As Integer, i As Integer
With Sheets("Mails")
For ii = 1 To 9
strMitgl(ii) = .Cells(ii, 1)
strAnr(ii) = .Cells(ii, 2)
strEml(ii) = .Cells(ii, 3)
Next ii
End With
strsh20 = "Gesamt K10"
For ii = 1 To 9
Application.ScreenUpdating = False
Sheets(Array(strMitgl(ii), strsh20)).Copy ' 2 Sheets werden ausgewählt
For jj = 1 To Sheets.Count
Sheets(jj).Activate
Call Verknuepfungen_löschen
Next jj
Application.CutCopyMode = False
strPath = "C:\Windows\Temp\"
strFile = strPath & strMitgl(ii) & ".xls"
With ActiveWorkbook
.SaveAs strFile
Senden strFile, strAnr(ii), strEml(ii)  ' mit 3 Parametern
.Close
End With
Kill strFile 'Datei löschen
Next ii
Application.ScreenUpdating = True
End Sub

Besten Dank!
mfg