Posts

Showing posts from February, 2014

Intersections In Revit

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
Post a Comment
Read more

windows server 2008 - SchTasks.exe to create a task folder - Stack Overflow

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'
Post a Comment
Read more

Outlook VBA for "message domain" Progress form

Image
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...
Post a Comment
Read more

Outlook VBA for auto-firing the "message domain" user field for each incoming message

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
Post a Comment
Read more

Outlook VBA for creating a message domain field and distills to and from to those fields.

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 '--------------------------------------- ...
Post a Comment
Read more