Receive Email Using Ms-Access and Outlook

Hai.
I needto Receive Email using Ms-Access and Outlook.

On the receiving end, the user receives the email at the Outlook. When they opens the Email, the message box should have a button called “Save to Access”.

When this button is pressed, a dialog box should pop up where the user can choose a contact name and a job name and click on SAVE

Here contact name and job name are in the access table fields. We go to select any one contact and any one job for the particular Email. Then the Email details are stored into a Access table.

There anybody help me for this...

Thanks
Tamilvanan

What code have you tried so far?

Hai.
I needto Receive Email using Ms-Access and Outlook.

On the receiving end, the user receives the email at the Outlook. When they opens the Email, the message box should have a button called “Save to Access”.

When this button is pressed, a dialog box should pop up where the user can choose a contact name and a job name and click on SAVE

Here contact name and job name are in the access table fields. We go to select any one contact and any one job for the particular Email. Then the Email details are stored into a Access table.

There anybody help me for this...

Thanks
Tamilvanan

You would need to create Automation code in Outlook in order to establish communications betwen the 2 Applications - not an easy task.

Hi TamilVanan, personally I wouldnt keep prompting for each email received, it would be a right pain in the **** at times. Why dont u just customize the toolbar to run your macro?

Code itself is pretty straight forward, not much difficulty there
A number of ways to do it, here is one simple method.


to use DAO, u would need to add the reference to Microsoft DAO Object Library v3.6


other method, u could create access objects then issue a DoCmd.RunSQL command, just as easy except users need permissions to create objects
and of course the alternative to DAO is to use ADO

What code have you tried so far?

Hai. Am using the following code only for display the Content of mail in Access Form. But the Receive mails are got from Inbox folder at Outlook.

Private Sub Command0_Click()
command0 and a text field called text1
Dim objApp As Outlook.Application
Dim objItem As Outlook.MailItem
Dim SndName As String, SndAddr As String, ToName As String, CCName As String
Dim Subj As String, Rcvd As String, MsgBody As String, AtchName As String
Set objApp = New Outlook.Application
'For Each objItem In objApp.ActiveExplorer.Selection
For Each objItem In objApp.ActiveExplorer.Selection
If objItem.Class = olMail Then
With objItem
SndName = .SenderName
SndAddr = .SenderEmailAddress
ToName = .To
CCName = .CC
Subj = .Subject
MsgBody = .Body
Rcvd = .ReceivedTime

End With
End If
Next

Me.Text1 = MsgBody
Set objItem = Nothing
Set objApp = Nothing
End Sub

But i need,

On the receiving end(Outlook), the user receives the email at the Outlook. When they opens the Email at Outlook, the message box should have a button called “Save to Access”.

When this button is pressed, a dialog box should pop up where the user can choose a contact name and a job name and click on SAVE

Here contact name and job name are two tables that already there in the access Application. We go to select any one contact and any one job for the particular Email. Then the Email details are stored into a Access table.

If u know how to do the functionalities, plese let me know.

Thanks
Tamilvanan

As a start, the same way you Dim the Outlook application, you can do the same for an Access application and then open a database.

From that code, what is it u want to store?
the example code Ive given shows u how u can add values to ms access

I am using prompts for contact and job, u can substitute this with other values