Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 45

Discussione: importare mail da outlook a excel



  1. #1
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    importare mail da outlook a excel

    ciao a tutti, quello su cui sto lavorando è di riuscire ad importare in un foglio Excel le mail ricevute in Outlook (di office 2010) da una directory specifica di archiviazione. spiego meglio: la cartella da cui devo scaricare le mail è una sottocartella di "posta in arrivo". il risultato mi servirà successivamente per compilare una listbox in una userform. ho trovato diversi codici (alcuni già nei moduli del file allegato) ma per un motivo o nell'altro non funzionano affatto o addirittura rendono errori di cui non sono riuscito a trovare riferimenti in rete. Potete indirizzarmi anche questa volta verso soluzioni percorribili?
    File Allegati File Allegati
    Invia MPPM 

  2. #2
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    ciao a tutti, buona sera. gironzolando qua e la ho trovato il modello allegato. è funzionale ma non conoscendo il sistema ... brancolo nel buio. il pulsante importa le mail aprendo una finestra che lascia scegliere la cartella mail da importare e le registra aprendo un file Excel nuovo. sarebbe perfetto se invece di aprire la finestra di dialogo scegliesse una subdirectory fissa di Outlook e invece di registrare le mail in un foglio nuovo le registrasse per esempio in Foglio2. come detto ... brancolo nel buio. non ho nemmeno capito come realizzi l'operazione. qualcuno ne capisce? come sempre grazie in anticipo.
    File Allegati File Allegati
    Invia MPPM 

  3. #3
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    dunque, questo il codice che ho blandamente modificato.
    Codice: 
    Option Explicit
    Sub CopyMailToExcel()
    Dim Olns As Outlook.Namespace, MyInbox, OutlookMessage, FullMsg, AllLines
    Set Olns = Outlook.GetNamespace("MAPI")
    Set MyInbox = Olns.PickFolder
    Dim XLApp As Excel.Application
    Dim Wkb As Excel.Workbook
    Dim Wks As Excel.Worksheet
    Dim myRecipient As Outlook.Recipient
    Dim ExcelWasNotRunning As Boolean, mDescr As String, mLen As Integer, d As Integer
    Dim Pos As Integer, Valore As String
    Dim mArr(), r As Integer, mRiga As Integer, StartCount As Long, UseCol As Integer
    Application.ScreenUpdating = False
    ReDim mArr(0)
    r = 1
    Do Until Cells(r, 1) = ""
        ReDim Preserve mArr(r - 1)
        mArr(r - 1) = Cells(r, 1)
        r = r + 1
    Loop
    On Error Resume Next
    Set XLApp = GetObject(, "Excel.Application")
    If Err Then
        ExcelWasNotRunning = True
        Set XLApp = New Excel.Application
        XLApp.Visible = True
    End If
    Set Wkb = XLApp.Workbooks.Add
    Set Wks = Sheets(1)
    With Wks
        Cells(1, 1) = "Mittente"
        Cells(1, 2) = "Mittente-Mail"
        Cells(1, 3) = "Oggetto"
        Cells(1, 4) = "Data-Ora"
        Cells(1, 5) = "Messaggio"
        For mRiga = LBound(mArr) To UBound(mArr)
            Cells(1, mRiga + 5) = mArr(mRiga)
        Next
        StartCount = 1
        For Each OutlookMessage In MyInbox.Items
            StartCount = StartCount + 1
            .Range("A" & StartCount).Value = OutlookMessage.SenderName
            .Range("B" & StartCount).Value = OutlookMessage.SenderEmailAddress
            .Range("C" & StartCount).Value = OutlookMessage.Subject
            .Range("D" & StartCount).Value = OutlookMessage.ReceivedTime
            .Range("E" & StartCount).Value = OutlookMessage.Body
            Set myRecipient = Olns.CreateRecipient(Right(OutlookMessage.SenderEmailAddress, 5))
            myRecipient.Resolve
            If myRecipient.Resolved Then
                Debug.Print myRecipient.AddressEntry.GetExchangeUser().PrimarySmtpAddress
            End If
            UseCol = 5
            FullMsg = OutlookMessage.Body
            AllLines = Split(FullMsg, vbCrLf)
            For mRiga = LBound(mArr) To UBound(mArr)
                mDescr = mArr(mRiga)
                mLen = Len(mDescr)
                For d = LBound(AllLines) To UBound(AllLines)
                    On Error Resume Next
                    If Left(AllLines(d), mLen) = mDescr Then
                        Pos = InStr(AllLines(d), ":")
                        Valore = Mid(AllLines(d), Pos + 1, Len(AllLines(d)))
                        .Cells(StartCount, UseCol).Value = Valore
                        UseCol = UseCol + 1
                        Exit For
                    End If
                Next d
            Next mRiga
        Next
                Cells.Select
                Selection.Copy
                Windows("OutLook.xlsm").Activate
                Sheets("Foglio2").Select
                ActiveSheet.Paste
                Range("A1").Select
                Cells.Select
        With Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Cells.EntireColumn.AutoFit
        Range("A1").Select
    End With
    Wkb.Close savechanges:=False
    Application.ScreenUpdating = True
    End Sub
    la finestra di dialogo non ho capito come evitarla quindi mi adeguo a tenermela com'è. il problema dell'apertura del foglio esterno nuovo l'ho aggirato copiando il contenuto, incollandolo nel foglio2 e chiudendo il file esterno senza salvarlo. imposto la discussione come risolta. qualora a qualcuno venisse qualche idea ed avesse qualche consiglio per sviluppare la routine ... grazie mille. ciao a tutti.
    Invia MPPM 

  4. #4
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    rieccomi. sono andato parecchio avanti con questo lavoro ma mi sono (di nuovo) arenato contro una condizione che esula dalle mie conoscenze/capacità. allego due file, identici (ai miei occhi) se non per come sono stati nominati i file. nel file compresso due foto, la prima l'errore che mi compare sistematicamente in cartel1, la seconda mostra le librerie attivate nei Riferimenti. non ci arrivo, non ho idea del perché il file Legge_Outlook1.xlsm funziona benissimo mentre Cartel1.xlsm mi dà errore. come sempre, grazie in anticipo per l'attenzione.
    File Allegati File Allegati
    Invia MPPM 

  5. #5
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    una manina ... :223:? Anche solo un'opinione ...
    Invia MPPM 

  6. #6

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: importare mail da outlook a excel

    Ciao nessi,
    io non utilizzo Outlook, quindi credo che ci metteremmo lo stesso tempo a cercare una soluzione al tuo problema...
    Comunque, metto la discussione in rilievo per un paio di giorni sperando che qualcuno più ferrato in materia si faccia avanti.

    Ciao
    Tore

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  7. #7
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    Grazie mille cromagno. sono proprio in un vicolo cieco
    Invia MPPM 

  8. #8
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: importare mail da outlook a excel

    Ciao Nessi, qui da casa non posso provare i tuoi file perchè non ho Outlook installato, ma provo a darti qualche indicazione:

    1) nel file cartel1 togli nei riferimenti la spunta da InfoPath mi sa che non serve e non ce l'hai installato
    2) e metti il flag su Microsoft Office Outlook View Control

    e facci sapere
    Invia MPPM 

  9. #9
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    grazie per l'interessamento powerwin! non è cambiato nulla ma ... permettimi un'eccezione. se l'altro file funziona e le librerie sono comuni ... non mi torna. sicuramente c'è qualcosa che mi sfugge ma secondo me c'è qualcosa nel file cartel1 che lo rende diverso dall'altro che invece funziona. li ho ribaltati entrambi mille volte ma non ho trovato una virgola di differenza tra i due. sai come me ne sono accorto? ho lavorato sul primo modello che ho allegato e sono arrivato a sgrossare le operazioni che mi interessavano da includere in un sistema esistente che devo implementare. ops! non funziona e mi da l'errore che ho mostrato. non ne vengo fuori e allora rendo modello e file Cartel1 identici. uno va l'altro no. .....
    Invia MPPM 

  10. #10
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: importare mail da outlook a excel

    no no Nessi...i Riferimenti sono associati a ciascun file...ed io avendoli aperti entrambi ti posso dire che hanno riferimenti diversi
    Invia MPPM 

  11. #11
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    cavoli, imparato cosa nuova. grazie ero (ovviamente sbagliando) convinto del contrario. controllo meglio
    Invia MPPM 

  12. #12
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: importare mail da outlook a excel

    cavoli no, ho sbagliato io...sono uguali perdonami Nessi
    Invia MPPM 

  13. #13
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    no problem ... tanto non funziona lo stesso :171:
    Invia MPPM 

  14. #14
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    Intanto ho modificato le due macro dei due files perché c'è un errore. avevo lasciato un paio di righe inutili di precedenti modifiche.
    Codice: 
    Sub A()
    'VUOLE RIFERIMENTO A MICROSOFT xx OUTLOOK LIB.
    '---------------------------------------------
    Dim MyInbox, OutlookMessage, mSubj, strToSearch
    Set Olns = Outlook.GetNamespace("MAPI")
    Set MyInbox = Olns.PickFolder
    Dim myRecipient As Outlook.Recipient
    Dim Sh As Worksheet
    Set Sh = Sheets("RegistroMail")
    strToSearch = UCase(Sh.Range("B1").Text)
    r = 2
    With Sh
    For Each OutlookMessage In MyInbox.Items
        mSubj = UCase(OutlookMessage.Subject)
        If InStr(mSubj, strToSearch) Then
            Cells(r, 1) = OutlookMessage.SenderName
            Cells(r, 3) = OutlookMessage.SenderEmailAddress
            Cells(r, 4) = OutlookMessage.Subject
            Cells(r, 5) = OutlookMessage.ReceivedTime
            Cells(r, 6) = OutlookMessage.Body
            r = r + 1
        End If
    Next
    Cells.Select
        With Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Cells.EntireColumn.AutoFit
        Range("A1").Select
    End With
    Set Olns = Nothing
    Set MyInbox = Nothing
    End Sub
    Invia MPPM 

  15. #15
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: importare mail da outlook a excel

    l'errore che ti dà è indicativo della mancanza di una libreria nei Riferimenti, andiamo per tentativi, io nei Riferimenti ho due flag indicati come mancanti Office14 Authorization Control e l'Office Infopath perchè non ho installato quella versione di Office e Infopath tu hai qualche indicazione simile?

    Prova a mettere un flag su Microsoft Outlook (tua versione) Object Library
    Invia MPPM 

  16. #16
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    mi sono ripassato tutte le definizioni nella routine ed ho scoperto che
    Codice: 
    Dim   myRecipient   As Outlook.Recipient
    myRecipient non è riconosciuto. Provo a navigare un po' per vedere se riesco a capire dove prende riferimento.
    Invia MPPM 

  17. #17
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: importare mail da outlook a excel

    infatti è quello l'errore..e dipende dalla mancanza di un Riferimento a Microsoft Outlook (tua versione) Object Library
    Invia MPPM 

  18. #18
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    ok, quello che non mi spiego è perché l'altro file funziona. secondo me c'è qualcosa che disattiva l'array nel file e non lo vedo. ma non ci arrivo. :22:_
    Invia MPPM 

  19. #19
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: importare mail da outlook a excel

    hai fatto le verifiche che ti ho indicato nel post #15?
    Invia MPPM 

  20. #20
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    ciao Powerwin, scusa non l'ho letto ma avevo già controllato quando me l'hai fatto notare nel post #8, comunque si li ho fatti. stavo sacramentando rifacendo tutti i test. niente da fare. credo che cercherò di costruire un nuovo progetto. ripartendo dai template di Microsoft.
    Invia MPPM 

  21. #21
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    buon giorno! ieri, ormai notte fonda, esausto e demoralizzato, ho controllato il file master per cui stavo costruendo la routine. ho controllato i riferimenti attivati e non c'era flaggato Microsoft Outlook view control. Abilitato, si è messo a funzionare. :23:. Inspiegabile perché la stessa priorità ed abilitazioni li ho ordinati sul disgraziato file che, continua a non funzionare. Pazienza, ho deciso di abbozzare. Vado oltre. Ora, per rendere definitiva e perfetta la routine, ho bisogno che invece di aprire il PickFolder (Set MyInbox = Olns.PickFolder
    ) mi vada a ricercare le mail in una specifica subdirectory.
    Codice: 
    Sub A()
    'VUOLE RIFERIMENTO A MICROSOFT xx OUTLOOK LIB.
    '---------------------------------------------
    Dim MyInbox, OutlookMessage, mSubj, strToSearch
    Set Olns = Outlook.GetNamespace("MAPI")
    Set MyInbox = Olns.PickFolder
    Dim myRecipient As Outlook.Recipient
    Dim sh As Worksheet
    Set sh = Sheets("RegistroMail")
    strToSearch = UCase(CATanagraficaNC.txtID.Text)
    r = 2
    With sh
    For Each OutlookMessage In MyInbox.Items
        mSubj = UCase(OutlookMessage.Subject)
        If InStr(mSubj, strToSearch) Then
            Cells(r, 1) = OutlookMessage.SenderName
            Cells(r, 3) = OutlookMessage.SenderEmailAddress
            Cells(r, 4) = OutlookMessage.Subject
            Cells(r, 5) = OutlookMessage.ReceivedTime
            Cells(r, 6) = OutlookMessage.Body
            r = r + 1
        End If
    Next
    Cells.Select
        With Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Cells.EntireColumn.AutoFit
        Range("A1").Select
    End With
    Set Olns = Nothing
    Set MyInbox = Nothing
    End Sub
    qualcuno è pratico? grazie.
    Invia MPPM 

  22. #22
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: importare mail da outlook a excel

    Citazione Originariamente Scritto da nessi Visualizza Messaggio
    buon giorno! ieri, ormai notte fonda, esausto e demoralizzato, ho controllato il file master per cui stavo costruendo la routine. ho controllato i riferimenti attivati e non c'era flaggato Microsoft Outlook view control. Abilitato, si è messo a funzionare. :23:.
    Non per essere ripetitivo ma te lo avevo segnalato al post #17 infatti mi pareva strano fosse tutto attivato nei Riferimenti, avresti dormito qualche ora in più :166:

    Leggendo in giro per forum si legge che Pickfolder non è personalizzabile ma una soluzione potrebbe essere l'utilizzo di una libreria
    e più precisamente la Redemption library, io non l'ho mai utilizzata ma se te la cavi con l'inglese ci sono in giro diverse info.
    Invia MPPM 

  23. #23
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    Citazione Originariamente Scritto da Powerwin Visualizza Messaggio
    Non per essere ripetitivo ma te lo avevo segnalato al post #17 infatti mi pareva strano fosse tutto attivato nei Riferimenti, avresti dormito qualche ora in più :166:
    vero :166: però stavo lavorando su Cartel1. (che ho cancellato, non la voglio più vedere in vita mia :166:). Ora mi sto concentrando sul reimpostare l'origine delle mail da scaricare. ho trovato un post in Microsoft https://support.microsoft.com/it-it/kb/208520 sto cercando di capire come applicarlo. questo quanto credo di poter adattare alle mi esigenze
    Codice: 
    'Set ol = New Outlook.Application
    Set Olns = ol.GetNamespace("MAPI")
    Set MyTasksFolder = Olns.GetDefaultFolder(olFolderTasks)
    Set MyFolder = MyTasksFolder.Folders("**EC_CAT")
    Invia MPPM 

  24. #24
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: importare mail da outlook a excel

    Citazione Originariamente Scritto da Powerwin Visualizza Messaggio
    Leggendo in giro per forum si legge che Pickfolder non è personalizzabile ma una soluzione potrebbe essere l'utilizzo di una libreria e più precisamente la Redemption library, io non l'ho mai utilizzata ma se te la cavi con l'inglese ci sono in giro diverse info.
    mi quoto da solo perchè ho aggiunto questa parte di commento contemporaneamente al tuo nuovo post
    Invia MPPM 

  25. #25
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    si sapevo già che pickfolder non è personalizzabile. è un'info che ho già incontrato. volevo proprio rimuoverla in modo di andare direttamente nel folder senza aprire alcuna finestra di dialogo. tanto il lavoro di importazione è fisso da una sottocartella specifica e sarà sempre quella.
    Invia MPPM 

  26. #26
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    mi da errore
    Codice: 
    Sub A()
    Dim MyFolder, OutlookMessage, mSubj, strToSearch
    Dim myRecipient As Outlook.Recipient
    Dim Sh As Worksheet
    Set ol = New Outlook.Application
    Set Olns = ol.GetNamespace("MAPI")
    Set MyTasksFolder = Olns.GetDefaultFolder(olFolderTasks)
    Set MyFolder = MyTasksFolder.Folders("**EC_CAT")
    Set Sh = Sheets("RegistroMail")
    strToSearch = UCase(Sh.Range("B1").Text)
    r = 2
    With Sh
    For Each OutlookMessage In MyFolder.Items
        mSubj = UCase(OutlookMessage.Subject)
        If InStr(mSubj, strToSearch) Then
            Cells(r, 1) = OutlookMessage.SenderName
            Cells(r, 3) = OutlookMessage.SenderEmailAddress
            Cells(r, 4) = OutlookMessage.Subject
            Cells(r, 5) = OutlookMessage.ReceivedTime
            Cells(r, 6) = OutlookMessage.Body
            r = r + 1
        End If
    Next
    Cells.Select
        With Selection
            .HorizontalAlignment = xlLeft
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Cells.EntireColumn.AutoFit
        Range("A1").Select
    End With
    Set Olns = Nothing
    Set MyInbox = Nothing
    End Sub
    mi da errore sulla riga Set MyFolder = MyTasksFolder.Folders("**EC_CAT") . operazione non riuscita. impossibile trovare un oggetto
    Invia MPPM 

  27. #27
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    Chi la dura ... la vince! allego il file con due macro (prima o poi a qualcuno servirà). La macro A scarica sul foglio le mail filtrate riferendosi al valore in cella B1 cercandola nell'oggetto di ogni mail nel folder selezionato con il metodo Pik folder. La macro B svolge la stessa operazione attingendo direttamente dalla directory figlia della directory principale. Questa è stata per me una vera impresa.
    File Allegati File Allegati
    Invia MPPM 

  28. I seguenti utenti hanno dato un "Like"


  29. #28
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    :92: credevo fosse finita ... invece no. è solo un dettaglio ma significativo. Il problema è questo: se il valore in B1 è ipotesi "6" la routine cerca di applicare (e lo fa) un filtro che permette di importare la stringa nella foglio. e fin qui tutto bene, se non chè se ci sono stringhe con più numeri, esempio 629, 629, li considera buoni e li importa.
    Codice: 
    With Sh
    For Each msg In olFolder.Items
        mSubj = UCase(msg.Subject)
        If InStr(mSubj, strToSearch) Then
            Cells(r, 1) = msg.SenderName
            Cells(r, 3) = msg.SenderEmailAddress
            Cells(r, 4) = msg.Subject
            Cells(r, 5) = msg.ReceivedTime
            Cells(r, 6) = msg.Body
            r = r + 1
        End If
    Next
    Secondo me è la funzione inStr che non ha la facoltà di discriminare se sono numeri diversi. secondo me controlla solo se è contenuto. la stringa numerica che deve riconoscere è variabile tra 1 e 4 digit. e devono essere tutti univoci. come posso ovviare a questo? in verità ho risolto mettendo uno spazio dopo la stringa di ricerca. ma se ci fosse una soluzione meno "accrocchiata" preferirei. come sempre, grazie in anticipo.
    Ultima modifica fatta da:nessi; 15/05/16 alle 21:55 Motivo: dimenticato dettaglio
    Invia MPPM 

  30. #29
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: importare mail da outlook a excel

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ciao nessi,
    io non utilizzo Outlook, quindi credo che ci metteremmo lo stesso tempo a cercare una soluzione al tuo problema...
    Comunque, metto la discussione in rilievo per un paio di giorni sperando che qualcuno più ferrato in materia si faccia avanti.

    Ciao
    Tore
    Ciao Cromagno, grazie infinite per il canale preferenziale che mi hai concesso. ora non c'è più motivo di differenziare la discussione da quella degli altri amici. grazie mille!
    Invia MPPM 

  31. #30

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923

    Re: importare mail da outlook a excel

    Citazione Originariamente Scritto da nessi Visualizza Messaggio
    Ciao Cromagno, grazie infinite per il canale preferenziale che mi hai concesso. ora non c'è più motivo di differenziare la discussione da quella degli altri amici. grazie mille!
    Ok nessi.

    Ciao
    Tore

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

Discussioni Simili

  1. [Risolto] Email da excel con Outlook comando inviato da:
    Di ginofamilio nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 09/02/17, 15:07
  2. [Risolto] Allegare sheet a mail di outlook con macro
    Di teudis nel forum Domande su Excel VBA e MACRO
    Risposte: 22
    Ultimo Messaggio: 10/01/17, 14:07
  3. Invio mail con allegato da excel ( Body mail = mail salvata + aggiuta testo)
    Di Ludovico nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 22/12/16, 11:13
  4. Excel e calendario Outlook
    Di Diego nel forum Domande su Excel in generale
    Risposte: 0
    Ultimo Messaggio: 05/01/16, 17:43
  5. Visualizzare Dashboard di Excel su Outlook
    Di antoniodamore nel forum Domande su Outlook
    Risposte: 1
    Ultimo Messaggio: 27/10/15, 19:43

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •