Groups > it.comp.lang.visual-basic > #19928

Re: Export mail outlook in Excel

Newsgroups	it.comp.lang.visual-basic
Date	2021-09-30 01:47 -0700
References	<e97f08f8-2399-4c0f-8a09-3928750e171dn@googlegroups.com> <sj2d7c$dho$1@gioia.aioe.org> <2224b654-fa93-4b22-a9f1-3e2dfd950362n@googlegroups.com> <sj2j0b$18p7$1@gioia.aioe.org> <44c056cf-6d21-4057-8ac8-0d2d0f60a467n@googlegroups.com>
Message-ID	<04495728-c063-4310-a78e-d1e290f10ff5n@googlegroups.com> (permalink)
Subject	Re: Export mail outlook in Excel
From	Marco75 <marcoporzi75@gmail.com>

Show all headers | View raw

Il giorno giovedì 30 settembre 2021 alle 08:44:58 UTC+2 Marco75 ha scritto:
> Il giorno mercoledì 29 settembre 2021 alle 22:40:46 UTC+2 Franz_aRTiglio ha scritto: 
> > Dopo dura riflessione, Marco75 ha scritto : 
> > > Il giorno mercoledì 29 settembre 2021 alle 21:02:06 UTC+2 Franz_aRTiglio ha 
> > > scritto: 
> > >> Marco75 ci ha detto : 
> > >>> non lette potrebbe non servire in quanto le non lette sono già quelle che 
> > >>> voglio 
> > >> così a braccio: 
> > >>> xlWb.Worksheets(1).Cells(i, "D").Value = olItems(i).UnRead 
> > >> unread significa "non lette", quindi eviterei gli altri selettori e 
> > >> partirei da qui.... 
> > > 
> > > Ciao, 
> > > UnRead significa non lette ok, ma non voglio mettere lo stato di mail letta o 
> > > non letta in Excel, vorrei che prendesse solo le mail non lette ed esportasse 
> > > solo quelle. 
> > sempre a braccio.... 
> > 
> > if olItems(i).UnRead = true then
> ho provato ad inserire il comando If ma non fa più nulla! 
> l'ho messo sia prima che dopo la parte For Each ma non cambia niente! 
> 
> Marco
credo di aver risolto partendo da if olItems(i).UnRead = true then come consigliato...
l'unica cosa che non mi metteva l'intestazione ma la faccio creare dopo l'estrazione inserendo una riga in A1

sFilter = "[UnRead] = true" '<<<<<<<<<<<<
    
    
    Set olNS = GetNamespace("MAPI")
    'Set olInboxFolfer = olNS.GetDefaultFolder(olFolderInbox).Folders("Notifiche QDA")
    Set olInboxFolfer = olNS.GetDefaultFolder(olFolderInbox).Folders("Buste paga CUD e fatture")
    'Set olItems = olInboxFolfer.Items
    Set olItems = olInboxFolfer.Items.Restrict(sFilter) '<<<<<<<
    
   i = 1
    
    On Error Resume Next
  
    For Each olMailItem In olItems

        xlWb.Worksheets(1).Cells(i, "A").Value = olItems(i).ReceivedTime
        xlWb.Worksheets(1).Cells(i, "B").Value = olItems(i).SenderName
        xlWb.Worksheets(1).Cells(i, "C").Value = olItems(i).Subject
        xlWb.Worksheets(1).Cells(i, "D").Value = olItems(i).UnRead
    
    i = i + 1

    Next olMailItem
    
    xlWb.Worksheets(1).Range("A1").Select
    xlWb.Worksheets(1).Range("A1").EntireRow.Insert
    xlWb.Worksheets(1).Range("A1").Resize(1, UBound(arrHeader) + 1).Value = arrHeader

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Find similar

Thread

Export mail outlook in Excel Marco75 <marcoporzi75@gmail.com> - 2021-09-29 07:29 -0700
  Re: Export mail outlook in Excel Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2021-09-29 21:06 +0200
    Re: Export mail outlook in Excel Marco75 <marcoporzi75@gmail.com> - 2021-09-29 12:58 -0700
      Re: Export mail outlook in Excel Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2021-09-29 22:45 +0200
        Re: Export mail outlook in Excel Marco75 <marcoporzi75@gmail.com> - 2021-09-29 23:44 -0700
          Re: Export mail outlook in Excel Marco75 <marcoporzi75@gmail.com> - 2021-09-30 01:47 -0700

csiph-web