Check if sender is in SQL ODBC database - sql

Question

I am using outlook 2010.
When I get an e-mail I need the following to happen:
Check the e-mail address of the sender against my ODBC database:
a. If found then save as .htm in a specific folder and write "1" on the the table's database.
b. If found two times then forward the e-mail to admin#mydomain.org with the subject: "Duplicate to sort manually"
c. If not found then forward it to admin#mydomain.org with the subject: "e-mail to be added to database"
Here is where I am now:
Public Sub ShowMessage(Item As Outlook.MailItem)
'connect to database
On Error Resume Next
Dim cnn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As ADODB.Command
Dim sSQL As String
Dim strConn As String
Set cnn = New ADODB.Connection
strConn = "DSN=mydsn;DATABASE=mydb;Trusted_Connection=yes;"
cnn.Open strConn
' Set cmd = New ADODB.Command
' cmd.ActiveConnection = cnn
sSQL = "SELECT id FROM dbo.mailing_list WHERE email_add = '" & Item.SenderEmailAddress & "'"
' cmd.CommandText = sSQL
rst.Open sSQL, cnn, adOpenStatic
email_add = rst!email_add
If rst.BOF And rst.EOF Then
' nothing found
Stop
ElseIf rst.RecordCount > 1 Then
' more than one record
Stop
Else
' one record
'
Dim Path As String
Path = "C:\"
End If
Dim strFromEmail As String
'name and format I want the email to be saved
Item.SaveAs Path, olMHTML
'if email is saved send an alert msg and if not send another one
If Item.Saved = True Then
Item.Delete
Else
MsgBox ("This email was not saved.")
End If
ex:
Set cnn = Nothing
Set cmd = Nothing
Set rst = Nothing
Set rst1 = Nothing
End Sub

Answer 1

Consider implementing the following scenarios:
Create a rule to run a macro which can do #a and #b.
The VBA sub should look like the following one:
Public Sub HandleNewMail(mail As MailItem)
' do something
End Sub
The Outlook object model provides the Forward method for items. It executes the Forward action for an item and returns the resulting copy as a MailItem object. The SaveAs method saves the Microsoft Outlook item to the specified path and in the format of the specified file type. If the file type is not specified, the MSG format (.msg) is used. Pass the olHTML value for the second parameter.
Handle the NewMailEx event of the Application class. It is fired when a new item is received in the Inbox.
It is up to you which way is to choose. But I'd suggest starting from the Getting Started with VBA in Outlook 2010 article in MSDN.

Answer 2

for the SQL-part I would use a separate module; i think the following should work. Use something like
Sub whatsoever()
Dim countsql As Integer
countsql = countemailadress("rechnung.wien#bechtle.com")
Debug.Print "COUNT = " & countsql
End Sub
to call it, then you have the answer in the "countsql" and can use this e.g. in a "case".
here the function:
Function countemailadress(searchforemail As String)
Dim mysql As String
Dim con As ADODB.connection
Dim rec As ADODB.recordset
Set con = New ADODB.connection
con.Open "DSN=mydsn;DATABASE=mydb;Trusted_Connection=yes;"
mysql = "SELECT Count(mailing_list.[email_add]) AS countemail_add FROM mailing_list where (mailing_list.[email_add]=" & searchforemail & ");"
Set rec = con.Execute(mysql)
rec.movefirst
countemailadress = rec.Fields(0)
End Function
I hope this helps,
Max