Run code once form is sent

  • Thread starter Thread starter LDMueller
  • Start date Start date
Status
Not open for further replies.
L

LDMueller

I created a form in Outlook 2003 with a command button. The code behind the

button is as follows:

Sub cmdScheduleNotification_Click()

dte = FormatDateTime(Item.UserProperties("Laptop Needed Date"), vbShortDate)

tme = FormatDateTime(Item.UserProperties("Laptop Needed Time"), vbShortTime)

Set myItem = Application.CreateItem(1)

myItem.MeetingStatus = 1

myItem.Subject = "Issue Equipment"

myItem.Location = "Equipment is for " & Item.UserProperties("For")

myItem.Start = CDate(dte & " " & tme)

myItem.Duration = 0 'was 90

myItem.ReminderMinutesBeforeStart = 30 '1 day reminder = 1440, 1 week =

10080

myItem.BusyStatus = Free

Set myRequiredAttendee = myItem.Recipients.Add ("LDM")

myRequiredAttendee.Type = 1

Set myOptionalAttendee = myItem.Recipients.Add ("JDE")

myOptionalAttendee.Type = 2

myItem.Send

msgbox "Notification has been Scheduled"

End Sub

This code works fine, however, instead of running the code by pressing the

command button, I'd rather the code run once the user presses "SEND" (after

of course they complete the form).

Can someone help me with this.

Thanks in advance!

LDMueller
 
In the form code window select Script, Event Handler. Add the Send event to

the code.

"LDMueller" <LDMueller> wrote in message

news:71E2853F-A676-47A5-B62C-2DD8B4990D1E@microsoft.com...
> I created a form in Outlook 2003 with a command button. The code behind
> the
> button is as follows:

> Sub cmdScheduleNotification_Click()

> dte = FormatDateTime(Item.UserProperties("Laptop Needed Date"),
> vbShortDate)
> tme = FormatDateTime(Item.UserProperties("Laptop Needed Time"),
> vbShortTime)

> Set myItem = Application.CreateItem(1)
> myItem.MeetingStatus = 1
> myItem.Subject = "Issue Equipment"
> myItem.Location = "Equipment is for " & Item.UserProperties("For")
> myItem.Start = CDate(dte & " " & tme)
> myItem.Duration = 0 'was 90
> myItem.ReminderMinutesBeforeStart = 30 '1 day reminder = 1440, 1 week =
> 10080
> myItem.BusyStatus = Free

> Set myRequiredAttendee = myItem.Recipients.Add ("LDM")
> myRequiredAttendee.Type = 1
> Set myOptionalAttendee = myItem.Recipients.Add ("JDE")
> myOptionalAttendee.Type = 2
> myItem.Send

> msgbox "Notification has been Scheduled"

> End Sub

> This code works fine, however, instead of running the code by pressing the
> command button, I'd rather the code run once the user presses "SEND"
> (after
> of course they complete the form).

> Can someone help me with this.

> Thanks in advance!

> LDMueller
 
That was exactly what I needed. I sincerely thank you!

LDMueller
wrote:


> In the form code window select Script, Event Handler. Add the Send event to
> the code.

> >

>

> "LDMueller" <LDMueller> wrote in message
> news:71E2853F-A676-47A5-B62C-2DD8B4990D1E@microsoft.com...
> >I created a form in Outlook 2003 with a command button. The code behind
> >the
> > button is as follows:
> > Sub cmdScheduleNotification_Click()
> > dte = FormatDateTime(Item.UserProperties("Laptop Needed Date"),
> > vbShortDate)
> > tme = FormatDateTime(Item.UserProperties("Laptop Needed Time"),
> > vbShortTime)
> > Set myItem = Application.CreateItem(1)
> > myItem.MeetingStatus = 1
> > myItem.Subject = "Issue Equipment"
> > myItem.Location = "Equipment is for " & Item.UserProperties("For")
> > myItem.Start = CDate(dte & " " & tme)
> > myItem.Duration = 0 'was 90
> > myItem.ReminderMinutesBeforeStart = 30 '1 day reminder = 1440, 1 week =
> > 10080
> > myItem.BusyStatus = Free
> > Set myRequiredAttendee = myItem.Recipients.Add ("LDM")
> > myRequiredAttendee.Type = 1
> > Set myOptionalAttendee = myItem.Recipients.Add ("JDE")
> > myOptionalAttendee.Type = 2
> > myItem.Send
> > msgbox "Notification has been Scheduled"
> > End Sub
> > This code works fine, however, instead of running the code by pressing the
> > command button, I'd rather the code run once the user presses "SEND"
> > (after
> > of course they complete the form).
> > Can someone help me with this.
> > Thanks in advance!
> > LDMueller

