электронная почта с использованием Access и VBA без MAPI

StackOverflow https://stackoverflow.com/questions/769763

Вопрос

Я хотел бы отправлять электронную почту из Microsoft Access без присмотра с помощью VBA.Я понимаю, что встроенный метод «SendObject» использует MAPI, что означает запросы безопасности и что-то вроде настроенного Outlook.Поскольку я хочу использовать планировщик задач для запуска различных отчетов, я отклоняюсь от MAPI и предпочитаю какое-то другое решение.Не приложение для доставки, а просто внутри компании.Идеи?

Это было полезно?

Решение

Вам понадобится SMTP-сервер, который позволит вам отправлять электронную почту.Затем вам нужно использовать объект сообщения CDO.

Другие советы

Вот тестовый код, который у меня работал с CDO и Gmail.

Sub mtest()

Dim cdoConfig
Dim msgOne

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "gmailname"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpw"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Update
End With

Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = "target@target.com"
msgOne.From = "I@dontThinkThisIsUsed.com"
msgOne.Subject = "Test email"
msgOne.TextBody = "It works just fine"
msgOne.send
End Sub

Вы можете найти Тони Тэйвса Доступ к электронной почте Часто задаваемые вопросы удобный.

Я делаю это так, обратите внимание: для работы у вас должен быть установлен Outlook.


Sub btnSendEmail_Click()
    Dim OutApp As Object
    Dim OutMail As Object

    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon

    strBody = "<html><head></head><body>"
    strBody = strBody & "Your message goes here"
    strBody = strBody & "</body></html>"

    Set OutMail = OutApp.CreateItem(0)

    OutMail.To = "name@example.com"
    OutMail.BCC = "bcc@example.com"
    OutMail.Subject = "Test message"
    OutMail.HTMLBody = strBody


    OutMail.Send  'Send | Display
    Set OutMail = Nothing
End Sub

Outlook Redemption бесплатен и очень широко используется: http://www.dimast.com/redemption/

Она очень близка к исходной объектной модели Outlook, поэтому кривая обучения проста :)

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top