Reaching e-mail Components from MS Access

[KiaKia]

HI Everybody,
I wonder to know if there is any way to have access to an e-mail component like the Subject, Reciepents or Sender from an MS Access form.

 

[Remou]

Have a look at SendObject.

 

[SeeThru]

For sending use

1) Sendobject (simplest)

2) Link to Outlook (gives you much more control over the email)

3) Use direct connection - OstroSoft do a decent dll with sample code that works.

For receiving use

1) Link to outlook using wizard - limits the fields

2) Full link to outlook received objects

3) Ostrosoft again



SeeThru
Synergy Connections Ltd - Telemarketing Services

http://www.synergyconnections.co.uk

 

[Hap007]

Hi,

Couple of questions for you:

Are you trying to build and send emails or are you trying to read emails that you have already received?

Are you using OutLook?

Hap...

Access Developer

http://www.fcs-software.com/fcsaccessdev.html

Access based Accounting Solutions - with free source code
Access Consultants forum

http://www.tek-tips.com/threadminder.cfm?pid=1121

 

[KiaKia]

Hi Hap,
I try to read the incoming e-mails and I am using outlook.
Kia

 

[Remou]

Here are some notes.

Sub ListMail()
Dim oApp As Outlook.Application
Dim oNS As NameSpace
Dim oRecItems As Outlook.MAPIFolder
Dim oFilterRecItems As Items
Dim oNewMail As Outlook.MailItem
Dim strFilter As String
Dim dteLastCheck As Date
Dim dteThisCheck As Date
Dim strNewMessage As String
Dim i

'Check last 30 days emails
dteLastCheck = DateAdd("d", -30, Now())
dteThisCheck = Now()

Set oApp = CreateObject("Outlook.Application")
Set oNS = oApp.GetNamespace("MAPI")

Set oRecItems = oNS.GetDefaultFolder(olFolderInbox)
strFilter = "[ReceivedTime] > " _
          & Chr(34) & Format(dteLastCheck, "dd/mm/yyyy hh:nn") & Chr(34) _
          & " AND [ReceivedTime] < " _
          & Chr(34) & Format(dteThisCheck, "dd/mm/yyyy hh:nn") & Chr(34)
Set oFilterRecItems = oRecItems.Items.Restrict(strFilter)

'Print results to the immediate window.
Debug.Print = "Number of emails: " & oFilterRecItems.Count & vbCrLf
For i = 1 To oFilterRecItems.Count
    Debug.Print _
    oFilterRecItems(i).ReceivedTime & vbCrLf _
    & oFilterRecItems(i).To & vbCrLf _
    & oFilterRecItems(i).EntryID & vbCrLf ' _
    & oFilterRecItems(i).Body & vbCrLf
Next

Set oFilterRecItems = Nothing
Set oNS = Nothing
Set oApp = Nothing
End Sub

 

[markedback]

Here is a website that covers many Access - Outlook issues

http://www.granite.ab.ca/access/email/outlook.htm