Reading email with Visual Basic API and create your own spam filter? You can by reading Outlook emails from Microsoft Access.
There are three VB code samples demonstrating methods to communicate between
Microsoft Access database and Microsoft Outlook for the purpose of sending and
receiving emails programmatically using VBA:
Blue Claw Database Design is your premier source of Microsoft Access programming and database support. Both small business and department-level databases. Desktop installation as well as cloud/internet based solutions.
With our new partnership with IT Impact we have extensive programming support in SQL/Server database, MS Access software, Power BI applications, .Net web development, PHP, Excel & Outlook customization.
MS Outlook provides a Visual Basic MAPI API to read email
from Access VB and process attachments too. In the example below we
connect to the Microsoft Outlook inbox via the API and loop through each email message while storing
parts of the email into a table:
Private Sub ReadInbox
Dim TempRst As DAO.Recordset
Dim rst As DAO.Recordset
Dim OlApp As Outlook.Application
Dim Inbox As Outlook.MAPIFolder
Dim InboxItems As Outlook.Items
Dim Mailobject As Object
Dim db As DAO.Database
Dim dealer As Integer
DoCmd.RunSQL "Delete * from tbl_outlooktemp"
Set db = CurrentDb
Set OlApp = CreateObject("Outlook.Application")
Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)
Set TempRst = CurrentDb.OpenRecordset("tbl_OutlookTemp")
Set InboxItems = Inbox.Items
For Each Mailobject In InboxItems
If Mailobject.UnRead Then
!Subject = Mailobject.Subject
!from = Mailobject.SenderName
!To = Mailobject.To
!Body = Mailobject.Body
!DateSent = Mailobject.SentOn
Mailobject.UnRead = False
Set OlApp = Nothing
Set Inbox = Nothing
Set InboxItems = Nothing
Set Mailobject = Nothing
Set TempRst = Nothing
To create your own spam filter you can use several techniques.
Connect to the Outlook address book and check incoming addresses against
your email address entries
Create a table of exclusion words for emails and use the Instr()
function to scan for excluded words
Create a table of inclusion words to grab read email with these words.
To learn how to
emails using Microsoft Access.