1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Private Sub CommandButton1_Click()
Dim docname As String
Dim docname2 As String

docname = ActiveDocument.FormFields("aunr").Result
docname2 = docname + ".doc"

ActiveDocument.SaveAs (docname2)

ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
    .Subject = docname + ".doc"
    .AddRecipient "empfänger@domain.de"
    .AddRecipient "empfänger2@domain.de"
    .Delivery = wdAllAtOnce
End With
ActiveDocument.Route
End Sub