Einzelne Tabellenblätter via Mail verschicken
25.11.2013 14:27:44
Ingo
habe folgendes Problem:
Eine große Excel-liste habe ich via Makro in verschiedene Tabellenblättern aufgeteilt. Nach Teilenummer. Jetzt habe ich eine Exceldatei mit 48 Tabellenblättern. So weit so gut.
Jedes Tabellenblatt soll an einen unterschiedlichen E-Mailempfänger gesendet werden. Ansprechpartnermailadresse ist in Range O2 in allen 48 Tabellenblättern vorhanden.
Bei folgendem Makro läuft das Makro problemlos durch und erstellt auch die gewünschte Mail. Beim 2 Tabellenblatt erhalte ich folgende Fehlermeldung: Laufzeitfehler 9.
Bitte um Hilfe. Anbei das Makro:
Public Sub Blattversand()
Dim i As Integer, FName As String, FPfad As String
Dim j As Worksheet
For i = 1 To Worksheets.Count
Sheets(i).Select
Sheets(i).Copy
login = Environ("Username")
'FName = ActiveWorkbook.FullName
FPfad = "C:\Users\" & login & "\Desktop\"
FName = Sheets(i).Cells(3, 1)
ActiveWorkbook.SaveAs Filename:=FPfad & FName, FileFormat:=52, CreateBackup:=False
ActiveWorkbook.Close
Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
.To = Range("O2")
.Subject = "Beispiel"
.Body = Beispiel
'.attachments.Add "C:\Users\" & login & "\Desktop\2.xlsm"
'.attachments.Add "FPfad&FName&" \ ".xlsm"
.attachments.Add "C:\Users\" & login & "\Desktop\" & FName & ".xlsm"
.display
Kill "C:\Users\" & login & "\Desktop\" & FName & ".xlsm"
' ActiveWorkbook.Close
End With
On Error GoTo 0
Set oApp = Nothing
Next
End Sub