Question

我在outlook express中注意到有一个宏功能，所以我想玩它！不幸的是，我还没有用VB编程大约5年。

我从客户和员工那里得到了很多邮件程序守护程序到我的电子邮件系统，有人必须通过这些守护程序更新我们的MySQL数据库以手动取消电子邮件。

所以，我想知道是否可以从邮件程序守护程序中获取电子邮件，只需用宏更新MySQL数据库？资源或示例好吗？

我确信这很简单，但我的谷歌搜索回来时没什么帮助。

Answer 1

以下是一些粗略的说明。

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

如何从Outlook Express更新MySQL数据库？

1 个答案: