Trying to sendCalendar Apptt via VBA using citrix serve accounts, going to wrong box?

[girt0n]

I am using Outlook and Excel 2003... I am on a Citrix server at work and we all connect using our login names.

I created a button on a form (sheet = LOC) that we use to enter new client information. This button would allow us to send the "current user" a reminder to complete a different form (named OHBH) 10 days away from the current time (assuming it will be a weekday). When executing this form I am getting this error "this reminder will not appear because [the item] is not in your Calendar. I looked it up and the only thing I could find was someone saying to reset your folders but I can't to that on the Citrix server...

Does anyone know how to make this go to the calendar of the current user logged in to their account and using excel?

I used 7 days out because I don't know how to do the if Saturday - 1, if Sunday -2 days...


_____________________________________________________________________________________________________________

Sub SetAppt()

response = MsgBox("Would you like to Schedule a reminder to Complete the OHBH", vbYesNo)
 
If response = vbNo Then
    MsgBox ("Good Catch!")
    Exit Sub
    
End If

    Dim olApp As Outlook.Application
    Dim olApt As AppointmentItem

    Set olApp = New Outlook.Application
    Set olApt = olApp.CreateItem(olAppointmentItem)

    With olApt
        .Start = Date + 7 + TimeValue("12:00:00")
        .End = .Start + TimeValue("00:30:00")
        .Subject = "Complete OHBH for " + Sheets("Master").Range("B3")
        .Location = "CATT > Bridge Screen"
        .Body = Sheets("Master").Range("B3") + "'s assessment was 7 days ago. You have 3 days to complete the OHBH"
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 120
        .ReminderSet = True
        .Save
        
    End With

    Set olApt = Nothing
    Set olApp = Nothing

End Sub

___________________________________________________________________________________

Attachment 135661
INTAKE UPGRADE 1 9.xls