Reading e-mails in Outlook

[driessen]

Hello,

Can someone provide me with a working FWH-example how to read (unread) e-mails in Outlook with attachments ?

Thanks you very much in advance.

[driessen]

Please ??????????????

[StefanHaupt]

Michel,

I found this sample in my archive, maybe it helps

Code: Select all  Expand view  RUN

#define olFolderInbox 6


FUNCTION MAIN()

    LOCAL oOutlook := CREATEOBJECT( "Outlook.Application" )
    LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI")
    LOCAL oInbox := oNameSpace:GetDefaultFolder( olFolderInbox )

    LOCAL i

    FOR i = 1 TO oInbox:Items:Count
        ? oInbox:Items[ i ]:Body
        ?
    NEXT

    oOutlook:Quit()

    RETURN NIL


[driessen]

Stefan,

Thanks a lot for your reaction.

But my problem is : how can I read the attachments ?

Thanks.

[StefanHaupt]

Michel,

I did´t find a sample reading attachments, sorry, maybe Enrico can help.

[Otto]

Michael,

you have to extend the code Stefan posted.

The lines are:
For Each anhang In myItem.Attachments
anhang.SaveAsFile myOrt & mail & "_" & anhang.FileName
'MsgBox (anhang.DisplayName)
Next
My code is VBA.

Please post back it it is working.

Regards,
Otto

Code: Select all  Expand view  RUN

Sub SaveEmail()
Dim myItems, myItem As Object
Dim myOrt As String
Dim myOlApp As New Outlook.Application
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection


Dim anhang As Outlook.Attachment


myOrt = "c:\whoLIMP\"
On Error Resume Next
'work on selected items
Set myOlExp = myOlApp.ActiveExplorer
Set myOlSel = myOlExp.Selection
'for all items do...
For Each myItem In myOlSel
myItem.SaveAs myOrt & "xxxx.txt", olTXT

myItem.SaveAs myOrt & myItem.EntryID & ".txt", olTXT
myItem.SaveAs myOrt & myItem.EntryID & ".msg", olMSG


For Each anhang In myItem.Attachments
anhang.SaveAsFile myOrt & mail & "_" & anhang.FileName
'MsgBox (anhang.DisplayName)
Next



'myItem.Delete
Next
'free variables
Set myItems = Nothing
Set myItem = Nothing
Set myOlApp = Nothing
Set myOlExp = Nothing
Set myOlSel = Nothing
End Sub