Original "start date" of postponed appointment

[shir0206]

Hello,


Hopefully someone could help


I use VBA code that runs through Microsoft Outlook Appointments, and for each appointment - prints a few details - to an Excel table.


If I set the start date of an appointment on "01-April-2019", and then postpone that appointment to "12-April-2019", and then postpone that appointment to "15-April-2019" - I have 3 "Appointment Item" objects in my folder.
I would like to print for each appointment in the folder - the "Start Date" that was set *originally*.
For example: Print for the first appointment - the first original start date (01-April-2019), for the first postponed appointment - the first postponed start date (12-April-2019), and for the second postponed appointment - the second postponed start date (15-April-2019).


However, when I run my code - the *last* "Start Date" is printed (15-April-2019, 15-April-2019, 15-April-2019), instead of the original (01-April-2019, 12-April-2019, 15-April-2019) .


I read a lot about different types of "date" objects, but couldn't find the correct one.


Could anyone help me?


Thank you very much!

	Sub GetFromOutlook()


	'Early Binding: Tools > References > Microsoft Outlook xx.0 Object Library > OK


	Dim OutlookApp As Outlook.Application
	Dim OutlookNS As Namespace
	Dim Folder As MAPIFolder
	Dim oApp As Outlook.Application
	Dim oG As Outlook.Folder  'Method for IMAP, as used by Gmail.
	Dim oM As Outlook.MeetingItem
	Dim oAA As Outlook.AppointmentItem
	Dim oI As Outlook.RecurrencePattern
	Dim sMsg$, sAdd$
	Dim i As Long
	Dim j As Long


	Set OutlookApp = New Outlook.Application
	Set OutlookNS = OutlookApp.GetNamespace("MAPI")
	Set Folder = OutlookNS.GetDefaultFolder(olFolderInbox).Parent.Folders("CCB Meetings")


  
	 Dim icon As String
  
	  Set oApp = CreateObject("Outlook.Application")
  
	  Set oG = OutlookNS.GetDefaultFolder(olFolderInbox).Parent.Folders("CCB Meetings")
   
	  For i = 1 To oG.Items.Count
 	   If TypeName(oG.Items(i)) = "MeetingItem" Then j = j + 1
	  Next i
	  If j = 0 Then Exit Sub


	' Create titles
	        Range("A1").Offset(0, 0).Value = "SenderName"
	        Range("B1").Offset(0, 0).Value = "Subject"
	        Range("C1").Offset(0, 0).Value = "CreationTime (Scheduled time of the first appointment)"
	        Range("D1").Offset(0, 0).Value = "ReceivedTime (Scheduled time of the current appointment)"
 	       Range("E1").Offset(0, 0).Value = "Start (start time of the last scheduled appointment)"
	        Range("F1").Offset(0, 0).Value = "StartTime (doesnt work yet)"
	        Range("G1").Offset(0, 0).Value = "Location"
	        Range("H1").Offset(0, 0).Value = "RequiredAttendees"
	        Range("I1").Offset(0, 0).Value = "OptionalAttendees"
	        Range("J1").Offset(0, 0).Value = "ResponseStatus"




	  On Error Resume Next
	  j = 0
	  For i = 1 To oG.Items.Count
	      Set oM = oG.Items(i)
 	     With oG.Items(i).GetAssociatedAppointment(True)
 	       j = j + 1
	        Range("A1").Offset(j, 0).Value = oM.SenderName
	        Range("B1").Offset(j, 0).Value = oM.Subject
 	       Range("C1").Offset(j, 0).Value = .CreationTime
	        Range("D1").Offset(j, 0).Value = oM.ReceivedTime
	        Range("E1").Offset(j, 0).Value = .Start
 	       Range("F1").Offset(j, 0).Value = oAA.GetRecurrencePattern '??????????????????
	        Range("G1").Offset(j, 0).Value = .Location
 	       Range("H1").Offset(j, 0).Value = .RequiredAttendees
	        Range("I1").Offset(j, 0).Value = .OptionalAttendees
 	       Range("J1").Offset(j, 0).Value = .ResponseStatus
     
 	     End With
	  Next i
	  On Error GoTo 0




	Set Folder = Nothing
	Set OutlookNS = Nothing
	Set OutlookApp = Nothing


	End Sub

 

[Macropod]

Cross-posted at:
http://www.vbaexpress.com/forum/sho...quot-start-date-quot-of-postponed-appointment
https://www.excelforum.com/outlook-...inal-start-date-of-postponed-appointment.html

Please read Mr Excel's policy on Cross-Posting in rule 13: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html

 

[shir0206]

Cross-posted at:
http://www.vbaexpress.com/forum/sho...quot-start-date-quot-of-postponed-appointment
https://www.excelforum.com/outlook-...inal-start-date-of-postponed-appointment.html

Please read Mr Excel's policy on Cross-Posting in rule 13: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html

OK I understood. Im just looking for an answer. Wont do that again.
It would be nice if you could answer my question.

 

[Joe4]

OK I understood. Im just looking for an answer. Wont do that again.

We are not saying that you cannot do it, we are just saying if you do, mention that you are doing so and provide links to the other posts.
That way others can see what has already been suggested on the other threads, and see if it has already been solved elsewhere, so they don't waste time on suggesting things already suggested, or work on a problem that may have already been solved elsewhere.