StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
6947374
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
1
CommunityOwnedDate
CreationDate
2011-08-04T19:23:03.637
FavoriteCount
0
LastActivityDate
2011-08-04T19:23:03.637
LastEditDate
LastEditorUserId
0
OwnerUserId
843443
ParentId
5098893
PostTypeId
2
Score
0
ViewCount
0
LastEditorDisplayName
text
Body
I JUST wrote code for this. My macro searches emails for a specific string and then takes everything after that and creates a folder using that name. You'll need a few functions to: 1) Check to see if the folder already exists 2) Create it if it doesn't 3) Move the MailItem to the new folder 4) Call those functions NOTE: Much of this is hard-coded and could be changed to take user input if desired. Also, it will not work for sub-folders (you'll have to customize that). 1) Check for folder: <pre><code>Function CheckForFolder(strFolder As String) As Boolean Dim olApp As Outlook.Application Dim olNS As Outlook.NameSpace Dim olInbox As Outlook.MAPIFolder Dim FolderToCheck As Outlook.MAPIFolder Set olApp = Outlook.Application Set olNS = olApp.GetNamespace("MAPI") Set olInbox = olNS.GetDefaultFolder(olFolderInbox) On Error Resume Next Set FolderToCheck = olInbox.Folders(strFolder) On Error GoTo 0 If Not FolderToCheck Is Nothing Then CheckForFolder = True End If ExitProc: Set FolderToCheck = Nothing Set olInbox = Nothing Set olNS = Nothing Set olApp = Nothing End Function </code></pre> 2) Create: <pre><code>Function CreateSubFolder(strFolder As String) As Outlook.MAPIFolder Dim olApp As Outlook.Application Dim olNS As Outlook.NameSpace Dim olInbox As Outlook.MAPIFolder Set olApp = Outlook.Application Set olNS = olApp.GetNamespace("MAPI") Set olInbox = olNS.GetDefaultFolder(olFolderInbox) Set CreateSubFolder = olInbox.Folders.Add(strFolder) ExitProc: Set olInbox = Nothing Set olNS = Nothing Set olApp = Nothing End Function </code></pre> 3) Search and move: <pre><code>Function SearchAndMove(lookFor As String) Dim olApp As Outlook.Application Dim olNS As Outlook.NameSpace Dim olInbox As Outlook.MAPIFolder Dim FolderToCheck As Outlook.MAPIFolder Dim myItem As Object Dim MyFolder As Outlook.MAPIFolder Dim lookIn As String Dim newName As String Dim location As Integer Set olApp = Outlook.Application Set olNS = olApp.GetNamespace("MAPI") Set olInbox = olNS.GetDefaultFolder(olFolderInbox) For Each myItem In olInbox.Items lookIn = myItem.Subject If InStr(lookIn, lookFor) Then location = InStr(lookIn, lookFor) newName = Mid(lookIn, location) If CheckForFolder(newName) = False Then Set MyFolder = CreateSubFolder(newName) myItem.Move MyFolder Else Set MyFolder = olInbox.Folders(newName) myItem.Move MyFolder End If End If Next myItem End Function </code></pre> 4) call function: <pre><code>Sub myMacro() Dim str as String str = "Thing to look for in the subjectline" SearchAndMove (str) End Sub </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POcreate an outlook rule to create folders if needed based on text in subject line
 singulars
 PostTypePostTypeId
 PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USJeff
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. COYou could make this 10x simpler by not creating the functions... oh well.
 singulars
 PostPostId
 PO
 UserUserId
 USJeff

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.