Skip to main content

Sample code for creating Tasks in Outlook via VFP

As I mentioned in my last email about TaskLine, here's the code I used to create a task in Outlook:

crlf = CHR(13)+CHR(10)

lo = GETOBJECT(,"Outlook.application")
loSpace = lo.GetNameSpace("MAPI")

loTasks = loSpace.Folders("Mailbox").Folders("Tasks")


loTask = loTasks.Items.add()
loTask.subject = TRIM(synopsis)
loTask.startdate = entdate
loTask.categories = "Automatic Call" && This was done to categorize it faster
lcBody = "ID: " +LTRIM(STR(callid))+crlf+"Customer: "+ custcode + crlf
lcBody = lcBody + "Status: " +callstat + crlf
lcBody = lcBody + "Type: " +calltype+ crlf
lcBody = lcBody + "Severity: " +severity+ crlf
lcBody = lcBody + "Contact : " +cntname+ crlf
lcBody = lcBody + "Application: " +appname+ crlf
lcBody = lcBody + TRIM(calldetl) + crlf
lcBody = lcBody + TRIM(workdetl) + crlf
IF NOT ISNULL(duedate)
loTask.DueDate = duedate
ELSE
lotask.duedate = MAX(DATE()+15,TTOD(entdate)+30)
ENDIF

** This is important because the Task Status is a numeric value
DO CASE
CASE callstat="Follow-Up"
loTask.Status =4 && Waiting on someone else
CASE callstat="Call Back"
loTask.Status = 4
CASE callstat="New"
loTask.Status = 0 && Not Started
OTHERWISE
loTask.Status = 1 && In progress
ENDCASE
loTask.totalwork = 120
loTask.Companies = TRIM(custcode)

loTask.Body = lcBody

loTask.Save()

Then I let TaskLine do the rest.

Comments

Post a Comment

Popular posts from this blog

Blogs and RSS come to Microsoft.com

MS has just introduced their portal and it's pretty comprehensive. Nothing quite like learning that some people use AIM instead of MSN messenger, or that there really may be a need for supporting 4 monitors ( Cyrus Complains ) However, it's really a great sign that MS is serious about supporting the blogging community which seems to have um, exploded in size in the past year. Blogs and RSS come to Microsoft.com
1 comment
Read more

FoxInCloud Stats

FoxInCloud sent this link a while back about their statistics regarding visits to their site: http://foxincloud.com/blog/2017/12/27/VFP-community-lessons-from-foxincloud-site.html What's interesting here is the breakdown of people. Yes, I think it's understandable that the Fox community is getting older. Another factor is the growth of the mobile and web environments taking over development. These environments really do push people towards the newer non-SQL or free SQL/hosted environments but more towards hosted storage options like Amazon and Google. A tool like FoxInCloud that helps MOVE existing applications to the cloud inherently competes with those environments. But FoxInCloud also allows developers to extend their application further by giving them a starting point using Javascript and the basic CSS (such as Bootstrap). If you're not rebuilding your application from scratch, it's certainly a great step forward. FoxPro VFP
6 comments
Read more

Facebook Revolt - imeem alternatives?

When Scoble noted how Facebook under major revolt , I immediately thought of a site I found yesterday. The value offered by Facebook's feeds however do seem very cool - if only they had been smart and made them opt-in, instead of opt-out. I have been impressed though with Facebook's opening of their API's - they certainly get it that they need to open it up to developers. I haven't really explored this other site, beyond my first look. In some ways, I think the whole social networking site thing is just silly , but this site (imeem) definitely showed some value. I could find music (as posted by the artist), it worked in Firefox and it allowed people to rank, add to delicious and more. And when I'm looking at someone, I can see what they're up to (or rather what they allow us to see). Anyways, you may want to check it out.
Post a Comment
Read more