К сожалению, использовать Thunderbird обязательно т.к. 1) будет отправляться отчетность для мотивации 2) у нас жесткий контроль за работой приложений, пообщался с системоном он говорит "все порты закрыты" и т.д., так что на вряд ли получится не через Thunderbird :0(

Добрый день.  
Друзья, вот уже третий день не могу найти ответ на один вопрос.  
Есть необходимость автоматизировать работу. Нужен макрос для создания писем из Excell, только не в Outlook а в Thunderbird. Поискав на форуме нашел замечательный пример того как можно осуществить это через гиперссылку и mailto:, (http://www.planetaexcel.ru/tip.php?aid=246) но этот спосб не подходит т.к. чувствителен к " и в некоторых случаях выдает ошибку при превышении определенного кол-ва символов.  
Продолжив поиски наткнулся на код:  
Sub SendEMail()  
Dim FullStr As String  
FullStr = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"  
FullStr = FullStr & " -compose to=""mymail@mail.ru"""  
FullStr = FullStr & " ,subject=""Письмецо"""  
FullStr = FullStr & " ,body=""Письмище"""  
FullStr = FullStr & " ,attachment=""file:///E:/123.xls"""  
 
Shell FullStr, 1  
 
End Sub  
Интересный код, но так же не подходит т.к. не поддерживает вставку копии    
если дописать FullStr = FullStr & " -compose сс=""mymail@mail.ru""" и нет возможности выборки данных для письма из ячеек.  
В итоге думаю, что лучше всего использовать "Универсальный макрос" как его называют на форуме (http://www.planetaexcel.ru/tip.php?aid=156)  
   Sub SendMail()    
      Dim OutApp As Object    
      Dim OutMail As Object    
      Dim cell As Range    
           
      Application.ScreenUpdating = False    
      Set OutApp = CreateObject("Outlook.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    
  End Sub    
 
ВОПРОС: можно ли заточить этот код для создания писем в Mozilla Thunderbird??? Я к сожалению только постигаю VBA и решить данную проблему не в силах. В этом коде подходит то, что данные для письма можно указывать в соответствующих ячейках на сколько я понимаю описано в With OutMail и ниже.