Domanda Macro per cercare email inviata da: a, indirizzata a: b, in una certa data: x .

[sorlandi]

Buon pomeriggio,

sto cercando di creare una macro vba per outlook il cui codice permetta di cercare mail inviate da un mittente:a ad un ricevente:b, in ua certa data:x.
Vorrei in seguito associarla ad un pulsante specifico da me creato.

Non ho trovato nel forum alcun indizio per scriverla.

grazie del supporto.

 

[Powerwin]

Ciao, quanto ne sai di VBA? sei in grado, una volta suggerito un codice di modificarlo per la tua esigenza?

 

[sorlandi]

Buon pomeriggio,
in vba outlook non sono ancora autonomo nella modifica,

rgd

so

 

[Powerwin]

Per stavolta ti posto un codice, ovviamente non so se nel tuo pc possa funzionare correttamente, a te il compito di sistemarlo

Sub CercaEmail()
    Dim appOutlook As Object
    Dim namespace As Object
    Dim folder As Object
    Dim item As Object
    Dim dataDaCercare As Date
    Dim indirizzoDaCercare As String
    Dim oggettoDaCercare As String
    
    ' Impostare la data, l'indirizzo e l'oggetto da cercare
    dataDaCercare = #10/15/2023# ' Cambia la data desiderata
    indirizzoDaCercare = "pippo@gmail.com" ' Cambia l'indirizzo desiderato
    oggettoDaCercare = "Oggetto dell'email" ' Cambia l'oggetto desiderato
    
    ' Inizializza Outlook
    Set appOutlook = CreateObject("Outlook.Application")
    Set namespace = appOutlook.GetNamespace("MAPI")
    
    ' Imposta la cartella dalla quale cercare le email
    Set folder = namespace.GetDefaultFolder(olFolderSentMail)
    
    ' Scansiona le email nella cartella
    For Each item In folder.Items
        If item.Class = olMail Then
            If item.SentOn >= dataDaCercare And item.To = indirizzoDaCercare And item.Subject = oggettoDaCercare Then
                ' Eseguire le azioni desiderate per le email trovate
                Debug.Print "Email trovata: " & item.Subject & " inviata il " & item.SentOn
                ' Puoi inserire qui il codice per eseguire azioni sulle email trovate
            End If
        End If
    Next item
    
    ' Rilascia gli oggetti Outlook
    Set item = Nothing
    Set folder = Nothing
    Set namespace = Nothing
    Set appOutlook = Nothing
End Sub

 

[Powerwin]

@sorlandi
Devi mettere il Risolto alla discussione