#1
|
|||
|
|||
Cant get the submit button to open outlook
I have created my submit button, and entered the following code, however the outlook is not opening, so I cant send my form
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 = "Complaint Form submitted" .Body = "Please find attached complaint form" .To = "dog.info@pncc.govt.nz" .Importance = olImportanceNormal .Attachments.Add Doc.FullName .Send End With Application.ScreenUpdating = True Set Doc = Nothing Set OL = Nothing Set EmailItem = Nothing End Sub |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Help with submit button to email form | JoeFreeman | Word VBA | 1 | 01-28-2023 05:20 PM |
VBA Code For Submit Button | stu_c | Word VBA | 3 | 09-10-2018 04:37 AM |
Submit Button Req that populates email address | phorsley | Word VBA | 1 | 10-17-2017 04:50 PM |
Submit to Email Command Button | rob7676 | Word VBA | 0 | 08-20-2015 05:05 AM |
VBA Code for a SUBMIT button in a Word form | BlueMax | Word VBA | 3 | 08-07-2013 06:26 AM |