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

#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

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