Outlook Calendar and Tasks

[johnkoh]

Re: Outlook Calendar and Tasks

David,

One record sample

dim objOutlook as P

objOutlook = ole.create("Outlook.Application")
objAppointment = objOutlook.createitem(olAppointmentItem)

'Find the records from Current Form or get it from Table with filter
'Set the current form's value into VARIABLE
vStartDate = parentfor:start_date.value
vDuration =  parentfor:Duration.value
vSubject = ....
...
...  
'repeating as you need

objAppointment.Start = vStartDate           <--- your Variable NAME
objAppointment.Duration = vDuration
objAppointment.Subject = vSubject
objAppointment.Body = "Test Body "          <-- I think it is for message box
objAppointment.Location = "44/2039"
objAppointment.ReminderMinutesBeforeStart = 15
objAppointment.ReminderSet = .t.

objAppointment.Save()

'that all you need

many - repeating records and using Read and get the records from your_table

dim objOutlook as P
objOutlook = ole.create("Outlook.Application")
objAppointment = objOutlook.createitem(olAppointmentItem)

'Read and get the records from your_table
'Credit to Stan
tbl = table.current(#)  '.or <tbl>.get() 
query.filter ="Some filter here "
query.order ="Your order expression "
qry = tbl.query_create("n",query.filter )     <== find the records from table
tbl.fetch_first()
while .not. tbl.fetch_eof()                       <== loop code, Repeating until reach end of the found records[INDENT]'your present code goes here
objAppointment.Start = tbl.start_date           <--- your table's Field NAME
objAppointment.Duration = tbl.Duration
objAppointment.Subject = tbl.subject
objAppointment.Body = tbl.your_message_field          <-- I think it is for message box
objAppointment.Location = "44/2039"
objAppointment.ReminderMinutesBeforeStart = 15  
objAppointment.ReminderSet = .t.

objAppointmen[/INDENT]t.Save()

tbl.fetch_next()
end while

David, I could be wrong but just want to show you how to do. Try this, write the repeating(loop) code without "outlook_ole" and run it as test.
See the previous Stan's comment.

' a Button ---> OnPush event
tbl = table.get(your_table_name)
query.filter ="Customer_Id="+quote(vCustId)   'my sample
query.order =""
query.options ="N"
qry = tbl.query_create()
rcd = qry.records_get()
	If rcd = 0 then
	    msg("not found ")
            qry.drop()
        end if

	If rcd > 0 then
tbl.fetch_first()
while .not. tbl.fetch_eof()
'your present code goes here
	    vCustNm = alltrim(tbl.Name)
            msg("Found ","for "+vCustNm)
            qry.drop()
tbl.fetch_next()
end while
        end if

[Stan Mathews]

Re: Outlook Calendar and Tasks

If customer_id is numeric

recs = parentform.QueryRun("customer_id = "+customer_id.value) 'get a count of the records with the same customer_id as the record visible on the form
if recs > 0 ' if the count is greater than zero
parentform.Fetch_First() 'make sure we're on the first record of the customer_id
'your present code here 'writes the values from the first record to the outlook calendar
for qx = 1 to recs -1 'loop to process the rest of the records for the current customer (total count - 1 for the first record)
parentform.Fetch_next() 'go to the next record with the same id
'your present code here, again 'writes the values from the next record to the outlook calendar
next 'loop back if more records
end if

[viiddi]

Re: Outlook Calendar and Tasks

sorry to be a pain but im unable to figure out this code how do i get it to repeat the value in the appoinmnet.body = for each record

also could u meesage me you email to me as would like to send a few peenys to you via paypal as a thank you for the codding once i get it working lol bvut still thanks

[Stan Mathews]

Re: Outlook Calendar and Tasks

If customer_id is character
recs = parentform.QueryRun("customer_id = "+quote(customer_id.value))
if recs > 0
parentform.Fetch_First()
'your present code here
for qx = 1 to recs -1
parentform.Fetch_next()
'your present code here, again
next
end if

If customer_id is numeric
recs = parentform.QueryRun("customer_id = "+customer_id.value)
if recs > 0
parentform.Fetch_First()
'your present code here
for qx = 1 to recs -1
parentform.Fetch_next()
'your present code here, again
next
end if

[viiddi]

Re: Outlook Calendar and Tasks

Sorry for the previous code i have now refined it and noted what i want happening

i am working on form from a single table not a set aswell

dim objOutlook as P


constant olAppointmentItem = 1

objOutlook = ole.GetObject("","Outlook.Application")

objAppointment = objOutlook.CreateItem(olAppointmentItem)


objAppointment.Start = DATE_OF_APPOINMENT_.value '

objAppointment.AllDayEvent = .T.
objAppointment.Subject = CUSTOMER_ID_.value + " " + NAME.text + " " + SURNAME.text + " " + TYPE.VALUE + " " + TIME.VALUE + " " + STAGE.VALUE
objAppointment.Body = CUSTOMER_ID_.value + " " + NAME.text + " " + SURNAME.text + crlf(1) + " Mobile Numbers= "+ CONTACT_NUMBER1.VALUE +crlf(1) +" Phone Numbers= "+ CONTACT_NUMBER_2.VALUE +crlf(1) + ADDRESS.TEXT +crlf(1)+ ADDRESS2.TEXT +crlf(1)+ TOWN.TEXT+crlf(1)+COUNTY.TEXT +crlf(1)+POSTCODE.TEXT + " AREA = " + AREA.TEXT +crlf(2)+ " E-MAIL = " + EMAIL_ADDRESS_.TEXT + crlf(2) + crlf(3)+ "NOTES" +crlf(2)+ Notes_.value + crlf(3) + "TS_______ INV________ Paid_________ Unpaid________ Last Charge___________" + crlf(2) + "previous jobs below " + crlf(2)`

`in the body i want to now be able to import all the previous records in the current table with the same customer ID if feild - CUSTOMER_ID_ = "1" all records with customer id is 1 -- so this code puts this appoinment from the form into calender i want the perform a fetch and fetch all records from my table into this body of appoinmnet one after the other but just the date of the appoinment and type and notes fields any ideas help would be much apprectaiated matching the same customer id

objAppointment.Location = CONTACT_NUMBER1.value + " " + POSTCODE.TEXT '
objAppointment.ReminderMinutesBeforeStart = 15
objAppointment.ReminderSet = .T.

objAppointment.Save()


ui_msg_box("Confirmation","Appointment Booked" )

[viiddi]

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" )

[Stan Mathews]

Re: Outlook Calendar and Tasks

Without seeing the code you are using now I can only describe what you need to do.

You have code that copies info from the appointments table to outlook. You need to modify that code so that instead of copying the current selected record it loops through all of the child table records linked to the current parent.

Given a browse on a form the child may be referenced as

table.current(#)

where # is the vertical position of the child table as viewed in the Edit Set genie. Since only the child table records linked to the current parent are accessible you can (assuming nothing interferes)

tbl = table.current(#)
tbl.fetch_first()
while .not. tbl.fetch_eof()
'your present code goes here
tbl.fetch_next()
end while

[viiddi]

Re: Outlook Calendar and Tasks

A form displays one record at a time. A browse displays multiple records in spreadsheet type format. Your description sounds like you want a browse of the "table linked to my customer table" on the form.

If the form is based on a set where the customer table is the parent then it should be as easy as using the Object menu while in form design mode, choose New, select Browse, and choose the appointments table.

hi thanks for the response i have done this sorry didnt explain it properly ------ i want this information transferd to outlook appoinment including the past appoinmnets when i press the booking of the appointment

[Stan Mathews]

Re: Outlook Calendar and Tasks

A form displays one record at a time. A browse displays multiple records in spreadsheet type format. Your description sounds like you want a browse of the "table linked to my customer table" on the form.

If the form is based on a set where the customer table is the parent then it should be as easy as using the Object menu while in form design mode, choose New, select Browse, and choose the appointments table.

[viiddi]

Re: Outlook Calendar and Tasks

ok so heres what im trying to do

when i make an appoinment i can inout accross all the fields i have currently on my form easy

however i have a table linked to my customer table with a id of customer number to link all the appoinments i have created to therer corresponding customer so a customer might have had several appoinments in the past say 1a, 2a, 3a, now when i make appointment 4a --- i can make 4a info go accross onto outlokk straight from the form open however i cant put the past ones in also as they are not shown when making new one but i require this info so that my engineers can se what has been done in the past

how can i do this

probally not explained well agin but have been under the weather for a long time know and that is the reason also in delay responding thanks for your help

[Stan Mathews]

Re: Outlook Calendar and Tasks

Better try explaining again. You want to put all outlook appointments for one customer into where? Or you want to put all records from your table or one customer somewhere?

[viiddi]

Re: Outlook Calendar and Tasks

ok hello everyone again

heres a question for you ive figured out most things in alpha five now but i was wondering and experimenting with this one at the moment

i have set up a button to through info across to outlook no probs from a forms (with currently displayed info ) what i want to find out now is in the body of the appoinment i want to put all the records i have for customer 23 appoinments into the body from my table called appoinments i have tryed creating pdfs etc but no luck i am stumped at the moment any insight on this would be great

dave

(sorry for my spelling and grammar )

[johnkoh]

Re: Outlook Calendar and Tasks

David,

Review this " File Functions and Methods " from the help and this forum.
I had the experience for Creating a folder but not opening yet. I still have the conception problem.

[viiddi]

Re: Outlook Calendar and Tasks

excellent thanks a million my next qustion is how can i have a button that will go to a customers own folder i have on a server this is what i have so far

'//Open the explorer

sys_shell("explorer /e,/root,X:\\")

my table name is "Customers" and the unique id is "Customer_ID" there will a folder for each of them named with there id number ideally i would love it if iy would create it if there is not one aswell

many thanks

from the newb of the century

:D

[johnkoh]

Re: Outlook Calendar and Tasks

David,

how can i set it up so that the date for the appointment is the same as the field in a form in the table

from Post #3 code and fill in your table info with using the Filter -- find the records which you need.

dim objOutlook as P

objOutlook = ole.create("Outlook.Application")
objAppointment = objOutlook.createitem(olAppointmentItem)

objAppointment.Start = "1/16/2007 11:00 AM" <--- your table field name or set to Variables
objAppointment.Duration = 60
objAppointment.Subject = "Test Appointment"
objAppointment.Body = "Test Body."
objAppointment.Location = "44/2039"
objAppointment.ReminderMinutesBeforeStart = 15
objAppointment.ReminderSet = .t.

objAppointment.Save()