newbie needs help with forms

[Kirsten Steintrager]

I need to know how to do a form in Outlook. There are no real instructions
in the help function. The people I will be sending the form to will also be
using outlook. TIA

Beyond Frustrated,
Kirsten

 

[Sue Mosher [MVP]]

Start with Tools | Forms | Design a Form. I've posted lots of basic information at http://www.slipstick.com/dev/forms.htm
--
Sue Mosher, Outlook MVP
Outlook and Exchange solutions at http://www.slipstick.com
Author of
Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers
http://www.slipstick.com/books/jumpstart.htm

 

[John Ford]

While you're at slipstick.com, follow the links to order Sue's Jumpstart book. My copy spends most of its time beside my keyboard, open. Best 30-some bucks of my boss's money I've ever spent!

-jcf

Start with Tools | Forms | Design a Form. I've posted lots of basic information at http://www.slipstick.com/dev/forms.htm
--
Sue Mosher, Outlook MVP
Outlook and Exchange solutions at http://www.slipstick.com
Author of
Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers
http://www.slipstick.com/books/jumpstart.htm

 

[Sue Mosher [MVP]]

Aw shucks, John. That's awfully nice of you to say. Does the book lay open flat OK? I'm always curious how people are using the actual volume.

While you're at slipstick.com, follow the links to order Sue's Jumpstart book. My copy spends most of its time beside my keyboard, open. Best 30-some bucks of my boss's money I've ever spent!

 

[John Ford]

Well, NOW it lays flat just fine. Didn't when I got it.

This is pretty much how I use it:

Dim objBook as OutlookRef.PhysicalBook
Sub Employment(byRef lowPeon as Outlook.Programmer)
Dim objUsers as Outlook.Users
Dim objProject as Outlook.UserRequest
Dim objRequirement as Outlook.Feature
Set objUsers = CreateObject("Outlook.UserBase")
Set objBook = CorpPurchasing.CreateOrder(olJumpStart, lowPeon.Dept)
objBook.OrderNWait
objBook.InsideFrontCover.Scribble(lowPeon.Name)
Do Until lowPeon.Age > 100
For Each objProject in objUsers
For Each objRequirement in objProject
If objRequirement.Solution = Nothing Then
objRequirement.Solution = ReadJumpStart(objRequirement.Keywords)
End If
objProject.Coding = objProject.Coding & _
lowPeon.WriteCode(objRequirement.Solution)
Next
Next
Loop
objRequirement = Nothing
objProject = Nothing
objBook = Nothing
objUsers = Nothing
End Sub

Function ReadJumpStart(byRef colKeywords As Collection) as String
Dim colPages as OutlookRef.Pages
Dim objPage as OutlookRef.Page
Dim strKeyword as String
For Each strKeyword in colKeywords
Set colPages = objBook.ScanIndex(strKeyword)
For Each objPage in colPages
ReadJumpStart = ReadJumpStart & objPage.Read
objPage.ReadCount = objPage.ReadCount + 1
If objPage.ReadCount > 100 Then
MsgBox "Doh!!!", vbOKOnly, "Message to Self"
objPage.DogEar
End If
Next
Next
objPage = Nothing
colPages = Nothing
End Function


-jcf

Aw shucks, John. That's awfully nice of you to say. Does the book lay open flat OK? I'm always curious how people are using the actual volume.

While you're at slipstick.com, follow the links to order Sue's Jumpstart book. My copy spends most of its time beside my keyboard, open. Best 30-some bucks of my boss's money I've ever spent!

 

[Sue Mosher [MVP]]

LOL! Sounds like you're about ready for the StopBangingHeadAgainstWall function. Thanks for the laughs.


Well, NOW it lays flat just fine. Didn't when I got it.

This is pretty much how I use it:

Dim objBook as OutlookRef.PhysicalBook
Sub Employment(byRef lowPeon as Outlook.Programmer)
Dim objUsers as Outlook.Users
Dim objProject as Outlook.UserRequest
Dim objRequirement as Outlook.Feature
Set objUsers = CreateObject("Outlook.UserBase")
Set objBook = CorpPurchasing.CreateOrder(olJumpStart, lowPeon.Dept)
objBook.OrderNWait
objBook.InsideFrontCover.Scribble(lowPeon.Name)
Do Until lowPeon.Age > 100
For Each objProject in objUsers
For Each objRequirement in objProject
If objRequirement.Solution = Nothing Then
objRequirement.Solution = ReadJumpStart(objRequirement.Keywords)
End If
objProject.Coding = objProject.Coding & _
lowPeon.WriteCode(objRequirement.Solution)
Next
Next
Loop
objRequirement = Nothing
objProject = Nothing
objBook = Nothing
objUsers = Nothing
End Sub

Function ReadJumpStart(byRef colKeywords As Collection) as String
Dim colPages as OutlookRef.Pages
Dim objPage as OutlookRef.Page
Dim strKeyword as String
For Each strKeyword in colKeywords
Set colPages = objBook.ScanIndex(strKeyword)
For Each objPage in colPages
ReadJumpStart = ReadJumpStart & objPage.Read
objPage.ReadCount = objPage.ReadCount + 1
If objPage.ReadCount > 100 Then
MsgBox "Doh!!!", vbOKOnly, "Message to Self"
objPage.DogEar
End If
Next
Next
objPage = Nothing
colPages = Nothing
End Function


-jcf

Aw shucks, John. That's awfully nice of you to say. Does the book lay open flat OK? I'm always curious how people are using the actual volume.

While you're at slipstick.com, follow the links to order Sue's Jumpstart book. My copy spends most of its time beside my keyboard, open. Best 30-some bucks of my boss's money I've ever spent!