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 think its going to a defaultINTAKE UPGRADE 1 9.xls outlook .pst file instead of the users pst file...

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

INTAKE UPGRADE 1 9.xls

[pike]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here