Ho questo codice che mi scarica il contenuto della Posta Inviata
in una tabella del Db
solo che la proprietà sendername che ho grassettato nel codice qui sotto mi restituisce il nome del mittente, a me invece serve l'indirizzo email del mittente.
esiste una proprietà (come sendername) di questo oggetto che ho usato che faccia al caso mio ??? idee ??? grazie a tutti e ciao

codice:
    Set OggettoOutlookMAPI = OggettoOutlook.GetNamespace("MAPI")
    DoEvents
    Dim data, ora, MassimoData, MassimoOra
    Dim PostaTO, PostaCC, PostaSoggetto, PostaTesto
    Dim itms As Outlook.Items
    ' CONTO LE E MAIL INVIATE '
    Set NumeroPosta = OggettoOutlookMAPI.GetDefaultFolder(olFolderSentMail)
    Set NumeroPosta = NumeroPosta.Items
    NumeroPosta = NumeroPosta.Count
    ' VERIFICO SE CI SONO E MAIL GIA' NEL DB'
    
    sql = "select max(verbcompl) as Datamax from verqualita"
    Set rs = cn.Execute(sql)
    MassimoData = rs!datamax
    If IsNull(MassimoData) = True Then MassimoData = "01/01/1900"
    sql = "select max(acprod) as Oramax from verqualita where verbcompl =" & apiceOsharp & MassimoData & apiceOsharp
    Set rs = cn.Execute(sql)
    MassimoOra = rs!Oramax
    If IsNull(MassimoOra) = True Then MassimoOra = 0
    For Giro = 1 To NumeroPosta
        Label5.Caption = "Email Rimaste  " & NumeroPosta - Giro
        Set Posta = OggettoOutlookMAPI.GetDefaultFolder(olFolderSentMail).Items(Giro)
        With Posta
            PostaTO = .To
            PostaCC = .cc
            PostaSoggetto = .Subject
            PostaTesto = .Body
            Postadata = .ReceivedTime
            Text5.Text = PostaSoggetto
            Text4.Text = PostaTO
            Text3.Text = .Sendername  
            Text1.Text = PostaTesto
            Text2.Text = Postadata
        End With