08.11.2022, 08:59
Moin,
ich suche jetzt bereits seit Tagen nach einer Lösung für mein Problem:
- es soll eine Tabelle an Outlook übergeben werden (nicht sofort gesendet)
- der Empfänger, Betreff und Text werden aus der Tabelle vorgegeben
- der Anwender soll dann händisch auf senden klicken, nach Sichtung
Ich bekomme in den Code einfach nicht hin, dass die Tabelle mit in der E-Mail erscheint
ab Call verstehe ich das Makro nicht mehr
Ich bitte euch hier um Hilfe
Grüße Detlef
ich suche jetzt bereits seit Tagen nach einer Lösung für mein Problem:
- es soll eine Tabelle an Outlook übergeben werden (nicht sofort gesendet)
- der Empfänger, Betreff und Text werden aus der Tabelle vorgegeben
- der Anwender soll dann händisch auf senden klicken, nach Sichtung
Ich bekomme in den Code einfach nicht hin, dass die Tabelle mit in der E-Mail erscheint

Code:
Sub Senden()
Dim Email As String
Dim Betreff As String
Dim Text As String
Email = Range("z11").Value
Betreff = "Achtung: " & Range("I5").Value
Text = "Sehr geehrte Damen und Herren," & "%0D%0A" & "%0D%0A" & _
"es wurde ..." & _
"Bei Fragen stehen wir gerne zur Verfügung."
Call ShellExecute(0&, "Open", "mailto:" + Email + _
"?Subject=" + Betreff + "&Body=" + Text, "", "", 1)
End Sub
ab Call verstehe ich das Makro nicht mehr
Ich bitte euch hier um Hilfe
Grüße Detlef