ich habe ein kleines Problem mit meinem VBA Code zum Versenden eines einzelnen Tabellenblattes. Bis zum Punkt .Attachments.Add läuft es gut, doch dann bleibt das Programm stehen und ich weiß leider nicht warum. Könnt Ihr mir da bitte helfen?
Gruß Ulf
Sub einzelnes_Blatt_senden()
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strText As String
Dim strOldBody As String
MailTo = Worksheets("Auswertung").Range("Q4")
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
strPfad = "C:\Windows\Temp"
strBlatt = ActiveSheet.Name
Sheets(strBlatt).Copy
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name
strDatei = ActiveWorkbook.FullName
strText = "Sehr geehrte Damen und Herren,
"
With Mail
.GetInspector.Display
strOldBody = .htmlBody
.To = MailTo
'.CC = ""
.Subject = "Auswertung"
.htmlBody = "" & strText & "" & strOldBody
.attachments.Add strDatei
.Display
'.Send
End With
Workbooks(Dir(strDatei)).Close
Kill (strDatei)
End Sub