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

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"