mailversand in word über vba

Private Sub CommandButton1_Click()
With ActiveDocument
With .Mailer
.Subject = "Hier ist das Dokument"
.ToRecipients = Array("Sieglinde")
.CCRecipients = Array("Adam", "Bernard")
.BCCRecipients = Array("Chris")
.Enclosures = Array("TestDatei")
End With
.SendMailer
End Sub