How to save Word file by field name as filename using VBA button?

[TribeBuckeyeFan]

I have created a very simple Word form to be used as evaluations within my department. After the evaluator fills in the various check boxes, dates, etc, I have a simple submit button that sends the completed evaluation as an attachment to the Chief of the department. The very first field on the form is the "clinician being reviewed", a fill in text box. I would like for the subject line of the email AND the file name of the document to be that person's name, then the type of evaluation (I have 3 different evals, depending on what is being done). Example: If I am evaluating Charles Xavier, the file name would be Charles Xavier.doc, and the email subject would be Charles Xavier, Treatment Plan. My code is listed below:


Private Sub CommandButton1_Click()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document



Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument
Doc.SaveAs2 FileName:=("M:\File Name.doc")

With EmailItem
.Subject = "Treatment"
.Body = "" & vbCrLf & _
"" & vbCrLf & _
""
.To = "Chief's email"
.Cc = ""
.Importance = 2
.Attachments.Add Doc.FullName
.Send
Doc.Close
End With

Application.ScreenUpdating = True

Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub

[gmayor]

What sort of 'text field'? What is the name of the text field?
Can you post the form?

[TribeBuckeyeFan]

I'll try to put it up tonight; my work network won't allow me to upload.

[TribeBuckeyeFan]

OK, there we go. Had to send it to myself, then upload from my phone.

[gmayor]

See the attached, which includes a couple of extra functions from my web site. Change the e-mail address(es) and the body text as required.