Here is code that used an option group to "Open" the various Outlook
Forms:
Once you have them started, I am sure you can then do some searching in
the object browser to come up with the fields that you could load in
place of opening the form.
probably in place of the objitem.display, you could load the various
fields within the form.
And below that is code that I found for sending ab appointment
notice/request to give you an idea of what the fields may be.
Good Luck
========================================
Select Case Me.objOutlookFrame
Case 1
Set objItem = spObj.CreateItem(olAppointmentItem)
objItem.Display
Set spObj = Nothing
Me.objOutlookFrame = Null
Exit Function
Case 2
Set objItem = spObj.CreateItem(olContactItem)
objItem.Display
Set spObj = Nothing
Me.objOutlookFrame = Null
Exit Function
Case 3
Set objItem = spObj.CreateItem(olJournalItem)
objItem.Display
Set spObj = Nothing
Me.objOutlookFrame = Null
Exit Function
Case 4
Set objItem = spObj.CreateItem(olMailItem)
objItem.Display
Set spObj = Nothing
Me.objOutlookFrame = Null
Exit Function
Case 5
Set objItem = spObj.CreateItem(olNoteItem)
objItem.Display
Set spObj = Nothing
Me.objOutlookFrame = Null
Exit Function
Case 6
Set objItem = spObj.CreateItem(olTaskItem)
objItem.Display
Set spObj = Nothing
Me.objOutlookFrame = Null
Exit Function
End Selec
=======================================
Visual Basic Copy CodePrivate Sub ThisApplication_Startup(ByVal sender
As Object, _
ByVal e As System.EventArgs) Handles Me.Startup
Dim agendaMeeting As Outlook.AppointmentItem = CType( _
Me.CreateItem(Outlook.OlItemType.olAppointmentItem), _
Outlook.AppointmentItem)
If agendaMeeting IsNot Nothing Then
agendaMeeting.MeetingStatus = _
Outlook.OlMeetingStatus.olMeeting
agendaMeeting.Location = "Conference Room"
agendaMeeting.Subject = "Discussing the Agenda"
agendaMeeting.Body = "Let's get together to discuss the " _
& "agenda."
agendaMeeting.Start = New System.DateTime( _
2005, 5, 5, 5, 0, 0)
agendaMeeting.Duration = 60
Dim recipient As Outlook.Recipient = _
agendaMeeting.Recipients.Add("Nate Sun")
recipient.Type = Outlook.OlMeetingRecipientType.olRequired
agendaMeeting.Send()
End If
End Sub
Ron