Как обновить базу данных MySQL из Outlook Express? - PullRequest
Новая
       7

Как обновить базу данных MySQL из Outlook Express?

0 голосов
/ 11 декабря 2010

Я заметил в outlook express, что есть функция макроса, и поэтому я хочу поиграть с ней! К сожалению, я не программировал на VB около 5 лет.

Я получаю много почтовых демонов от клиентов и сотрудников в мою систему электронной почты, через которые кто-то должен пройти и обновить нашу базу данных MySQL, чтобы вручную аннулировать электронную почту.

Итак, я хочу знать, возможно ли взять электронные письма от демонов почтовой программы и просто обновить базу данных MySQL с помощью макросов? Ресурсы или примеры, пожалуйста?

Я уверен, что это просто, но мои поиски в Google возвращаются с небольшой помощью.

1 Ответ

1 голос
/ 12 декабря 2010

Вот несколько грубых заметок. 

Dim cn As Object
Dim sCon As String
Dim sSQL As String
Dim oNameSpace As Outlook.NameSpace
Dim oItem As Outlook.MailItem
Dim oFolder As Outlook.MAPIFolder

Set cn = CreateObject("ADODB.Connection")

sCon = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=MyDB;" _
& "User=UName;Password=PWord;Option=3;"

cn.Open sCon

Set oNameSpace = Application.GetNamespace("MAPI")
Set oFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

For Each oItem In oFolder.Items
    If Left(oItem.Sender, 13) = "MAILER-DAEMON" Then
        sSQL = "INSERT INTO TestTable (data) VALUES ('" & oItem.Sender & "')"
        cn.Execute sSQL
    End If
Next

Смотри также: http://www.outlookcode.com/article.aspx?id=62
http://www.connectionstrings.com/mysql

...