FiveTech Software tech support forums

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

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