Outlook Redemption

[MrDeej]

Hello!

Is there someone where who can givme a code example on a Outlook innbox import ta a table in Access using Outlook redemption ?

This is a little bit out-of-my-league programming :)

[MrDeej]

Please anyone.

I have to get this inbox import working so that i can start desgning the rest of the system.

Now i have surfed around on the web 2 days and tried and tried a million approaches but it just refuses to import my mails to a table..

Kindly Regards a frustrated Eirik

[MrDeej]

Like this:

Dim SafeMailItem, oMailItem
Set SafeMailItem = CreateObject("Redemption.SafeMailItem")
Set oMailItem = Outlook.Session.GetDefaultFolder(10).Items(1)
SafeMailItem.Item = oMailItem
MsgBox SafeMailItem.SenderName 

Should retur me the mail sendername

But it gives me a empty msgbox

[MrDeej]

And this code

dim utils, MailItem, PrSenderEmailAddress, SenderEMail
set utils = CreateObject("Redemption.MAPIUtils")
set MailItem = Application.Session.GetDefaultFolder(6).Items(1)  'Get the first item in the inbox, can be any other item
PrSenderEmailAddress = &H0C1F001E
SenderEMail = utils.HrGetOneProp(MailItem.MAPIOBJECT, PrSenderEmailAddress)
MsgBox SenderEMail 
 

Gives me a mark on the Session in Application.Session.GetDefaultFolder(6).Items(1) with a msg of "method or data member not found"

and when i add this as instructed on the web page

set Application = CreateObject("Outlook.Application")
set Namespace = Application.GetNamespace("MAPI")
Namespace.Logon
 

It gives me the same msg but this time on the GetNameSpace in the Application.GetNamespace("MAPI")

[MrDeej]

Forget it. I just found out that if i change "Application" to "Outlook" it works!!!
Whooa!! Now i can send mails from VBA without the stupid warning message and 5 second wait


But still not figured out how to import inbox into table

[MrDeej]

I am so proud

Dim rSt As New ADODB.Recordset
Dim MailImport As Object, oMailImport As Object
Dim mottatt As String
 
For i = 1 To 200
 
Set oMailImport = Outlook.Session.GetDefaultFolder(olFolderInbox).Items(i)
Set MailImport = New Redemption.SafeMailItem
 
MailImport.Item = oMailImport
 
mottatt = MailImport.ReceivedTime
 
If IsNull(DLookup("date", "tbl emails", "Date = '" & mottatt & "'")) Then
rSt.Open "[tbl emails]", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        With rSt
            .AddNew
            ![Date] = MailImport.ReceivedTime
            ![fra] = MailImport.Sendername
            ![emne] = MailImport.Subject
            ![Body] = MailImport.Body
            .Update
        End With
    rSt.Close
    Set rSt = Nothing
End If
 
Next

[ADezii]

I am so proud

Dim rSt As New ADODB.Recordset
Dim MailImport As Object, oMailImport As Object
Dim mottatt As String
 
For i = 1 To 200
 
Set oMailImport = Outlook.Session.GetDefaultFolder(olFolderInbox).Items(i)
Set MailImport = New Redemption.SafeMailItem
 
MailImport.Item = oMailImport
 
mottatt = MailImport.ReceivedTime
 
If IsNull(DLookup("date", "tbl emails", "Date = '" & mottatt & "'")) Then
rSt.Open "[tbl emails]", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        With rSt
            .AddNew
            ![Date] = MailImport.ReceivedTime
            ![fra] = MailImport.Sendername
            ![emne] = MailImport.Subject
            ![Body] = MailImport.Body
            .Update
        End With
    rSt.Close
    Set rSt = Nothing
End If
 
Next

GHood for you, MrDeej!