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
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