Option Compare Database
 
Public Sub ProcessInbox()
Dim oOutlook As Outlook.Application
Dim oNs As Outlook.nameSpace
Dim oFldr As Outlook.MAPIFolder
Dim oAttachments As Outlook.Attachments
Dim oAttachment As Outlook.Attachment
Dim iMsgCount As Integer
 
Dim oMessage As Outlook.MailItem
 
Dim iCtr As Long, iAttachCnt As Long
 
Dim sFileNames As String
Dim aFileNames() As String
 
 
'get reference to inbox
Set oOutlook = New Outlook.Application
Set oNs = oOutlook.GetNamespace("MAPI")
Set oFldr = oNs.GetDefaultFolder(olFolderInbox)
Debug.Print "Total Items: "; oFldr.Items.Count
Debug.Print "Total Unread items = " & oFldr.UnReadItemCount
 
 
For Each oMessage In oFldr.Items
 
        With oMessage
        'basic info about message
            Debug.Print .To
            Debug.Print .CC
            Debug.Print .Subject
            Debug.Print .Body
            If .UnRead Then
                Debug.Print "Message has not been read"
            Else
                Debug.Print "Message has been read"
            End If
            iMsgCount = iMsgCount + 1
            'save message as text file
 
            'reference and save all attachments
            With oMessage.Attachments
                iAttachCnt = .Count
                If iAttachCnt > 0 Then
                    For iCtr = 1 To iAttachCnt
 
            .Item(iCtr).SaveAsFile "D:\TRANSFER\ANADOLU\" & .Item(iCtr).FileName & ".XML"
 
                    Next iCtr
                End If
            End With
        End With
        DoEvents
 
    Next oMessage
 
 
    Set oAttachment = Nothing
    Set oAttachments = Nothing
    Set oMessage = Nothing
    Set oFldr = Nothing
    Set oNs = Nothing
    Set oOutlook = Nothing
 
End Sub

Public Sub ProcessInbox()
Dim oOutlook As Outlook.Application
Dim oNs As Outlook.nameSpace
Dim oFldr As Outlook.MAPIFolder
Dim iMsgCount As Integer
 
Dim oMessage As Outlook.MailItem
Dim iCtr As Long, iAttachCnt As Long
Dim SilDosNu As String, SilIleti As Object
 
Set oOutlook = New Outlook.Application
Set oNs = oOutlook.GetNamespace("MAPI")
Set oFldr = oNs.GetDefaultFolder(olFolderInbox)
Const Yer As String = "D:\"      '********Dosya Klasoru ***********
For Each oMessage In oFldr.Items
 
        With oMessage
            'Debug.Print .To,.CC,.Subject,.Body
              iMsgCount = iMsgCount + 1
 
    If .To = "sonerdursun@gmail.com" Then
            With oMessage.Attachments
                iAttachCnt = .Count
                If iAttachCnt > 0 Then
                    For iCtr = 1 To iAttachCnt
                       .Item(iCtr).SaveAsFile Yer & .Item(iCtr).FileName & StrReverse(Mid(StrReverse(.Item(iCtr).FileName), 1, InStr(1, StrReverse(.Item(iCtr).FileName), ".")))
                    Next iCtr
                    SilDosNu = oMessage.entryID
                End If
               Forms("ANADOLUXML").Komut4.Caption = oMessage.Subject & IIf(oMessage.UnRead, " Okunmadi", " Okundu")
               Set SilIleti = oOutlook.Session.GetItemFromID(SilDosNu)
               SilIleti.Delete
            End With
        End If
    End With
      DoEvents
    Next oMessage
 
    Set oMessage = Nothing
    Set oFldr = Nothing
    Set oNs = Nothing
    Set oOutlook = Nothing
 
End Sub