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

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'

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
End Sub

Public Function SetCur…

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

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
'---------------------------------------
'2014-02-06-added supp…