TagFacts

Public Sub NewMail()

Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem

Set olApp = CreateObject("Outlook.Application")
Set objMail = olApp.CreateItem(olMailItem)

objMail.BCC = "Friends Dima"
objMail.Subject = "Subject"
objMail.HTMLBody = "<b>Body</b>"

objMail.Send

End Sub

* Open a command prompt
* Type 'set DEVMGR_SHOW_NONPRESENT_DEVICES=1'
* Type 'devmgmt.msc' to load the Device Manager
* Select 'View' show 'Show hidden devices'
* Delete the Microsoft Bluetooth Enumerator
* Delete all the Bluetooth COM ports
* Reboot


Use the driver update routine. The Device Manager can be opened by right clicking on the “My Computer” icon and selecting the “Properties” menu option. When the Properties dialog appears select the “Hardware” tab and then click the “Device Manager” button.

When Microsoft stack is in control then the Bluetooth Radios category is present in the Device Manager as shown below, Figure 1. There will be 2/3 devices under that category, depending
on the implementation, these are:

* Bluetooth Printing Support
* Microsoft Bluetooth Enumerator
* The “Actual device”.

Highlight the “Actual Device”. Select “Action -> Properties” menu option. Select Driver tab. Verify that the provider is Microsoft. Click the “Update Driver” button.

When the Hardware Update Wizard appears, we are now ready to install the WIDCOMM Bluetooth driver. Select “Install from a list or specific location (Advanced)” radio button and click on the “Next” button to continue.

In the following screen select "Don't search. I will choose the driver to install" checkbox and click on the “Next” button to continue.

The next dialog provides the selection between Microsoft and Widcomm provided drivers. Select the last device (USB Bluetooth Radio) in the list and click on “Next” button to continue.

REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Security]
"Level1Remove"="ade;adp;asx;bas;bat;chm;cmd;com;cpl;crt;exe;hlp;hta;inf;ins;isp;
js;jse;lnk;mda;mdb;mde;mdz;msc;msi;msp;mst;pcd;pif;prf;reg;scf;scr;sct;shb;shs;
url;vb;vbe;vbs;ws c;wsf;wsh"

Install Orca.msi from MS Platform SDK.
Open Orca, new file.
Add tables:
Binary - add row, Name 'CustomExe', Import the executable.
CustomAction - add row, Action 'CustomAction', Type 2, Source 'CustomExe'.
(if you need to provide command line parameters, enter them in Target field)
InstallExecuteSequence - add row, Action 'CustomAction', Sequence 1000 - for silent install.
InstallUISequence - add row, Action 'CustomAction', Sequence 1000 - for normal install.

C:\WINDOWS\SoftwareDistribution\DataStore
in case there are problems with MS Update, this folder can be deleted to 'reset' Update's state.