fillable form in word

[jaiswalr]

I would like to create a fillable form in word where after inputting the data
and clicking on submit the file is saved in a location with the name of the file
as the name which we input there and an email is sent to a group of individual
for notification purpose.

Eg:

First Name Rohit
Last Name
Jaiswal

Request ID 12345

The email which goes to group should have
the Subject line as "Kindly Review this for Rohit Jaiswal".
and the body
should contain "Request id 12345 has been completed, request you to please
review and if required make necessary changes". and the form is saved with Name
"Rohit Jaiswal" to the desired location.(eg: d drive)

When we have a 2nd
request as below.

First Name ABC
Last Name DEF

Request ID
98765

After entering the details and clicking on submit
The email
which goes to group should have the Subject line as "Kindly Review this for ABC
DEF".
or May be the Request ID reflects in the Subject line. and the form is
saved with ABC file name to the same location. (eg d drive)
and the body
should contain "Request id 98765 has been completed, request you to please
review and if required make necessary changes".

 

[Macropod]

Cross-posted at: fillable form in word
Please read Mr Excel's policy on Cross-Posting in rule 13: Forum Rules

 

[jaiswalr]

I can understand the policy however we have not come to a solution on this hence I have posted it here. If anyone can help me here what I need would be great and will help me a lot. Hope to hear a solution soon on what is required and how quickly can we do it.

 

[MARK858]

I would like to create a fillable form in word

And you have done what towards this project?

At the very least upload a copy of your form to a free file hosting site like box.com or dropbox.com so that posters can see what you are dealing with and post the link it provides in the thread, then you might get someone to help with some bits of it as I doubt anyone is going to write the whole project for you.

 

[Macropod]

we have not come to a solution on this hence I have posted it here.

This difference in posting times between both forums was barely 1hr. Expecting someone to supply a tailor-made form for you within 1hr when you haven't even provided a copy (which you could have done at MSOfficeForums when you posted there) showing what it's supposed to look like is plain rude...

 

[Worf]

A generic example:

' ThisDocument module
Private Sub CommandButton1_Click()              ' submit button
Me.SaveAs2 "c:\pub\" & Me.ContentControls(1).Range.Text & Replace(Time, ":", "") & ".doc"
SendInMail
End Sub


Sub SendInMail()
Dim bStarted As Boolean, OL As Outlook.Application, oItem As MailItem
On Error Resume Next
Set OL = GetObject(, "Outlook.Application")
If Err <> 0 Then
    Set OL = CreateObject("Outlook.Application")
    bStarted = True
End If
On Error GoTo 0
Set oItem = OL.CreateItem(olMailItem)
With oItem
   .to = "recipient@mail.com"
    .CC = "recipient2@mail.com"
    .Subject = "Kindly review this for " & Me.ContentControls(1).Range.Text & _
    " " & Me.ContentControls(2).Range.Text
    .Body = "Request #" & Me.ContentControls(3).Range.Text & " completed."
    .Display
End With
'If bStarted Then OL.Quit
Set oItem = Nothing
Set OL = Nothing
End Sub