Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Accedi
x
or
x
x
Registrati
x

or

Come controllare gli indirizzi dei destinatari prima di inviarli tramite Outlook?

In alcuni casi, potresti perdere l'aggiunta di alcuni importanti destinatari nei campi A, CC o CCC mentre invii e-mail tramite Outlook. Qui, posso introdurre un metodo per verificare se gli indirizzi e-mail specifici sono stati aggiunti prima di inviare tramite Outlook.

Controlla gli indirizzi prima di inviarli con il codice VBA

Rispondi a Tutti escludo me stesso in prospettiva

Quando utilizziamo la funzione Rispondi a tutti in Outlook, potremmo aggiungere i nostri account anche al campo A se le e-mail ricevute contengono altri due account. In questo caso, potresti voler rimuovere i tuoi account dai campi A e CC. Ktools per Outlook's Il mio nome è puoi fare un favore a risolvere rapidamente questo lavoro. Solo un clic, tutti gli account myselft in Outlook verranno rimossi dai campi A e CC. Fai clic per la prova gratuita di 45 giorni!
la risposta del documento esclude l'account
doc freccia dowm

la risposta del documento esclude l'account 2
Kutools per Outlook: con dozzine di utili componenti aggiuntivi di Outlook, liberi di provare senza limitazioni nei giorni 45.

Controlla gli indirizzi prima di inviarli con il codice VBA

Qui ho due codici che possono aiutarti a risolvere questo lavoro, puoi scegliere chiunque di cui hai bisogno.

1. Stampa Alt + F11 keys da abilitare Microsoft Visual Basic, Applications Edition finestra.

2. Doppio click ThisOutlookSession da Project1 riquadro per aprire l'editor di codice, copiare e incollare sotto il codice per l'editor.

VBA: controlla l'indirizzo del destinatario nel campo A prima dell'invio

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xAddressArr () As Variant Dim xAddress As String Dim xRecipient As Recipient Dim xPrompt As String Dim xYesNo As Integer Dim xDictionary As Scripting.Dictionary On Error Riprendi Next Set xDictionary = New Scripting.Dictionary xAddressArr = Array ("example1@126.com", "example2@126.com", "example3@126.com") Per i = LBound (xAddressArr) To UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True Next i For Each xRecipient In Item.Recipients If xRecipient.Type = olTo Then If xDictionary.Exists (xRecipient.Address) Quindi xDictionary.Remove xRecipient.Address End If Next If xDictionary.Count = 0 Then GoTo L1 For i = 0 To xDictionary.Count - 1 If xAddress = "" Quindi xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";" & xDictionary.Keys (i) End If Next i xPrompt = "Non lo stai inviando a: "& xIndirizzo &". Sei sicuro di voler inviare il messaggio? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Kutools per Outlook") Se xYesNo = vbNo Then Cancel = True L1: Set xRecipient = Nothing Set xDictionary = Nothing End Sub

documento controlla l'indirizzo del destinatario prima di inviare 1

Nel codice, puoi cambiare ("example1@126.com", "example2@126.com", "example3@126.com") ai veri destinatari di cui hai bisogno.

3. Quindi anche nel Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Referenze. Controllare Microsoft Scripting Runtime checkbox in Riferimenti-Project1 dialogo.

documento controlla l'indirizzo del destinatario prima di inviare 2 freccia destra documento controlla l'indirizzo del destinatario prima di inviare 3

4. Clic OK e salva il codice.

Ora Se i destinatari specificati non compaiono nel campo A durante l'invio di e-mail, verrà visualizzata una finestra di dialogo per ricordare all'utente se inviare l'e-mail.
documento controlla l'indirizzo del destinatario prima di inviare 4

Con il codice sopra, controlla solo gli indirizzi e-mail in A campo, se si desidera effettuare il check-in A, CC e BCC campi, è possibile utilizzare sotto il codice.

VBA: controllare l'indirizzo del destinatario nei campi A / CC / BCC prima dell'invio

Private Sub Application_ItemSend (ByVal Item As Object, Cancel As Boolean) 'UpdatebyExtendoffice20180523 Dim xRecipients As Outlook.Recipients Dim xRecipient As Outlook.Recipient Dim xPos As Integer Dim xYesNo As Integer Dim xPrompt As String Dim xAddress As String On Error Riprendi Next If Item. Classe <> olMail, quindi Esci sottosistema xRecipienti = Elemento.Recipienti xIndirizzo = "esempio1@gmail.com" Per ogni xRecipient in xRecipients xPos = InStr (LCase (xRecipient.Address), xAddress) Se xPos = 0 Then xPrompt = "Invio questo a "& xAddress &". Sei sicuro di volerlo inviare? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools per Outlook") Se xYesNo = vbNo Then Cancel = True End If Prossimo xRecipient End Sub

Con questo codice, non è necessario controllare Microsoft Scripting Runtime casella di controllo, basta salvare direttamente il codice per avere effetto.


Kutools per Outlook: porta le funzionalità avanzate di 100 su Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole per l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e funzionalità più automatiche ...
  • Avviso BCC - mostra il messaggio quando si tenta di rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano gli allegatie altro ancora ricorda le funzionalità ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiungi saluto automatico quando rispondi; Aggiungi data nell'oggetto ...
  • Strumenti allegati: gestisci tutti gli allegati in tutti i messaggi, Distacco automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti di consuetudine; Rimuovi email e contatti duplicati... Ti consente di fare in modo più intelligente, più veloce e migliore in Outlook.
scheda kutools outlook kutools tab 1180x121
tiro kutools outlook kutools più tab 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.