Импорт электронной почты из почтового ящика AD

У нас есть старый устаревший сервер SQL 2000 (последний в ферме) — мы не смогли избавиться от этого сервера, поскольку он использует xp_findnextmsg, xp_readmailи т. д. для мониторинга почтового ящика (через mapi) и импорта всей электронной почты на этот адрес в базу данных. База данных содержит простые таблицы, в которых хранятся «от», «кому», «тема», «тело», «дата отправки» и так далее.

Как вы, возможно, знаете, описанные выше процедуры больше не используются в SQL 2005+.

Эта таблица считывается из десятков внутренних систем, например, электронные письма в этот почтовый ящик могут автоматически приниматься нашими системами службы поддержки и создаваться. звонки и т.д.

Мой вопрос таков: какой самый простой/современный способ сделать это в SQL 2008+? Будет ли это случай написания файла .чистый двоичный файл/сервис, который будет использовать smtp или что-то еще для подключения к почтовому ящику и вставки данных в SQL, или есть более простой способ сделать это? (SSIS / сторонние инструменты / уже существующий код / ​​проекты?)

Просто решил спросить, прежде чем начать что-то писать — нет смысла заново изобретать велосипед.

PS: рассматриваемый почтовый ящик является почтовым ящиком Exchange 2010.

Редактировать: Намекнули, что эта функциональность будет повторно введена в 2008 г. и dbmail: http://connect.microsoft.com/SQLServer/feedback/details/126167/xp-readmail-replacement-for -sql-2005но, похоже, он не сработал!

Изменить 2: я только что нашел здесь достойный пример кода, который использует новые веб-сервисы в exchange 2007+: http://social.msdn.microsoft.com/forums/en-US /sqltools/thread/dd2b465b-b1d2-4c0d-82ec-c36c6c482d5d— эксперименты в процессе (кто-нибудь когда-нибудь работал с SQL и веб-службами Exchange?)

Правка 3: Готово! Я создал службу .net, которая находится на нашем сервере обмена, отслеживает почтовый ящик и отправляет любую новую почту в SQL. Если у других есть аналогичный вопрос и им нужен пример кода для начала - вот примерный код (вырезанный из моего сервиса - замененный параметризованный SQL базовым динамическим SQL для удобства чтения): (Примечание: вам понадобится EWS API 1.1 dll)

Imports Microsoft.Exchange.WebServices.Data

Dim ExchangeUrl As String = "https://DOMAIN.co.uk/ews/exchange.asmx"
Dim service As New ExchangeService(ExchangeVersion.Exchange2010_SP1)
service.Url = New Uri(ExchangeUrl)
service.Credentials = New WebCredentials("USER@DOMAIN.CO.UK", "PASSWORD")
Dim findResults As FindItemsResults(Of Item) = service.FindItems(WellKnownFolderName.Inbox, New ItemView(1000))
If findResults.Count > 0 Then
    service.LoadPropertiesForItems(findResults.Items, New PropertySet(BasePropertySet.FirstClassProperties))
End If

For Each item As Item In findResults.Items
    Dim CurrentEmail As EmailMessage = item

    '#### Grab Email Information
    E_ID = CurrentEmail.InternetMessageId.ToString()
    If CurrentEmail.Sender.Address.ToString() <> "" Then
        E_From = Replace(CurrentEmail.Sender.Address, "'", "''")
    Else
        E_From = Replace(CurrentEmail.Sender.Name, "'", "''")
    End If
    E_From = Replace(CurrentEmail.Sender.Address, "'", "''")
    E_To = Replace(CurrentEmail.DisplayTo, "'", "''")
    E_CC = Replace(CurrentEmail.DisplayCc, "'", "''")
    E_Subject = Replace(CurrentEmail.Subject, "'", "''")
    E_Body = Replace(CurrentEmail.Body.Text, "'", "''")
    E_Received = CurrentEmail.DateTimeReceived.ToString("dd/MM/yyyy HH:mm:ss")
    E_Sent = CurrentEmail.DateTimeSent.ToString("dd/MM/yyyy HH:mm:ss")

    '#### Save the email into SQL
    If SqlQuery("INSERT INTO tbl_Emails ([MessageID], [From], [To], [CC], [Subject], [Body], [Received], [Sent]) VALUES ('" & E_ID & "', '" & E_From & "', '" & E_To & "', '" & E_CC & "', '" & E_Subject & "', '" & E_Body & "', CONVERT(DATETIME, '" & E_Received & "', 103), CONVERT(DATETIME, '" & E_Sent & "', 103))") = True Then
        item.Delete(DeleteMode.HardDelete)
    End If
Next