Hello
Background
- I use FTP for transferring files but wish either the recipient or sender clean it after certain days to free space.
- While sending email, i use the following code that sets a reminder on my Outlook calendar to delete FTP files
Sub Delete_FTP_Reminder()
todaysdate = Date
bufferdays = 16
myDate = CDate(todaysdate)
Dim dateaddition As Date
dateaddition = DateAdd("d", bufferdays, myDate)
Dim appOL As Object
Dim objReminder As Object
Set appOL = GetObject(, "Outlook.application")
Set objReminder = appOL.CreateItem(1) ' olAppointmentItem
objReminder.Start = dateaddition & " 14:30" ' 4/Feb/2004 18:30
objReminder.Duration = 30
objReminder.Subject = "Delete FTP Folder "
objReminder.Body = "Delete FTP Folder " & Worksheets("Link").Range("A3") & " on link <" & Worksheets("Link").Range("A1") & ">"
objReminder.ReminderSet = True
objReminder.Save
Worksheets("Due_Date").Range("B5") = dateaddition
End Sub
What I want ?
I want to send the email with reminder set on recipients calendar also . Is that possible ?
What I tried ?- I tried the adding the following in the email code
.ReminderTime = dateaddition
.DueDate = dateaddition
What happened / problem ?- It set a reminder on my calendar not on recipients calendar.
Is there any way I can set a reminder on recipient's calendar ?
Any help is much appreciated
Bookmarks