RevitTricks

COOL CIRCULAR CONCEPT elstudio_chipata_ax_02.jpg (1200×800)

OK - this very basic routine sets billing information fields of all selected messages...  If the BillInfo variable to a form that pulls the local user's project's lists and lookups up the senders project list and compares, shazam! you can start auto-tagging potential emails with project/billing information. _____________________________________________ Sub Set_ACTIVE_MESSAGES_BillingInformation () Dim objsel As Selection Dim i As Integer BillInfo = UCase(InputBox( "" , "Enter default billing INFO" , "00000.000" )) Set objsel = Outlook.ActiveExplorer.Selection On Error Resume Next For i = 1 To objsel.Count Set Object = objsel.Item(i) Select Case Object .Class Case olReport, olMail, olContact ''these all behave the same way Object .BillingInformation = BillInfo Object .Save ''case ...

This is helpful for beautifying code : ) http://hilite.me/

strComputer = "localhost" bConnectForeign = False '''http://stichl.at/2012/11/quick-dfsr-backlog-count-with-vbscript/ Dim objIE, objShell, k, strIETitle, blnFlag ' Set IE display box title. Dashes ("-") are to move the Microsoft title ' appended to the title we specify out of view. ' blnFlag is set to False when the user closes the IE display box. strIETitle = "Backlog" & String ( 40 , "-" ) blnFlag = True Set objShell = CreateObject( "WScript.Shell" ) dim StrMsg call Main sub Main () ' Initialize display box with initial message InitIE "Program Initializing" Set oWMIService = GetObject( "winmgmts:\\" & strComputer & "\root\MicrosoftDFS" ) Set colRGroups = oWMIService.ExecQuery( "SELECT * FROM DfsrReplicationGroupConfig" ) For Each oGroup in colRGroups AddMsg( "Replication Group: " & oG...

What Time Has Taught Me | AUGI : 'via Blog this'

http://www.bluebeam.com/us/press-room/articles/10-3-14.asp Nemetschek Acquires Bluebeam Software Firms Combine Their Efforts to Make Project Collaboration Accessible to Everyone Nemetschek owns Archicad and all plan... Wishful thinking auto desk would but BlueBeam from Nemetschek .. I hope they will continue to provide the same great non-platform specific support they always have - only time will tell. Bluebeam's award-winning PDF solutions are used by the world’s top architectural, engineering and construction firms, oil and gas companies, manufacturers, government agencies and municipalities to reduce paper usage by more than 85% and to increase productivity by over 60%. http://www.nemetschek.com/en/home.html Nemetschek AG: Home Nemetschek AG includes detailed information about the company: company history, Investor Relations, press material, corporate brands, business units and much more." 'via Blog this'