I think this topic is exhausted (so am I) but I just can’t figure this out…I am trying to automate creating a meeting and sending it out to others. I am using VB.net, Interop.Domino.dll, and Lotus Client. The below code sends out the meeting invite, but when the invitee tries to accept the meeting a message box pops up with the error “Note item not found”, which provides little direction. I looked over several other threads and can’t get the right combination of fields to make this work…any help is appreciated and I can’t get approval to use something like Proposion…Plus, I think this should work…Thanks…
Dim _NotesSession As NotesSession
Dim _localDatabase As NotesDatabase
Dim _appt As NotesDocument
Const pwd As String = "XXXX"
Dim startTime As NotesDateTime
Dim startDate As NotesDateTime
Dim endTime As NotesDateTime
Dim endDate As NotesDateTime
Dim tmStamp As NotesDateTime
'testing addresses
Dim arrEmails(2) As String
Private Sub btnParse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAppt.Click
'initialize Notes session
_NotesSession = New Domino.NotesSessionClass()
_NotesSession.Initialize(pwd)
_localDatabase = _NotesSession.GetDatabase("", "mail\ppaasch.nsf", False)
'test email addresses
arrEmails(0) = "pat.paasch@domain.com"
arrEmails(1) = "paaschpa@domain.com"
Try
_appt.ReplaceItemValue("$PublicAccess", "1")
_appt.ReplaceItemValue("Chair", "CN=Pat Paasch/OU=SMGDM/OU=US/OU=AMERICAS/O=PUBGROUPE")
_appt.ReplaceItemValue("SEQUENCENUM", 1)
_appt.ReplaceItemValue("UpdateSeq", 1)
_appt.ReplaceItemValue("$CSVersion", "2")
_appt.ReplaceItemValue("$SMTPKeepNotesItems", 1)
_appt.ReplaceItemValue("$CSWISL", "$S:1,$L:1,$B:1,$R:1,$E:1,$W:1,$O:1,$M:1")
_appt.ReplaceItemValue("WebDateTimeInit", "1")
_appt.ReplaceItemValue("OrgTable", "C0")
_appt.ReplaceItemValue("STARTDATETIME", "07/20/2007 11:00:00 AM")
_appt.ReplaceItemValue("EndDateTime", "07/20/2007 01:00:00 PM")
_appt.ReplaceItemValue("$CSTrack", "Sent")
_appt.ReplaceItemValue("RequiredAttendees", "paaschpa@gmail.com")
_appt.ReplaceItemValue("Principal", "CN=Pat Paasch/OU=SMGDM/OU=US/OU=AMERICAS/O=PUBGROUPE")
_appt.ReplaceItemValue("altPrincipal", "CN=Pat Paasch/OU=SMGDM/OU=US/OU=AMERICAS/O=PUBGROUPE")
_appt.ReplaceItemValue("CalendarDateTime", "07/20/2007 11:00:00 AM")
_appt.ReplaceItemValue("$NoPurge", "07/20/2007 01:00:00 PM")
_appt.ReplaceItemValue("$BusyName", "CN=Pat Paasch/OU=SMGDM/OU=US/OU=AMERICAS/O=PUBGROUPE")
_appt.ReplaceItemValue("BusyPriority", "1")
_appt.ReplaceItemValue("_ViewIcon", 158)
_appt.ReplaceItemValue("ExcludeFromView", "A,S")
_appt.ReplaceItemValue("Logo", "stdNotesLtr0")
_appt.ReplaceItemValue("From", "CN=Pat Paasch/OU=SMGDM/OU=US/OU=AMERICAS/O=PUBGROUPE")
_appt.ReplaceItemValue("$FromPreferredLanguage", "en-US")
_appt.ReplaceItemValue("altChair", "CN=Pat Paasch/OU=SMGDM/OU=US/OU=AMERICAS/O=PUBGROUPE")
_appt.ReplaceItemValue("AppointmentType", "3")
_appt.ReplaceItemValue("Alarms", "1")
_appt.ReplaceItemValue("Subject", "New Test")
_appt.ReplaceItemValue("StartTime", "11:00:00 AM")
_appt.ReplaceItemValue("EndTime", "01:00:00 PM")
_appt.ReplaceItemValue("StartTimeZone", "Z=6$DO=1$DL=3 2 1 11 1 1$ZX=20$ZN=Central")
_appt.ReplaceItemValue("EndTimeZone", "Z=6$DO=1$DL=3 2 1 11 1 1$ZX=20$ZN=Central")
_appt.ReplaceItemValue("Repeats", "")
_appt.ReplaceItemValue("Location", "Some Room")
_appt.ReplaceItemValue("RoomToReserve", "")
_appt.ReplaceItemValue("Resources", "")
_appt.ReplaceItemValue("OnlineMeeting", "")
_appt.ReplaceItemValue("MeetingType", "1")
_appt.ReplaceItemValue("Presenters", "")
_appt.ReplaceItemValue("OnlinePlaceToReserve", "")
_appt.ReplaceItemValue("Categories", "")
_appt.ReplaceItemValue("SchedulerSwitcher", "1")
_appt.ReplaceItemValue("$WatchedItems", "$S,$L,$B,$R,$E,$W,$O,$M")
_appt.ReplaceItemValue("StartDate", "07/20/2007")
_appt.ReplaceItemValue("EndDate", "07/20/2007")
_appt.ReplaceItemValue("SendTo", "paaschpa@domain.com")
_appt.ReplaceItemValue("body", "some body text")
_appt.ReplaceItemValue("StartTime_2", "11:00:00 AM")
_appt.ReplaceItemValue("StartDate_2", "07/20/2007")
_appt.ReplaceItemValue("EndDate_2", "07/20/2007")
_appt.ReplaceItemValue("EndTime_2", "01:00:00 PM")
_appt.ReplaceItemValue("DispDur_1", "")
_appt.ReplaceItemValue("DispDur_2", "")
_appt.ReplaceItemValue("DispDuration_1", "")
_appt.ReplaceItemValue("tmpStartTime_local", "07/20/2007 11:00:00 AM")
_appt.ReplaceItemValue("Form", "Appointment")
_appt.ReplaceItemValue("tmpAction", "2")
_appt.ReplaceItemValue("tmpWasMailed", "1")
_appt.ReplaceItemValue("orgState", "X")
_appt.ReplaceItemValue("ApptUNID", _appt.UniversalID)
_appt.ReplaceItemValue("tmpOwnerHW", "1")
_appt.ComputeWithForm(True, False)
_appt.Save(True, True, False)
_appt.Send(False)
Catch ex As Exception
_localDatabase = Nothing
_NotesSession = Nothing
End Try
End Sub