D
Dave
Hi,
I have a custom outlook 2002 form with a CommandButton1.
In the "View Code" option I added the following and
selected "Run this form". When the form shows up in my
inbox the click event won't fire.
Sub CommandButton1_Click()
MsgBox "Hello"
End Sub
Eventually I want this to send an email but I wanted to
test it first...
Sub CommandButton2_Click()
Dim Outlook
Set Outlook = CreateObject("Outlook.Application")
Dim Email
Email = Outlook.CreateItem(olMailItem)
With Email
.Subject = "test.."
.Body = "body text..."
.To = "(e-mail address removed)"
.Send
End With
Outlook.Quit
Set Outlook = Nothing
End Sub
I have a custom outlook 2002 form with a CommandButton1.
In the "View Code" option I added the following and
selected "Run this form". When the form shows up in my
inbox the click event won't fire.
Sub CommandButton1_Click()
MsgBox "Hello"
End Sub
Eventually I want this to send an email but I wanted to
test it first...
Sub CommandButton2_Click()
Dim Outlook
Set Outlook = CreateObject("Outlook.Application")
Dim Email
Email = Outlook.CreateItem(olMailItem)
With Email
.Subject = "test.."
.Body = "body text..."
.To = "(e-mail address removed)"
.Send
End With
Outlook.Quit
Set Outlook = Nothing
End Sub