>
 
Status
Not open for further replies.
< Could i do this on a CommandBarButton? | Export an email profile to PST >
Similar threads
Thread starter Title Forum Replies Date
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
J Custom form code doesn't run Outlook VBA and Custom Forms 2
J Outlook 2010 VBScript editor does not run code at all Outlook VBA and Custom Forms 0
Wotme code to run outlook add-in Using Outlook 1
J Outlook macro to run before email is being send Outlook VBA and Custom Forms 3
J Outlook, Word, Access crash unless run in Admin mode - time dependent it seems Using Outlook 10
X Run macro automatically when a mail appears in the sent folder Using Outlook 5
V Outlook macros no longer run until VB editor is opened Outlook VBA and Custom Forms 0
J Outlook Rules VBA Run a Script - Multiple Rules Outlook VBA and Custom Forms 0
N Outlook 2021 'Run Script" Rules? Outlook VBA and Custom Forms 4
T Outlook 2010 Errore run-time -2147417851 (80010105) Metodo delete ContactItem non riuscito Outlook VBA and Custom Forms 0
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
G Save attachment run a script rule Outlook VBA and Custom Forms 0
U Outlook 2019 VBA run-time error 424 Outlook VBA and Custom Forms 2
D Outlook 2013 Macros only run in VB editor, not in drop down or button Outlook VBA and Custom Forms 14
D We're sorry but outlook has run into an error Using Outlook 6
M White square in body of Outlook Messages (O2016 Version 2012 32bit Click To Run) Using Outlook 4
E Having some trouble with a run-a-script rule (moving mail based on file type) Outlook VBA and Custom Forms 5
Aussie Rules Run a Script on an Incoming Email OK and then the Email reverts Outlook VBA and Custom Forms 0
A Apply Selected Emails to outlook rules and Run Rules Using Outlook 5
B VBScript doesn't run on Recipient Email Outlook VBA and Custom Forms 2
A Run-time error '430' on certain emails when trying to set "Outlook.mailitem" as "ActiveExplorer.Selection.Item" Outlook VBA and Custom Forms 2
S Outlook Custom Form Scripting only working when clicking on "Run this form" Outlook VBA and Custom Forms 2
Y Outlook 2013 Run A Script Outlook VBA and Custom Forms 4
O Outlook 2016 This rule will only run when you check your email in Outlook.... Using Outlook 4
B run scripts Using Outlook 1
A Run time error 424. object required in outlook 2013 Outlook VBA and Custom Forms 10
Dave A Run macro on existing appointment when it changes Outlook VBA and Custom Forms 1
O Run macro automatically at sending an email Using Outlook 11
P errors appear every time I run SCANPST Using Outlook 3
B Outlook rule run a Script doesn't work Outlook VBA and Custom Forms 1
S VBA Macro - Run-time error '424': object required - Help Please Outlook VBA and Custom Forms 3
B Wanting to run a script that will filter any body that has a russian link in it. Outlook VBA and Custom Forms 5
P Run Time Error 91 when linking contact to task in VBA Outlook VBA and Custom Forms 1
O Having rules run on old mails noved to inbox Outlook VBA and Custom Forms 8
Bri the Tech Guy Registry Tweak to make "Run a Script" Action Available Outlook VBA and Custom Forms 2
Bri the Tech Guy Run Script rule not running for newly arriving messages Outlook VBA and Custom Forms 25
J VBA Run When Reply Outlook VBA and Custom Forms 4
Vijay Error in rule- Run a script Using Outlook 1
Vijay Run script doesn't work in outlook Using Outlook 1
O VBA to Run Font Change on Outlook Startup Outlook VBA and Custom Forms 4
D Creating an outlook session from Access vba but run silently. With A specific profile Outlook VBA and Custom Forms 1
Diane Poremsky Run a Script Rule: Send a New Message when a Message Arrives Using Outlook 2
Diane Poremsky Using Scanpst in Outlook Click to Run Using Outlook 0
oliv- How to Run a Script IN AN ADDIN with Outlook's Rules and Alerts Outlook VBA and Custom Forms 2
L Run a Script Rule doesn't work Using Outlook 5
B Can't run macro from QAT when emailing from Acrobat Outlook VBA and Custom Forms 0
X Outlook script to run excel data Outlook VBA and Custom Forms 1
D How to Run a Report Based on Age of Inbox Items Outlook VBA and Custom Forms 0

Similar threads

Back
Top