Нужно через бат, послать текущий (открытый) файл.  
У меня создается письмо, с нужной темой...  
Но вот файл не аттачиться.  
хотя в strattach все прописано по уму, если в батнике прописать также, то все работает.  
в чем косяк?  
 
 
 
Sub Send_Mail()  
 
Dim subj, subj1, subj2 As String  
 
Dim lLastRow As Long  
 
Dim OldName As String  
 
OldName = ActiveWorkbook.FullName  
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row  
   
   subj1 = Range("B" & lLastRow).Text  
   subj2 = Range("C" & lLastRow).Text  
     
subj = "(" + subj1 + "/" + subj2 + ")"  
 
Set wsh = CreateObject("WScript.Shell")  
TheBatPath = Chr(34) & "C:\Program Files\The Bat!\thebat.exe" & Chr(34)  
strTO = "TO=" & Chr(34) & "1111@yahoo.ca" & Chr(34)  
 
strsubject = "SUBJECT=" & Chr(34) & subj & Chr(34)  
 
strattach = "ATTACH=" & OldName  
'strattach = "ATTACH=" & Chr(34) & OldName & Chr(34)  
 
Cmd = TheBatPath & " /MAIL;" & strTO & ";" & strsubject & ";" & strattach & ""  
 
wsh.Exec Cmd    
For i = 1 To 30000: DoEvents: Next    
End Sub