RevitTricks

Need to look at an app that finxs all the dicferent intersections of objects in Revit, then compares those to a database against locations, municipalities,  etc and returns details previously made (c) 2014 ron e. Allen all rights reserved

windows server 2008 - SchTasks.exe to create a task folder - Stack Overflow : Import tasks into a particular folder...  /create /xml "MyTask.xml" /tn "FOLDERNAME\TaskName" 'via Blog this'

One other tidbit- the progress form - a cheap way to create a progress bar on x64 outlook VBA since the regular x32 bit active x controllers don't work... I used a form- named it 1)"frmProgress", on the form is a frame called 3) "ProgressFrame", which I changed the fill on,hovering above (or in ) the frame is a lebel text called 2) "labelProgress" and there is an OK button called 4) "OK" for closing down the dialog. Dialog in the form is below: The code to run the dialog is very simple... Code below this line-------------------------------------- Public MAX As Integer Public Current As Integer Private Sub OK_Click()    Me.Hide End Sub Private Sub UserForm_Initialize()    ProgressFrame.Caption = ""    Me.Left = Application.ActiveWindow().Left + Application.ActiveWindow().Width / 2 - (Me.Width / 2)    Me.Top = Application.ActiveWindow().Top + Application.ActiveWindow().Height / 2 - (Me.Height / 2)    Me.Height = 33

This code goes in the existing ThisOutlookSession The highlighted portion is the entry point into the MyDomains. All the other code is required to get outlook to pay attention. --------Code below this line---------------------------- Private WithEvents Items As Outlook.Items Private Sub Application_Startup()   Dim olApp As Outlook.Application   Dim objNS As Outlook.NameSpace   Set olApp = Outlook.Application   Set objNS = olApp.GetNamespace("MAPI")   ' default local Inbox   Set Items = objNS.GetDefaultFolder(olFolderInbox).Items End Sub Private Sub Items_ItemAdd(ByVal item As Object)   On Error GoTo ErrorHandler   Dim Msg As Outlook.MailItem   If TypeName(item) = "MailItem" Then     Call MyDomains. SetDomainMailObject (item)   End If ProgramExit:   Exit Sub ErrorHandler:   MsgBox Err.Number & " - " & Err.description   Resume ProgramExit End Sub

Creates domain.from and domain.to user fields which can be used to group and sort. Step 1 of a larger plan to organize email. This makes cleaning up your mailboxes a snap! Also adds the user defined field in the view.  Macros have to be on and it has to be trusted. You can run this on an individual message (alt+F8) will bring up the menu to run  Set_Domains_Current_Message or Set_Domains_for_all_messages_active_folder The second routine asks if you want to override current definitions. Click NO to make it faster on a re-run. I also have a thisoutlook session which automatically processess each message as it comes in. Will post that next. Paste this into a module in outlook VBA- if you don't know how- I might be able to help by posting instructions here. Code goes in a module named "MyDomains" -----Code below this line------------------------------------------------------------------------- Option Explicit '---------------------------------------