ews: include ParentFolderId in FindFolder/GetFolder response

Some clients expect the GetFolder request with BaseShape=AllProperties to
include the parent folder id. Output it.

References: GXF-2252, DESK-3679

Author: jengelh

exch/ews/structures.cpp

@@ -3365,6 +3365,18 @@ void tFolderResponseShape::tags(sShape& shape) const
 	if (baseShape >= 1)
 		for (uint32_t tag : tagsDefault)
 			shape.add(tag, sShape::FL_FIELD);
+	if (baseShape == 2) {
+		/* "tagsAll" is really an _extra_ list (over default), not "all" */
+		for (uint32_t tag : tagsAll)
+			shape.add(tag, sShape::FL_FIELD);
+
+		/* XXX
+		bool is_root = ... == PRIVATE_FID_ROOT;
+		if (is_root)
+			for (uint32_t tag : tagsAllRootOnly)
+				shape.add(tag, sShape::FL_FIELD);
+		*/
+	}
 	if (AdditionalProperties)
 		for (const auto& additional : *AdditionalProperties)
 			additional.tags(shape);

exch/ews/structures.hpp

@@ -2534,6 +2534,13 @@ struct tFolderResponseShape {
 	static constexpr uint32_t tagsStructural[] = {PR_CONTAINER_CLASS, PR_FOLDER_TYPE};
 	static constexpr uint32_t tagsIdOnly[] = {PR_ENTRYID, PR_CHANGE_KEY};
 	static constexpr uint32_t tagsDefault[] = {PR_DISPLAY_NAME, PR_CONTENT_COUNT, PR_FOLDER_CHILD_COUNT, PR_CONTENT_UNREAD};
+	/*
+	https://learn.microsoft.com/en-us/exchange/client-developer/web-service-reference/baseshape
+	"All" = "all the properties used by the Exchange Business Logic layer", for whatever that means.
+	Here, it means tagsDefault + {our extra list}.
+	*/
+	static constexpr uint32_t tagsAll[] = {PR_PARENT_ENTRYID, PR_CREATION_TIME, PR_LAST_MODIFICATION_TIME, PR_ATTR_HIDDEN, PR_ATTR_READONLY, PR_CONTAINER_FLAGS, PR_RECORD_KEY, PR_STORE_ENTRYID, PR_ACCESS, PR_ACCESS_LEVEL};
+	static constexpr uint32_t tagsAllRootOnly[] = {PR_IPM_SUBTREE_ENTRYID, PR_SENTMAIL_ENTRYID};
 };
 
 /**