Question

I noticed in outlook express that there is a macros function and so I want to play with it! Unfortanetly, I have not programmed in VB for about 5 years.

I get a lot of mailer daemons from clients and employees to my email system which someone has to go through and update our MySQL database to void the email manually.

So, I want to know if it is possible to take the emails from the mailer daemons and simply update a MySQL database with a macros? Resources or examples please?

I’m sure it is simple but my google searches come back with little help.

Answer 1

Here are some rough notes.

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

See also: http://www.outlookcode.com/article.aspx?id=62
http://www.connectionstrings.com/mysql