Comment mettre à jour la base de données MySQL depuis Outlook Express?

Question

J'ai remarqué dans Outlook Express qu'il y a une fonction de macros et donc je veux jouer avec! Malheureusement, je n'ai pas programmé en VB depuis environ 5 ans.

Je reçois beaucoup de démons mailer de clients et d'employés à mon système de messagerie électronique que quelqu'un doit traverser et mettre à jour notre base de données MySQL pour annuler l'email manuellement. Donc, je veux savoir s'il est possible de prendre les emails des démons mailer et simplement mettre à jour une base de données MySQL avec une macro? Ressources ou exemples s'il vous plaît?

Je suis sûr que c'est simple mais mes recherches google reviennent avec peu d'aide.

Answer 1

Voici quelques notes approximatives.

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 

Voir aussi: http://www.outlookcode.com/article.aspx?id=62
http://www.connectionstrings.com/mysql