RevitTricks

Dim objIe ''As InternetExplorer                                                         ''ie subroutine operands Dim wscript As New objWSCRIPT_emulator Sub ViewInternetHeader ()     Dim olItem As Outlook.MailItem , olMsg As Outlook.MailItem     Dim strheader As String    InitIE "Starting View Header" , objIe     For Each olItem In Application.ActiveExplorer.Selection         strheader = GetInetHeaders ( olItem )          MsgIE strheader , objIe         'Set olMsg = Application.CreateItem(olMailItem)  ...