mercoledì 22 novembre 2017

Centralino IP PBX su Windows - 3CX Phone System which links here: http://www.3cx.it/centralino/index.html

 

 

RSS Feed RSS Feed

Login

Newsletter Newsletter

Registrati

RisorseGuide e Articoli

 

31

Spesso molti utenti non curano l'archiviazione della propria posta e usano la casella di posta eliminata del loro MS Outlook come un immenso archivio. Questa macro per Outlook, consente di eliminare direttamente una mail senza spostarla nella casella della posta eliminata. La macro in realtà comprende anche un iniziale controllo per scegliere se eliminare o distruggere la mail e altri messaggi che ho aggiunto solo per completezza. Ricordate che per poter eseguire la macro potrebbe essere necessario abbassare il livello di protezione delle macro in Outlook agendo sulla funzione Protezione raggiungibile da Strumenti -> Macro -> Protezione.

 

Sub Distruggi_Mail()
    '*******************************
    'Dichiarazione variabili oggetto
    '*******************************
    Dim objApp As New Outlook.Application
    Dim objExp As Outlook.Explorer
    Dim objSel As Outlook.Selection
   
    Dim objFolder As Outlook.MAPIFolder
    Dim intMessSel As Integer
    Dim intMessEsist As Integer
   
    '**********************************
    'Inizializzazione variabili oggetto
    '**********************************
    Set objExp = objApp.ActiveExplorer
    Set objSel = objExp.Selection
    Set objFolder = objExp.CurrentFolder
   
    If objSel.Count > 0 Then
        If MsgBox("Sicuro di voler distruggere " & objSel.Count & " messaggi selezionati? ", vbYesNo) = vbNo Then Exit Sub
    Else
        MsgBox "Nessun messaggio selezionato!" & vbCrLf & "Non posso procedere con alcuna distruzione."
        Exit Sub
    End If
   
    If MsgBox("Scegli Si per eliminare definitivamente i messaggi o No per spostarlo nel cestino! ", vbYesNo) = vbNo Then
        '*************
        'CANCELLAZIONE
        '*************
        For intMessSel = 1 To objSel.Count
            objSel.Item(intMessSel).Delete
        Next
        MsgBox "Cancellazione effettuata con successo!"
    Else
        '***********
        'DISTRUZIONE
        '***********
         For intMessSel = 1 To objSel.Count
             For intMessEsist = 1 To objFolder.Items.Count
                 If objFolder.Items(intMessEsist).EntryID = objSel.Item(intMessSel).EntryID Then
                     objFolder.Items.Remove (intMessEsist)
                     Exit For
                 End If
             Next
         Next
        
        MsgBox "Distruzione effettuata con successo!"
    End If
 
End Sub

(Cereti Gabriele)


Scritto in: Script
AZIONI: E-mail | Permalink |
CONDIVIDI: del.icio.us   Facebook   Digg   Google   Live Bookmarks   Newsvine   StumbleUpon   Technorati   Yahoo   DotNetKicks
blog comments powered by Disqus

Copyright 2011 by SysAdmin.it