Come creare rapidamente un gruppo di contatti dall'elenco dei destinatari di un'e-mail con Outlook VBA

A volte, quando invii o ricevi un'e-mail con molti destinatari, potresti voler creare un gruppo di contatti per questi destinatari. Questo articolo introdurrà un modo rapido per realizzarlo con Outlook VBA.

Nel nostro precedente articolo “Come creare un gruppo di contatti dall'elenco dei destinatari”, abbiamo appreso un metodo comune per creare il gruppo di contatti per i destinatari delle email. Ciò significa innanzitutto selezionare e copiare i destinatari dalle e-mail, quindi creare manualmente un gruppo di contatti e incollare i destinatari nel campo "Membri ->". Ovviamente, questo mezzo è estremamente ingombrante. Pertanto, qui introdurremo un altro approccio, che utilizzerà Outlook VBA per ottenere rapidamente un nuovo gruppo di contatti. Puoi semplicemente premere un pulsante senza dover copiare e incollare ripetutamente. Continua a leggere per ottenere i passaggi elaborati e i codici VBA.

Creare un gruppo di contatti dall'elenco dei destinatari di un'e-mail

1. Per iniziare, dovresti accedere alla scheda "Sviluppatore" in Outlook.
2. Quindi, in questa scheda, puoi individuare e fare clic sul pulsante "Visual Basic".
3. Successivamente, si aprirà una nuova finestra "Microsoft Visual Basic for Applications". Ora dovresti aprire un nuovo modulo facendo clic su "Inserisci" > "Modulo".
4. Avanti nella nuova finestra del modulo, puoi copiare e incollare i seguenti codici al suo interno.

Sub createcontactgroupforrecipients()
    Dim obApp As Application
    Dim olSel As Selection
    Dim obj As Object
    Dim oMail As MailItem
    Dim tempMail As MailItem
    Dim Recips As Recipients
    Dim ConGroup As DistListItem
    Dim strName As String
 
    Set obApp = Outlook.Application
    Set olSel = obApp.ActiveExplorer.Selection
 
    For Each obj In olSel
        If obj.Class = olMail Then
           Set oMail = obj
           Set tempMail = oMail.ReplyAll
           Set Recips = tempMail.Recipients
           Set ConGroup = obApp.CreateItem(olDistributionListItem)
           strName = InputBox("Specify a name for the new contact group:")
           With ConGroup
                .AddMembers Recips
                .DLName = strName
                'Use ".Save" to directly save the new contact group
                .Display
           End With
           tempMail.Close olDiscard
        End If
     Next
End Sub

5. Successivamente è possibile uscire dall'attuale finestra "Visual Basic" e procedere con l'aggiunta della nuova macro alla barra di accesso rapido. Fare clic sulla freccia giù nella barra di accesso rapido e scegliere "Altri comandi" dall'elenco a discesa.
6. Successivamente, entrerai nella finestra "Opzioni di Outlook". A questo punto, è necessario eseguire i seguenti passaggi:

• Innanzitutto, imposta "Scegli comandi da" su "Macro".
• Quindi cerca e lancia la macro aggiunta in precedenza.
• Quindi fai clic sul pulsante "Aggiungi" al centro.
• Infine premere il pulsante "OK".

7. Successivamente, puoi tornare al riquadro della posta di Outlook e provare.

• All'inizio, puoi presentare una mail in qualsiasi cartella di posta.
• Quindi fai clic sul pulsante nella barra di accesso rapido, come nell'immagine qui sotto:
• E poi riceverai una finestra di messaggio, che richiede di specificare un nome per il nuovo gruppo di contatti.
• Successivamente fare clic sul pulsante "OK". Subito si aprirà il nuovo gruppo di contatti, che contiene tutti i destinatari e-mail selezionati. Puoi premere "Salva e chiudi" per salvarlo.

Indispensabili nella protezione dei dati di Outlook

A causa del fatto che Outlook è vulnerabile, dovresti prendere precauzioni sufficienti per salvaguardare i loro dati di Outlook. Innanzitutto, dovresti eseguire un normale backup dei dati di Outlook. Inoltre, è necessario sapere come scoprire ed eseguire lo strumento di riparazione integrato, Scanpst.exe. L'ultima ma non meno importante necessità è un esterno stellare strumento di riparazione dei dati di Outlook danneggiato, come DataNumen Outlook Repair, che verrà in tuo soccorso se il backup e Scanpst.exe falliscono entrambi.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione SQL Server errore database mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com