diese Makro möchte ich gerne so abändern, dass ich lediglich einen Hyperlink zum ActiveWorkbook versende.
Falls es damit kompliziert würde - vielleicht hat jemand ein ganz anderes Makro?
Private Sub CommandButton5_Click()
'Info an Team
' Excel_Workbook_via_Outlook_Senden()
Dim MyMessage As Object, MyOutApp As Object
Dim Qe As Integer
Dim AWS As String
' 'Outlook Object erstellen
Set MyOutApp = CreateObject("Outlook.Application")
'Outlook Nachricht erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "m.buss@test.de"
.Subject = Range("A1").Text & " " & Range("B1").Text & " " & "neuer Auftrag im Haus"
' .Attachments.Add AWS
.body = "Hallo zusammen," & vbCrLf & vbCrLf & "wir haben einen neuen Auftrag erhalten:" _
& vbCrLf & vbCrLf & vbCrLf & "Gruß" & vbCrLf & vbCrLf & vbCrLf & "(Signatur einfügen)"
.Display
'.Send
End With
' MyOutApp.Quit 'Outlook schliessen
Set MyOutApp = Nothing 'Variablen leeren
Set MyMessage = Nothing
End Sub
Danke schön für jede Hilfe :-)Gruß, Margarete