Отправка файла бд на электронную почту

Public Function SendMail(MailSubject, MailFrom, MailTo, MailText)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = MailSubject 
objMessage.From = MailFrom 
objMessage.To = MailTo 
objMessage.TextBody = MailText 
objMessage.Send
MsgBox ("Mail is send")
End Function

Public Function SendEMailCDO( _
   ByVal strLoginSender As String, _
   ByVal strPWD As String, _
   ByVal strRecipientLogin As String, _
   ByVal strSubject As String, _
   ByVal strBody As String, _
   ByVal strAttachment As String, _
   ByVal intSendUsing As Integer, _
   ByVal intSMTPAuthenticate As Integer, _
   ByVal intSMTPServerPort As Integer, _
   ByVal intSMTPConnectionTimeout As Integer, _
   ByVal strSMTPServer As String, _
   Optional VarDebug _
                                    ) As Boolean
'VarDebug - флаг ошибки передачи
                                    
Dim frm  As Form
Set frm = Forms!frmEMailSending ' Имя формы
 
On Error GoTo Err_sendEmail
    Dim oMSG As Object  'Объявляем переменную для нашего сообщения
    Dim oConfig As Object
    Dim CFields As Object
'Создаем объект CDO.Message
    Set oMSG = CreateObject("CDO.Message")
    Set oConfig = CreateObject("CDO.Configuration")
    Set CFields = oConfig.Fields
    Set oMSG.configuration = oConfig
    
'    1-Send message using the local SMTP service pickup directory;
'    2-Send the message using the network (SMTP over the network)
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = intSendUsing ' 2
'    smtp.mail.ru;smtp.list.ru;smtp.bk.ru;smtp.inbox.ru;
'    smtp.yandex.ru;smtp.narod.ru;smtp.pochta.ru;
'    smtp.rambler.ru;smtp.newmail.ru;smtp.hotmail.ru;
'    smtp.nm.ru;smtp.nightmail.ru;smtp.km.ru;smtp.gmail.com
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer   '   smtp отправителя
'    0;Do not authenticate;
'    1;Use basic (clear-text) authentication.
'    The configuration sendusername/sendpassword or postusername/postpassword fields are used to specify credentials;
'    2;Use NTLM authentication (Secure Password Authentication in Microsoft® Outlook® Express).
'    The current process security context is used to authenticate with the service
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = intSMTPAuthenticate
'    GMail.com - 465;587 Остальные - 25;2525
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = intSMTPServerPort
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = intSMTPConnectionTimeout ' 60
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = strLoginSender    'Login отправителя
    CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPWD            'password отправителя
'    CFields("urn:schemas:mailheader:content-language") = "windows-1251"
    CFields("http://schemas.microsoft.com/cdo/configuration/languagecode") = 1049              'или "Russian"
    CFields.Update
'Настраиваем параметры сообщения
    oMSG.To = strRecipientLogin                     ' Кому
    oMSG.FROM = strLoginSender                      ' От кого
    oMSG.Subject = strSubject                       ' Заголовок сообщения
    oMSG.BodyPart.Charset = "windows-1251"          ' Kодировка
        If Len(frm("txtAttachment") & "") > 5 Then
            oMSG.AddAttachment strAttachment       ' Добавляем вложение. Адрес файла - поле на форме
        End If
    oMSG.TextBody = strBody                  ' Текст сообщения (может быть текстовым или в формате HTML)
    oMSG.Send
    SendEMailCDO = True
    
Exit_sendEmail:
    Set frm = Nothing
    Set CFields = Nothing
    Set oConfig = Nothing
    Set oMSG = Nothing
    Exit Function
Err_sendEmail:
    SendEMailCDO = False
'    If Not IsNull(VarDebug) Then If VarDebug Then MsgBox (Err.Number & Err.Description)
    Resume Exit_sendEmail
End Function

If SendEMailCDO (
    Логин Отправителя, _
    Пароль Отправителя, _
    Логин получателя, _
    Тема письма, _
    Тело (текст) письма, _
    Путь к файлу вложения _
    2, _
    1, _
    Номер порта, _
    60, _
    SMTP Server (например, "smtp.mail.ru") _
                ) Then
................
Else 
'   Обработка ошибки и (или) запись в лог
End

'http://www.microsoft.com/technet/archive/itsolutions/ecommerce/deploy/d5smtp.mspx?mfr=true
 
Set msg   = WScript.CreateObject("CDO.Message")
msg.From   = "myname@mydomain.com"
msg.To    = "someone@somedomain.com"
msg.Subject = "testing"
msg.TextBody = "This is a test message body."
 
msg.Configuration.Fields("http://schemas.microsoft.com/
cdo/configuration/smtpserver") = "smtpserver.mydomain.com"
 
msg.Configuration.Fields("http://schemas.microsoft.com/
cdo/configuration/sendusing") = 2
 
msg.Configuration.Fields.Update
msg.Send