Do you have a separate field from the Outlook Calendar called end date?

 

That should have the info you are looking for.

Otherwise you would have to make the appointment separate events in Outlook on each day , instead of one big event that spans several dates.

 

Hope this helps.

If not, let me know, and I will try something else.

 

Tom

 

To actually make the new records, you might make a simple report of the events in Crystal, export the report to Excel, do some VBA code to add the additional event records for those dates in between the start date and end date, save the Excel spreadhsheet, then make another Crystal Report out of the resulting Excel data. I don't think there's a way to do that right from Outlook.

 

Hope this helps.

Thanks,

Tom

The basic objective is to return the start date, but if the apt is recurring or longer than a day, and today is within that range, return today as the start date.  This way, for as long as the apt is active it will appear with todays date.

I would welcome any suggestions on a better way to do this.

 

DateTimeVar StartDate;
DateTimeVar EndDate;
// Start here, are we dealing with a recurring apt? If we are then....
If {Calendar.Recurring} = True Then
    (
    StartDate := {Calendar.Recurrence Range Start Time};
    EndDate := {Calendar.Recurrence Range End Time};
    //convert recurring start date for CST. 
    //Because I have users from multiple zones this was the easiest method.
    if Time(StartDate) > time(22,59,00) or Time(StartDate) = time(02,00,00) Then
        StartDate := Date(StartDate) +1;
    //convert  recurring end date for CST
    if Time(EndDate) > time(22,59,00) or Time(StartDate) = time(02,00,00) Then
        EndDate := Date(EndDate) +1;
    //if the recurring apt has an end date that is more than the start date
    //and today is somewhere in the middle - print the record
    If Date(EndDate)>= CurrentDate and Date(StartDate)<= CurrentDate Then
        StartDate := CurrentDate;
       Date(StartDate)
    )  
Else                  //non recurring apt
    (
    StartDate := {Calendar.Start Time};
    EndDate := {Calendar.End Time};
    //convert recurring start date for CST
    if Time(StartDate) > time(22,59,00) or Time(StartDate) = time(02,00,00) Then
        StartDate := Date(StartDate) +1;
    //convert  recurring end date for CST
    if Time(EndDate) > time(22,59,00) or Time(StartDate) = time(02,00,00) Then
        EndDate := Date(EndDate) +1;
    // non recurring but an apt that is long enough to span multiple days
    // and today is somewhere in the middle - print the record
    If Date({Calendar.End Time}) > Date(StartDate) and Date({Calendar.End Time}) >= CurrentDate and Date(StartDate)<= CurrentDate Then
        StartDate := CurrentDate;
       Date(StartDate)
    )