Dim objOutlook As Object
Dim objOutlookMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
With objOutlookMsg
 .To = "admin@kbyte.ru"
 .Cc = "admin2@kbyte.ru"
 .Subject = "Kbyte.Ru - лучший сайт для программистов!"
 .Body = "Привет! А ты знаешь, что Kbyte.Ru самый лучший сайт для программистов!"
 .HTMLBody = "<strong>Kbyte.Ru</strong> - лучший сайт для программистов!"
 .Attachments.Add ("c:\windows\calc.exe")
 .Send
 End With
Set objOutlookMsg = Nothing
Set objOutlook = Nothing