HighTechTalks DotNet Forums  

Error Reading PST file with Redemption

Visual Studio.net (General) microsoft.public.vsnet.general


Discuss Error Reading PST file with Redemption in the Visual Studio.net (General) forum.



Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old   
Asher Z
 
Posts: n/a

Default Error Reading PST file with Redemption - 03-15-2011 , 10:41 PM






hi,
I'm evaluating the Redemption tool on my dev laptop having Office 2003 and outlook installed. I'd like to extract the emails and attachements from various PST files (without login) and hopefully export them to TXT, MSG and PDF files
I'm getting the following error whenever i click on either button.
Any sample programs will be greatly appreciated.

Please help

AZ

Unable to cast COM object of type 'Redemption.RDOFolderClass' to interface type 'Redemption.MAPIFolder'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{31CE2164-4D5C-4508-BCA7-B10E11D08E6B}' failed due to the following error: No such interface supported (Exception from HRESULT: 0x80004002 (E_NOINTERFACE)).


Imports Outlook = Microsoft.Office.Interop.Outlook

Imports Redemption

Imports System.Data.SqlClient

Public Class Form1



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Session As Redemption.RDOSession

Session = CreateObject("Redemption.RDOSession")

Session.Logon()

Dim Inbox As Redemption.RDOFolders


Inbox = Session.GetDefaultFolder(Redemption.rdoDefaultFold ers.olFolderInbox)

For Each Msg In Inbox.Items

Debug.Print(Msg.Subject)

Next


End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim Session As Redemption.RDOSession

Session = CreateObject("Redemption.RDOSession")

'Session.Logon()

Session.Logon("Outlook", "", False, False)

Dim Folder As Redemption.MAPIFolder

Dim Msg As Redemption.RDOMail

Folder = Session.GetDefaultFolder(Outlook.OlDefaultFolders. olFolderInbox)

For i = 1 To 10 'Folder.Items.Count

Msg = Folder.Items.Item(i)

'Msg.Delete()

MessageBox.Show("Msg Deleted")

Next


End Sub

End Class


Submitted via EggHeadCafe
SharePoint Get Attachment with Attachment Icon Using Javascript
http://www.eggheadcafe.com/tutorials/aspnet/84606954-21c2-4038-a9ed-bcbd525f978e/sharepoint-get-attachment-with-attachment-icon-using-javascript.aspx

Reply With Quote
Reply




Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off



Powered by vBulletin Version 3.5.4
Copyright ©2000 - 2013, Jelsoft Enterprises Ltd.