Re: Outlook Calendar and Tasks
this is the code im using and the main table is called customer and the child table is appointments with the linked field of Customer_ID
Sorry in advance for the amount of fields :-P
dim objOutlook as P
constant olAppointmentItem = 1
objOutlook = ole.GetObject("","Outlook.Application")
objAppointment = objOutlook.CreateItem(olAppointmentItem)
objAppointment.Start = DATE_TUNING_REQUESTED.value '
objAppointment.AllDayEvent = .T.
objAppointment.Subject = CUSTOMER_ID.value + " " + TITLE.text + " " + NAME.text + " " + SURNAME0.text + " C.K"'
objAppointment.Body = CUSTOMER_ID.value + " " + TITLE.text + " " + NAME.text + " " + SURNAME0.text + crlf(1) + " Mobile Numbers= "+ MOBILE.VALUE +crlf(1) +" Phone Numbers= "+ PHONE.VALUE +crlf(1) + ADDRESS.TEXT +crlf(1)+ ADDRESS_2.TEXT +crlf(1)+ TOWN.TEXT+crlf(1)+COUNTY.TEXT +crlf(1)+POST_CODE.TEXT + " AREA = " + AREA.TEXT +crlf(2)+ " E-MAIL = " + EMAIL_ADDRESS.TEXT + crlf(2)+ "Prospect = " + ACTIVE_PASSIVE.text + " Date of enquiry = " + DATE_OF_ENQUIRY.VALUE +crlf(2)+"Date last tuned " + Field4.value + " Priority Customer = " + Field2.value +" Installment Customer = " + INSTALLMENT.value +crlf(1)+ "Piano For Sale = " + SUPPLIED_PIANO.value + " Level = "+ PIANO_OFFERS_ACTIVE_PASSIVE.VALUE + crlf(3)+ "NOTES" +crlf(2)+ Notes.value + crlf(3) + "TS_______ INV________ Paid_________ Unpaid________ Last Charge___________" + crlf(2) + "Updated Notes Below" + crlf(2)'
objAppointment.Location = PHONE.value'
objAppointment.ReminderMinutesBeforeStart = 15
objAppointment.ReminderSet = .T.
objAppointment.Save()
ui_msg_box("Confirmation","Appointment Booked" )
this is the code im using and the main table is called customer and the child table is appointments with the linked field of Customer_ID
Sorry in advance for the amount of fields :-P
dim objOutlook as P
constant olAppointmentItem = 1
objOutlook = ole.GetObject("","Outlook.Application")
objAppointment = objOutlook.CreateItem(olAppointmentItem)
objAppointment.Start = DATE_TUNING_REQUESTED.value '
objAppointment.AllDayEvent = .T.
objAppointment.Subject = CUSTOMER_ID.value + " " + TITLE.text + " " + NAME.text + " " + SURNAME0.text + " C.K"'
objAppointment.Body = CUSTOMER_ID.value + " " + TITLE.text + " " + NAME.text + " " + SURNAME0.text + crlf(1) + " Mobile Numbers= "+ MOBILE.VALUE +crlf(1) +" Phone Numbers= "+ PHONE.VALUE +crlf(1) + ADDRESS.TEXT +crlf(1)+ ADDRESS_2.TEXT +crlf(1)+ TOWN.TEXT+crlf(1)+COUNTY.TEXT +crlf(1)+POST_CODE.TEXT + " AREA = " + AREA.TEXT +crlf(2)+ " E-MAIL = " + EMAIL_ADDRESS.TEXT + crlf(2)+ "Prospect = " + ACTIVE_PASSIVE.text + " Date of enquiry = " + DATE_OF_ENQUIRY.VALUE +crlf(2)+"Date last tuned " + Field4.value + " Priority Customer = " + Field2.value +" Installment Customer = " + INSTALLMENT.value +crlf(1)+ "Piano For Sale = " + SUPPLIED_PIANO.value + " Level = "+ PIANO_OFFERS_ACTIVE_PASSIVE.VALUE + crlf(3)+ "NOTES" +crlf(2)+ Notes.value + crlf(3) + "TS_______ INV________ Paid_________ Unpaid________ Last Charge___________" + crlf(2) + "Updated Notes Below" + crlf(2)'
objAppointment.Location = PHONE.value'
objAppointment.ReminderMinutesBeforeStart = 15
objAppointment.ReminderSet = .T.
objAppointment.Save()
ui_msg_box("Confirmation","Appointment Booked" )
Comment