Function sendmessageActive(Optional AttachmentPath)
   Dim objOutlook As Outlook.Application
   Dim objOutlookMsg As Outlook.MailItem
   Dim objOutlookRecip As Outlook.Recipient
   Dim objOutlookAttach As Outlook.Attachment

   ' Создание сессии.
   Set objOutlook = CreateObject("Outlook.Application")

   ' Создание сообщения.
   Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

   With objOutlookMsg
      ' Добавьте получаетелей сюда.
     Set objOutlookRecip = .Recipients.Add("...")
      objOutlookRecip.Type = olTo

      '  Добавьте тех, кому нужны копии.
      'Set objOutlookRecip = .Recipients.Add("...")
      'objOutlookRecip.Type = olCC

      ' Установите предмет, тело и важность сообщения.
      .Subject = "..."
      .Body = "..." & vbCrLf 
      .Importance = olImportanceHigh  'High importance

      '  Добавьте файлы в сообщение.
      If Not IsMissing(AttachmentPath) Then
         Set objOutlookAttach = .Attachments.Add(AttachmentPath)
      End If

      ' Resolve each Recipient's name.
      For Each objOutlookRecip In .Recipients
         objOutlookRecip.Resolve
         If Not objOutlookRecip.Resolve Then
         objOutlookMsg.Display
      End If
      Next
      .Send

   End With
   Set objOutlookMsg = Nothing
   Set objOutlook = Nothing
End Function

Вообще все должно работать без проблем  в la_automat. Естественно нужны проверки:

• 1. Проверить ссылку на Outlook в VBA
• 2. Отключить антивирус, т.к. возможно он блокирует сообщения
• 3. Проверить наличие папок в outlook, к которым обращается программа
• 4. Проверить путь к zip файлу, который посылаете по email.

Вообще работу программы проверяют на каждом шаге через Debug.Print или через отладчик VB