Function SendMail(strPacket)

Dim olApp As Outlook.Application
Dim outMail As Outlook.MailItem
Dim inNameSpace As Outlook.NameSpace
Dim InFolder As Outlook.MAPIFolder
Dim strS As String, strB As String

Set olApp = New Outlook.Application
Set inNameSpace = olApp.GetNamespace( "MAPI" )
Set InFolder = inNameSpace.GetDefaultFolder(olFolderInbox)


strS =  "ктото@гдето.ru" 
If strS <>  "" Then GoSub Add_Mail
olApp.Quit
Exit Function
'----------------------------------------------
 
Add_Mail:
    Set outMail = olApp.CreateItem(olMailItem)
    With outMail
        .Subject = "Проба "
        .Body = " Пробное письмо "
        .Recipients.Add strS
        .Attachments.Add " c:\test.xls"
        .Send
    End With
    Return
End Function