Ich mußte umstellen auf Windows10 und jetzt funktionieren die Makros nicht mehr. Finde leider keine Lösung im Archiv.
Set Mail_Object = CreateObject("Outlook.Application")
With Mail_Object.CreateItem(o)
.Subject = "Bestätigung Ihrer Bestellung mit der Rechnung " & Worksheets("Rechnung").Range("D22")
.To = Sheets("Rechnung").Range("D8")
.Body = Sheets("Rechnung").Range("A33") & Chr(13) & Chr(13) & "wir bedanken uns für Ihr entgegen gebrachtes Vertrauen und bestätigen mit beiliegender Rechnung Ihre Beauftragung." & Chr(13) & Chr(13) & "Für weitere Fragen stehen wir Ihnen gerne zur Verfügung."
.Attachments.Add "E:\Rechnungen\" & "Rechnung" & Sheets("Rechnung").Range("D22") & ".pdf" '
'.Send
.Display
End With