#1
|
|||
|
|||
VBA Code For Submit Button
Hi all
I have got a submit button on my word document that once clicked sends to a specific Email, is it possible that once clicked the button disappears and shows Form Submitted? my current code is. Code:
Private Sub SubmitButton1_Click() Label1.Visible = True 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 = "Form submited" .Body = "" .To = "none@none.com" .Importance = olImportanceNormal .Attachments.Add Doc.FullName .Send End With Application.ScreenUpdating = True Set Doc = Nothing Set OL = Nothing Set EmailItem = Nothing End Sub |
#2
|
||||
|
||||
Personally I would add a ribbon tab to the document to hold the submit button, however the following will disable and change the caption on the submit button.
Code:
Private Sub SubmitButton1_Click() 'Label1.Visible = True Dim OL As Object Dim EmailItem As Object Dim Doc As Document Application.ScreenUpdating = False Set OL = CreateObject("Outlook.Application") Set EmailItem = OL.CreateItem(0) Set Doc = ActiveDocument SubmitButton1.Enabled = False SubmitButton1.Caption = "Form submitted" Doc.Save With EmailItem .Subject = "Form submitted" .Body = "" .To = "none@none.com" .Importance = 1 .Attachments.Add Doc.FullName .Send End With Application.ScreenUpdating = True Set Doc = Nothing Set OL = Nothing Set EmailItem = Nothing End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Hello mate
How would you make a submit button in a ribbon tab? I have never done one before Quote:
|
#4
|
||||
|
||||
Start with http://gregmaxey.mvps.org/word_tip_p...bbon_main.html which explains the basics of ribbon editing, then see how the ribbon and code are used in the attached - or simply replace the text in the attached with your form.
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Submit Button Req that populates email address | phorsley | Word VBA | 1 | 10-17-2017 04:50 PM |
Code for column button? | cloudforgiven | Excel Programming | 1 | 12-18-2016 07:42 AM |
Submit to Email Command Button | rob7676 | Word VBA | 0 | 08-20-2015 05:05 AM |
VBA Code in a UserForm module to delete a Command Button which opens the userform | Simoninparis | Word VBA | 2 | 09-21-2014 03:50 AM |
VBA Code for a SUBMIT button in a Word form | BlueMax | Word VBA | 3 | 08-07-2013 06:26 AM |