none
Inserire Testo in una Mail Solo Se Allegato un Determinato File

    Discussione generale

  • Ciao a tutti,
    il codice sotto riportato mi consente di creare i file "codice cliente.xlsx" dei SOLI codici clienti COMUNI ai fogli PREZZI ed ESTRATTI CONTO, salvandoli sul desktop (macro presente nel Modulo 6).

    Con la funzione (Modulo 7) allego i file di cui sopra alla specifica mail proprio di quel codice cliente.

    Public Function bFound1() As Variant
        
        Dim rAgenti As Range, Cella As Range, totAgenti As Range
        Dim Shc As Worksheet, Shc1 As Worksheet
        Dim uR As Long, ur1 As Long
        Dim myItem As Variant
    
        Application.ScreenUpdating = False
    
        Set Shc = ThisWorkbook.Sheets("Estratti Conto")
        Set Shc1 = ThisWorkbook.Sheets("PREZZI")
        uR = Shc.Range("A" & Rows.Count).End(xlUp).Row
        ur1 = Shc1.Range("G" & Rows.Count).End(xlUp).Row
        Set rAgenti = Shc1.Range(Shc1.Cells(8, 7), Shc1.Cells(ur1, 7)) 'Foglio PREZZI
        Set totAgenti = Shc.Range(Shc.Cells(2, 1), Shc.Cells(uR, 1)) 'Foglio ESTRATTI CONTO
    
        On Error Resume Next
        For Each myItem In rAgenti
            bFound = False
                For Each Cella In totAgenti
                    If Cella.Value = CLng(myItem) Then
                        bFound = True
                    End If
                Next Cella
        Next myItem
       
        Set Cella = Nothing
        Set Shc = Nothing
        Set Shc1 = Nothing
        
        Application.ScreenUpdating = True
        
    End Function

    Il grosso problema che sto trovando è che con la seguente istruzione:

    If bFound1(Riga) Then

    .Attachments.Add (Environ("USERPROFILE") & "\Desktop\" & "Archivio\" & (Foglio1.Cells(Riga, 7).Value & ".xlsx")) .HTMLBody = Trim(Foglio4.Cells(24, 5)) & accapo & accapo & aStr & accapo & accapo & .HTMLBody Else .HTMLBody = aStr & accapo & accapo & .HTMLBody

    End If

    non riesco ad inserire l'avviso presente nell'apposito foglio (AVVISI) SOLO per le mail che hanno l'allegato "codice cliente.xlsx" (altre mail hanno un altro tipo di allegato) e non a tutte le mail in uscita.

    Qualcuno potrebbe aiutarmi?

    Grazie mille.

    Saluti,
    PDA

    PS Questo è il link dove ho inserito il file di prova:

    https://1drv.ms/f/s!AqPTHQbY5cF7gQHGlLTtq_x4F5ot

    lunedì 19 febbraio 2018 13:35