aus Excel neue Mail erstellen + anhängen
07.07.2022 14:48:35
Micha
mit dem untenstehenden Schnipsel möchte ich, dass Excel
- durch klick auf einen bestimmten Button in einer Excel-Datei eine neue Mail in Outlook öffnet
- diese Datei (in der der Benutzer vorher Daten eingetragen hat) als Anhang zur e-Mail hinzufügt
- den Mail-Empfänger selbstständig aus Zelle F2 holt
- einen definierten Namen (aus Zelle H2) zusätzlich zum Datum in die Betreffzeile einfügt.
Alles funktioniert super, außer der Tatsache, dass an die Mail nur das leere Excel-Template angehängt wird. Die vorher vom Benutzer eingetragenen Daten fehlen :-(
Kurioserweise funktioniert es bei mir ohne Probleme. Versucht es eine meiner Testpersonen, kommt nur das "leere" Template bei mir an.
Ist da im Code etwas falsch oder woran könnte das liegen?
Vielen Dank im Voraus für hilfreiche Unterstützung.
Grüsse
Micha
Sub EmailManuellAbsenden()
Dim objOutlook As Object
Dim objMail As Object
Dim olOldbody As String
Set objOutlook = CreateObject(Class:="Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.GetInspector.Display
olOldbody = .htmlBody
.To = Range("F2").Text
.Subject = "Anfrage allgemein " & Date & " " & Range("H2").Value
.htmlBody = " Text" & _
olOldbody
.Attachments.Add ThisWorkbook.FullName
.Display
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub