Newbie Questions

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

sheep — Mon, 02 Nov 2009 14:43:48 GMT

Thank you!

Unfortunaly a error occurt. Run Time Error | object demans: 'Main DataSource'

Can you tell me what I am doing wrong?

--- below the code

Sub CTRL59_7_OnClick(eventObj)

Dim dateIndex, timeIndex, descriptionIndex, duration, reminderTime
Dim eventDate(), eventTime(), eventDescription(), i
Dim objOutlook
Dim myItem
Dim SubjectField1

Set objOutlook = CreateObject("Outlook.Application")
Set myItem = objOutlook.CreateItem(1)

SubjectField1 = MainDataSource.CreateNavigator().SelectSingleNode("/dfs:myFields/dfs:dataFields/d:Klanten/@Klantnummer", NamespaceManager)
string SubjectSeed1 = SubjectField1.Value

myItem.MeetingStatus = 1
myItem.Subject = SubjectSeed1
myItem.Location = "B"
myItem.Start = #10/1/2009 1:30:00 PM#
myItem.Duration = 60
myItem.Send

End Sub

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

BuildPro Guru — Thu, 29 Oct 2009 19:53:06 GMT

Well, there are many ways to do that, but here is how I did it. First you have to get the value from the field and define it as a string. The red text is the xpath to the field that contains the information that you want to be the subject - yours will be different than mine.

//Subject

XPathNavigator SubjectField1 = MainDataSource.CreateNavigator().SelectSingleNode("/dfs:myFields/dfs:dataFields/d:Buyers/d:WorkOrders/@WorkOrderType", NamespaceManager);

string SubjectSeed1 = SubjectField1.Value;

Then assign that string to the myAppointment.Subject object like this:

myAppointment.Subject = (SubjectSeed1);

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

sheep — Mon, 26 Oct 2009 14:01:34 GMT

but how ?

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

BuildPro Guru — Mon, 26 Oct 2009 11:25:17 GMT

Yes. Set the value of the myAppointment.Subject property to the path of the textbox that contains the text that will be the subject of the appointment.

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

sheep — Sun, 25 Oct 2009 08:19:17 GMT

Hi!

thanx for this interesting information.

I have a question.

can " Subject" be changed by a written input of a textbox?

Kind regards

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

BuildPro Guru — Thu, 08 Jan 2009 19:54:32 GMT

Actually, I fixed it! I got confused with my naming conventions. Here is the final draft.

//First thing you need to do is add a reference to Microsoft Outlook 12.0 Object Library. Then, create new instance of Microsoft.Office.Interop.Outlook.Application object:

Microsoft.Office.Interop.Outlook.Application outlookApp = new Microsoft.Office.Interop.Outlook.Application();

// Get the namespace

Microsoft.Office.Interop.Outlook.NameSpace ns = outlookApp.GetNamespace("MAPI");

// Create a receipient object that is going to be the organizer of the appointment

Microsoft.Office.Interop.Outlook.Recipient myOrganizer = ns.CreateRecipient("apcarroll"); myOrganizer.Resolve();

// Open the shared calendar for the receipient

Microsoft.Office.Interop.Outlook.MAPIFolder sharedCalendar = ns.GetSharedDefaultFolder(myOrganizer, Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderCalendar);Microsoft.Office.Interop.Outlook._AppointmentItem myAppointment = (Microsoft.Office.Interop.Outlook._AppointmentItem)sharedCalendar.Items.Add(Microsoft.Office.Interop.Outlook.OlItemType.olAppointmentItem);

//Next, create an instance of AppointmentItem object and set the properties:

//Microsoft.Office.Interop.Outlook.AppointmentItem oAppointment = (Microsoft.Office.Interop.Outlook.AppointmentItem)outlookApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olAppointmentItem);

myAppointment.Subject = "This is the subject for my appointment";

myAppointment.Body = "This is the body text for my appointment";

myAppointment.Location = "Appointment location";

// Set the start date

myAppointment.Start = Convert.ToDateTime("01/10/2009 10:00:00 AM");

// End date

myAppointment.End = Convert.ToDateTime("01/10/2009 2:00:00 PM");

// Set the reminder 15 minutes before start

myAppointment.ReminderSet = true;

myAppointment.ReminderMinutesBeforeStart = 15;

//Setting the sound file for a reminder:

myAppointment.ReminderPlaySound = true;

//Setting the importance:

//use OlImportance enum to set the importance to low, medium or high

