#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 |
#2
|
||||
|
||||
The code works on my machine so let's step through possible problems.
1. CreateObject 'could' be a problem if Outlook was already open. So you might tell vba to ignore errors and try getobject first and if no object is created, then use createobject 2. You can add DoEvents after opening the app to give it time to load before proceeding with the next steps 3. If you are using late binding to create the application then don't use variables that are only available when a reference is set to that application. olMailItem and olImportanceNormal should be replaced by their integer value.
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
|
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 |