Alex Parker

Archive Email Attachments in Outlook upon Arrival using VBA Macro...

I finally have something that works well. This macro will save attachments on arrival to the drive of your choice. The attachment is saved using a guid so there is no conflicts. I utilized the Outlook Object model and the AdvancedSearch object. One interesting thing, in Outlook 2003 the httpmail:read value is not true or false, but 0 & 1. Thank goodness for the QueryBuilder . Here is the source: http://www.slashstar.com/blogs/alex/articles/Outlook2003AttachmentArchival.aspx Alex

Enable Hidden QueryBuilder dialog in Outlook 2003

Add the following key using the registry editor: HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\QueryBuilder Navigate to View -->Arange By --> Custom. Click on filter and you should see the following! Read the Microsoft article here . - Alex

Format your XML files so that they are readable...

Here is a XSL that I use to format XML files with nice indentation. - Alex

Windows Integrated Authentication and Kerberos FAQ

Just thought I would share some good resources on the topic as I go along. This will be a living document so I will keep updating it with useful info as I go along. http://www.slashstar.com/blogs/alex/articles/Kerberos.aspx Alex

Using Visual Studio 2003's outline function on your VBScript files...

If you have ever written a long vbscript file and would like to take advantage of the outline features of Visual Studio 2003. Just copy the following macro into the macros and execute it evertime you load your file. I made a minor update to show the function/sub that is being outlined. This is a sample I found on the Microsoft Site, I just made some minor changes. Sub OutlineSection() ' Before running this example, open a text document. Dim objSel As TextSelection = DTE.ActiveDocument.Selection ' Move to the beginning of the document so we can iterate over the ' whole thing. objSel.StartOfDocument() While objSel.FindPattern("Function ") ' If we found the beginning of a debug-only section, save the ' position. Dim lStartLine As Long = objSel.TopPoint.Line + 1 ' Increment by one to show Function outside of outline Dim lStartColumn As Long = objSel.TopPoint.LineCharOffset ' Look for the end. If objSel.FindPattern("End Function") Then ' Select the entire section and outline it. objSel.SwapAnchor...