Outlook ExpressからMySQLデータベースを更新するには？

Question

私はOutlook Expressにマクロ機能があることに気付きました。 Unfortanetly、私は約5年間VBでプログラミングしていない。

多くのメーラデーモンがクライアントや従業員から私のメールシステムに届いています。このデーモンは、MySQLデータベースを更新して電子メールを手動で無効にする必要があります。

メーラーデーモンから電子メールを受け取り、単にMySQLデータベースをマクロで更新できるかどうかを知りたいですか？リソースや例をお願いしますか？

私はそれが簡単だと確信していますが、私のGoogle検索はほとんど役に立たないです。

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