[VB6] Outlook Mapi

[twister_has_you]

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

    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

[mikkuz]

Originariamente inviato da twister_has_you
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

    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  [ ;) COLOR=orangered].MsgOrigAddress[/COLOR]   
            Text1.Text = PostaTesto
            Text2.Text = Postadata
        End With

[twister_has_you]

mi dà

Proprietà o metodo non supportati dall'oggetto così

[mikkuz]

Prova con .Sender, dovrebbe funzionare !!

[twister_has_you]

no non funziona neanche così
grazie per l'aiuto
ciao

altre idee ?

[macse]

Altre idee potrebbe essere utilizzare WinSock e il protocollo POP3 per estrarre le mail dal server dopo avrai solo del testo con tutte le informazioni che vuoi e soprattutto fara solo quello che ti serve e non quello che vuole Fratel Bill.

macse

[twister_has_you]

l'avevo pensato anch'io... ma putroppo io non voglio scaricarle dal server, ma voglio sincronizzare il mio software all'outlook

e ci sono riuscito ... l'unica cosa che mi manca è l'indirizzo email del mittente (come ho detto prima mi dà solamente il nome in rubrica..se è contenuto in rubrica)

grazie cmq