MS Access CDO Электронная почта

Question

Я успешно использую это в MS Excel для отправки электронной почты SMTP через наш сервер

Dim imsg As Object
Dim iconf As Object
Dim strbody As String
Dim flds As Variant

Set imsg = CreateObject("CDO.Message")
Set iconf = CreateObject("CDO.Configuration")

    iconf.Load -1
    Set flds = iconf.Fields
    With flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "our smtp mail server"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With

strbody = "Testing 123" & vbNewLine & vbNewLine & _
          "Thanks, I got the mail going already" & vbNewLine & _
          "and this email was sent through there with an" & vbNewLine & _
          "attachment to show that." & vbNewLine & _
          "XXX"

With imsg
    Set .Configuration = iconf
    .To = "[e-mail]"
    .CC = ""
    .BCC = ""
    .From = """Dan"" <[e-mail]>"
    .Subject = "Testing mail server"
    .TextBody = strbody
    .Send
End With

когда я копирую и вставляю модуль в MS Access (где он мне действительно нужен), я получаю

Ошибка времени выполнения (80040213), транспорт не смог подключиться к серверу

Что здесь? Спасибо

Я использую Win7 с MS Office 2010. также они включены в MS VBA References

MS CDO для Windows 2000 Библиотека MS DAO 3.6 Библиотека объектов Объекты данных MS ActiveX 2.8 Библиотека OLE-автоматизации MS Access 14 Object Libary