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