Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win


saving received emails into ms sql server 2000

Posted on 2007-04-11
Medium Priority
Last Modified: 2010-04-08

I would like to save received email into ms sql server.  I have outlook 2000 and when i receive an email i would like it to go straight into one of my sql server 2000 database.

How can I do this?


Question by:narmi2
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
LVL 76

Expert Comment

by:David Lee
ID: 18897267
Hi, narmi2.

This is possible, although there may be a few hoops to jump through to make it work.  A couple of questions first to get a clearer picture of what you're looking for.

1.  Do you want to save the message as an object or will the SQL table the message goes in have fields that mirror a message's properties?

2.  Is your mail on an Exchange server?  If yes, do you expect this process to work from the Exchange server or only from Outlook when it is open and running?

Author Comment

ID: 18897639
Hi BlueDevilFan

1. I would like to save the mail properties into proper table fields, i.e. the person who sent the email should go into a column called "from", the subject should go into the "subject" column and so on.

2. Yes we have exchange server.  Preferably, I would like it to work from exchange server, so I don't have to go to every employees PC to modify their outlook.

Thanks for the reply.
LVL 76

Expert Comment

by:David Lee
ID: 18899848
Hello again.  I'm going to address the issues in reverse order

2.  Not easily done.  Doing this at the server requires writing something called an Exchange event-sink.  Event-sink are to Exchange as macros are to Outlook.  They are blocks of code that are triggered when certain events occur, like mail arriving in a mailbox.  However, they are more complicated to write and any errors in an event-sink could bring the Exchange server down entirely.  They are definitely not for the inexperienced or faint of heart.  I am not prepared to write an event-sink.  I can describe in general terms what it would need to do, but that's it.

1.  Easily done.  There is one hitch though.  Assuming that you do this at the Outlook client instead of at the Exchange server, then accessing any message property that can contain an email address is going to trigger Outlook's built-in security measures.  The result will be a pop-up dialog-box warning that an application is accessing your mailbox and asking you for permission to allow it to continue.  That would pretty much kill any sort of automatic process.  Outlook security cannot be turned off, but there are workarounds.  You can use a third-party tool like Click-Yes to click the Yes button for you each time the warnign appears, or use another third-party tool called Outlook Redemption to safely avoid Outlook security.  Another alternative is to write this as a COM add-in.  The result would be a DLL that you can distribute to your clients.  COM add-ins have different security constraints than macros do and are not subject to the warning message.  

Getting the message properties into an SQL table is easy.  It simply requires creating a connection to the SQL server using ADO and executing an insert statement.  The real issue is where the code will run at (client versus server) and security issues.  I don't have an SQL server at hand, but I can post a sample macro demonstarting the proof of concept using an Access database.

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.


Author Comment

ID: 18904084

Looks like I will have to stick to the first approach.  How exactly do I do that, I do not know how or where to write my sql insert statement in outlook to get it to insert the email info into my table.  Do I have to use VBA?

If i am to use VBA, which trigger even do i need to detect that a new email has arrived?
LVL 76

Expert Comment

by:David Lee
ID: 18904470
Yes, you'll use VBA.  I'll post some sample code (it'll be later today/tonight) showing how to do this using VBA and ADO.  My example will use Access, you'll just need to change the connection string to use SQL Server.

Author Comment

ID: 18904535

the sample code will be very useful
LVL 76

Accepted Solution

David Lee earned 2000 total points
ID: 18909471
Ok, here's the sample.  This would work via a rule.  The rule could be set to fire for all messages or only ones meeting a specific condition.  

Sub StoreMessageInDatabase(Item As MailItem)
    Dim adoCon As ADODB.Connection, _
        strFields As String, _
        varValues As Variant, _
        strAttachments As String, _
        strRecipients As String
    'Enter the names of the Outlook properties you want to save into the database.  The field names I've used here are only a portion of what's available and I chose them for simply to demonstrate teh capability.
    strFields = "Attachments,BCC,Body,BodyFormat,Categories,CC,CreationTime,HTMLBody,ReceivedTime,Recipients,SenderEmailAddress,SenderName,Sensitivity,Subject,SentTo"
    With Item
        For Each objItem In .Attachments
            strAttachments = strAttachments & objItem.FileName & vbCrLf
        For Each objItem In .Recipients
            strRecipients = strRecipients & objItem.Name & vbCrLf
        varValues = "'" & strAttachments & "'," _
            & "'" & FixTextField(.BCC) & "'," _
            & "'" & FixTextField(.Body) & "'," _
            & .BodyFormat & "," _
            & "'" & FixTextField(.Categories) & "'," _
            & "'" & FixTextField(.CC) & "'," _
            & "'" & .CreationTime & "'," _
            & "'" & FixTextField(.HTMLBody) & "'," _
            & "'" & .ReceivedTime & "'," _
            & "'" & strRecipients & "'," _
            & "'" & FixTextField(.SenderEmailAddress) & "'," _
            & "'" & FixTextField(.SenderName) & "'," _
            & .Sensitivity & "," _
            & "'" & FixTextField(.Subject) & "'," _
            & "'" & FixTextField(.To) & "'"
    End With
    Set adoCon = CreateObject("ADODB.Connection")
    'Change the connection string on the next line to that of an SQL connection string
    adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\eeTesting\MDB\Mail.mdb;Persist Security Info=False"
    adoCon.Execute "INSERT INTO Messages (" & strFields & ") VALUES(" & varValues & ")"
    Set adoCon = Nothing
End Sub

Function FixTextField(varValue) As Variant
    FixTextField = Replace(Replace(varValue, Chr(34), Chr(34) & Chr(34)), "'", "''")
End Function

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Many people use more than one email account and so it becomes difficult for them to manage them when they use separate accounts,  so, in this article, I have shared an easy way to add Other Mail Accounts in your Google Inbox. It helps to combine all…
This article describes how to import Lotus Notes Contacts into Outlook 2016, 2013, 2010 and 2007 etc. with a few manual steps. You can easily export and migrate Lotus Notes contacts into Microsoft Outlook without having to use any third party tools.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…

604 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question