myAppointment.Importance = Microsoft.Office.Interop.Outlook.OlImportance.olImportanceHigh;/* OlBusyStatus is enum with following values:

olBusy

olFree

olOutOfOffice

olTentative

myAppointment.BusyStatus = Microsoft.Office.Interop.Outlook.OlBusyStatus.olBusy;

//Finally, save the appointment:

// Save the appointment

myAppointment.Save();

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

BuildPro Guru — Thu, 08 Jan 2009 19:41:55 GMT

I got it to work in my calendar like a charm, but you know that I can't just stop there. Now i am trying to set one up in a calendar that someone has shared with me. This is what I have so far, but it just keeps putting the appointment in my calendar. Can you see where I am going wrong?

//First thing you need to do is add a reference to Microsoft Outlook 12.0 Object Library. Then, create new instance of Microsoft.Office.Interop.Outlook.Application object:

Microsoft.Office.Interop.Outlook.Application outlookApp = new Microsoft.Office.Interop.Outlook.Application();

// Get the namespace

Microsoft.Office.Interop.Outlook.NameSpace ns = outlookApp.GetNamespace("MAPI");

// Create a receipient object that is going to be the organizer of the appointment

Microsoft.Office.Interop.Outlook.Recipient myOrganizer = ns.CreateRecipient("apcarroll"); myOrganizer.Resolve();

// Open the shared calendar for the receipient

//Next, create an instance of AppointmentItem object and set the properties:

Microsoft.Office.Interop.Outlook.AppointmentItem oAppointment = (Microsoft.Office.Interop.Outlook.AppointmentItem)outlookApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olAppointmentItem);

oAppointment.Subject = "This is the subject for my appointment";

oAppointment.Body = "This is the body text for my appointment";

oAppointment.Location = "Appointment location";

// Set the start date

oAppointment.Start = Convert.ToDateTime("01/10/2009 10:00:00 AM");

// End date

oAppointment.End = Convert.ToDateTime("01/10/2009 2:00:00 PM");

// Set the reminder 15 minutes before start

oAppointment.ReminderSet = true;

oAppointment.ReminderMinutesBeforeStart = 15;

//Setting the sound file for a reminder:

oAppointment.ReminderPlaySound = true;

//Setting the importance:

//use OlImportance enum to set the importance to low, medium or high

oAppointment.Importance = Microsoft.Office.Interop.Outlook.OlImportance.olImportanceHigh;/* OlBusyStatus is enum with following values:

olBusy

olFree

olOutOfOffice

olTentative

oAppointment.BusyStatus = Microsoft.Office.Interop.Outlook.OlBusyStatus.olBusy;

//Finally, save the appointment:

// Save the appointment

oAppointment.Save();

}

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

BuildPro Guru — Tue, 06 Jan 2009 20:40:09 GMT

Thanks Hilary! I think that we may have found the same article - but I wasn't getting very far! Full trust you say? I hate that! I'll give it a whirl.

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

Hilary Stoupa — Tue, 06 Jan 2009 20:33:57 GMT

I found a fantastic sample here. Be sure to read the comments below the sample, since there were some issues / fixes.

Basically, you'll need to add a reference to Microsoft.Office.Interop.Outlook to your project. Here is a little more info on how to do that. It's under the COM tab. Adding a using statement to the top of the code should keep you from having to preface every instance of 'Outlook' in this sample with 'Microsoft.Office.Interop". This is almost exactly the same code from the sample, with a few errors corrected. Note that your form will have to be full trust, and if you want to use info from your form as values for the appointment, you'll need to add that. I did try this locally, and it created an appointment in my calendar.

            //First thing you need to do is add a reference to Microsoft Outlook 12.0 Object Library. Then, create new instance of Microsoft.Office.Interop.Outlook.Application object:

            Outlook.Application outlookApp = new Outlook.Application();

            //Next, create an instance of AppointmentItem object and set the properties:

            Outlook.AppointmentItem oAppointment = (Outlook.AppointmentItem)outlookApp.CreateItem(Outlook.OlItemType.olAppointmentItem);

            oAppointment.Subject = "This is the subject for my appointment";

            oAppointment.Body = "This is the body text for my appointment";

            oAppointment.Location = "Appointment location";

            // Set the start date

            oAppointment.Start = Convert.ToDateTime("01/10/2009 10:00:00 AM");

            // End date

            oAppointment.End = Convert.ToDateTime("01/10/2009 2:00:00 PM");

            // Set the reminder 15 minutes before start

            oAppointment.ReminderSet = true;

            oAppointment.ReminderMinutesBeforeStart = 15;

            //Setting the sound file for a reminder:

             oAppointment.ReminderPlaySound = true;

            //Setting the importance:

            //use OlImportance enum to set the importance to low, medium or high

            oAppointment.Importance = Outlook.OlImportance.olImportanceHigh;

            /* OlBusyStatus is enum with following values:

            olBusy

            olFree

            olOutOfOffice

            olTentative

            */

            oAppointment.BusyStatus = Outlook.OlBusyStatus.olBusy;

            //Finally, save the appointment:

            // Save the appointment

            oAppointment.Save();

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

BuildPro Guru — Tue, 06 Jan 2009 17:31:53 GMT

Sorry...IP 2007 and OL 2007.

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

Hilary Stoupa — Tue, 06 Jan 2009 15:46:55 GMT

You'll have to remind me again of your preferred object model -- are you using 2003 or 2007?

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

BuildPro Guru — Tue, 06 Jan 2009 13:28:53 GMT

Hello Hilary! I hope that you had a very Merry Christmas and a Happy New Year! I spent my New Years Eve sipping Alka Seltzer and Robotussin! All better now though.

Anyway, I need to do this in C# and would greatly appreciate your expert assistance.

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

Hilary Stoupa — Fri, 14 Nov 2008 18:03:04 GMT

So was the Recipients.Add the way to go? If so, thanks for posting the answer to help others!

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

testuser — Fri, 14 Nov 2008 06:45:13 GMT

Hi Hilary,

is it also possible to add particpants to an appointment via infopath? I tried itmAppt.CC but
I failed.

I found a solution:

Sub CommandButton1_Click()
Set myItem = Application.CreateItem(1)
myItem.MeetingStatus = 1
myItem.Subject = "Strategy Meeting"
myItem.Location = "Conference Room B"
myItem.Start = #9/24/03 1:30:00 PM#
myItem.Duration = 90
Set myRequiredAttendee = myItem.Recipients.Add ("Nate Sun")
myRequiredAttendee.Type = 1
Set myOptionalAttendee = myItem.Recipients.Add ("Kevin Kennedy")
myOptionalAttendee.Type = 2
Set myResourceAttendee = myItem.Recipients.Add("Conference Room B")
myResourceAttendee.Type = 3
myItem.Send
End Sub

Re: Can InfoPath (2003 SP1) add an event in Outlook Calendar?

Ellya — Thu, 10 Jul 2008 15:13:12 GMT

Many thanks for that, I'll give it a bash in a mo and let you know how I get on.

Cheers, Ellya