Всем привет.  
Ребят помогите с решением проблемы пробую переделать макрос ниже для отправки писем с помощью макроса через Почта Windows Live (аналог Outlook).  
Но макрос выдает ошибку: ActiveХ component can't create object  
Экзешник называется: wlmail.exe.  
При ошибке в рекордере выделяется сторока ниже:  
       Set OutApp = CreateObject("wlmail.Application")  
 
Если данная тема уже рассматривалась скиньте ссылку плиз. Заранее спасибо.  
 
Sub SendMail()  
   Dim OutApp As Object  
   Dim OutMail As Object  
   Dim cell As Range  
       
   Application.ScreenUpdating = False  
       Set OutApp = CreateObject("wlmail.Application")  
           OutApp.Session.Logon  
 
   On Error GoTo cleanup  
   Set OutMail = OutApp.CreateItem(0)  
   On Error Resume Next  
       
   With OutMail  
       .To = Range("A1").Value  
       .Subject = Range("A2").Value  
       .Body = Range("A3").Value  
       .Attachments.Add Range("A4").Value  
       'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой  
       .Send  
   End With  
   
   On Error GoTo 0  
   Set OutMail = Nothing  
   
cleanup:  
   Set OutApp = Nothing  
   Application.ScreenUpdating = True