How do you add a line from a fillable word document into a VBA that you are using to email out

[hassinrasool]

Hi everyone,

How do you add a line from a fillable word document into a VBA that you are using to email out that said document?

I have a VBA but I want to enter the name of the person completing the form from a line in the form into the body text of the email. (if that makes sense)

my VBA is:

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

With EmailItem
.Subject = "Referral"
Dim sMsgBody As String
sMsgBody = sMsgBody & "Dear Team" & vbCr & vbCr
sMsgBody = sMsgBody & "Please find attached my completed referral form for a woman to your services" & vbCr & vbCr
sMsgBody = sMsgBody & "Kind Regards," & vbCr


.body = sMsgBody
.To = "person@person.com"
.Importance = 1
.Attachments.Add Doc.FullName
.Send

End With

Application.ScreenUpdating = True

Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing

End Sub