e-Mail mit Anhang aus Excel versenden

[felkur]

Hallo zusammen :22:

Ich benützte Office 2011 für Mac

Der folgende Code öffnet das Mail. Wie kann ich noch ein Attachment anhängen?

Sub TabellenblattVerschicken()

Dim strAn As String
Dim strBetr As String
Dim strDatei As String

ActiveSheet.Copy

 strAn = "muster@sunrise.ch"
 strBetr = "Bestellung"
 
 ActiveWorkbook.FollowHyperlink Address:="mailto:" & strAn & _
                                    "?subject=" & strBetr '
 End Sub


Besten Dank für die Hilfe.

Kurt

[00202]

Hallo, :19:

da würde ich auch weinen. :21:

Alles "Pfannenfertig" bei Ron de Bruin.