Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com inserir tots els noms dels destinataris al cos del correu electrònic a Outlook?

De vegades, és possible que hàgiu d'inserir els noms de tots els destinataris al cos del missatge quan componeu un correu electrònic a Outlook. Per descomptat, podeu copiar i enganxar els noms al cos un per un. Però, és molt tediós si hi ha dotzenes de noms de destinataris que cal enganxar. En aquest article, parlaré sobre una manera senzilla de resoldre aquest treball a Outlook.

Inseriu tots els noms dels destinataris al cos del correu electrònic amb codi VBA a Outlook


Inseriu tots els noms dels destinataris al cos del correu electrònic amb codi VBA a Outlook

El següent codi de VBA us pot ajudar a inserir tots els noms del destinatari des del camp Per entrar al cos del missatge, feu el següent:

1. Inicieu Outlook i, a continuació, manteniu premut el ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. Clic Insereix > Mòduls, i enganxeu el següent codi al Mòduls Finestra.

Codi VBA: introduïu els noms dels destinataris al cos del missatge:

Sub InsertRecipientNamesToBody()
Dim xMailItem As Outlook.MailItem
Dim xRecipient As Outlook.Recipient
Dim xRecipAddress, xRecipNames, xRecipName, xFilterAddr As String
Dim xItems As Outlook.Items
Dim i As Integer
Dim xFoundContact As Outlook.ContactItem
Dim xDoc As Word.Document
On Error Resume Next
Set xMailItem = Outlook.ActiveInspector.CurrentItem
xMailItem.Recipients.ResolveAll
For Each xRecipient In xMailItem.Recipients
    xRecipAddress = xRecipient.Address
    Set xItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
    For i = 1 To 3
        xFilterAddr = "[Email" & i & "Address] = " & xRecipAddress
        Set xFoundContact = xItems.Find(xFilterAddr)
        If Not (xFoundContact Is Nothing) Then
           xRecipNames = xRecipNames & xFoundContact.FullName & Chr(10)
           Exit For
        End If
    Next
    If (xFoundContact Is Nothing) Then
       xRecipName = Split(xRecipAddress, "@")(0)
       xRecipNames = xRecipNames & xRecipName & Chr(10)
    End If
Next
Set xDoc = xMailItem.GetInspector.WordEditor
xDoc.Content.InsertAfter xRecipNames
Set xMailItem = Nothing
Set xRecipient = Nothing
Set xItems = Nothing
Set xFoundContact = Nothing
End Sub

3. I encara en el Microsoft Visual Basic per a aplicacions finestra, feu clic a instruments > referències per anar a la Referències: Project1 quadre de diàleg i verificació Biblioteca d'objectes de Microsoft Word opció de la Referències disponibles quadre de llista, veure captura de pantalla:

4. A continuació, feu clic a OK Per tancar el diàleg, ara, heu d 'afegir aquest codi al Quick Access Toolbar.

5. Creeu un missatge nou fent clic Nou correu electrònic, A la Missatge finestra, feu clic a Personalitza la barra d'eines d'accés ràpid icona i seleccioneu Més comandaments, veure captura de pantalla:

6. Al Opcions d'Outlook Caixa de diàleg:

(1.) Seleccioneu Macros des Trieu comandes de llista desplegable;

(2). A continuació, seleccioneu el nom del codi VBA que heu inserit ara;

(3.) Feu clic Add botó per afegir el codi al Personalitza la barra d'eines d'accés ràpid quadre de llista.

7. I, a continuació, es mostra una icona de macro a la finestra Quick Access Toolbar com es mostra a la següent captura de pantalla:

8. Ara, quan feu clic a la icona de la macro, els noms del destinatari del camp A s'insereixen al cos del missatge com es mostra a la següent captura de pantalla:

Eines de productivitat recomanades

fitxa shot kutools outlook kutools 1180x121
shot kutools outlook kutools plus tab 1180x121

Kutools per a Outlook: més que funcions avançades de 100 per a Outlook, milloreu l'eficiència 70%

  • Les operacions complicades i repetides es poden realitzar en un processament únic en qüestió de segons.
  • Reenvieu diversos correus electrònics de forma individual amb un sol clic i reenviament automàtic per normes.
  • Auto CC / BCC cada enviament de missatges de correu electrònic i fàcil per personalitzar les normes, i respondre automàticament sense necessitat d’intercanvi de servidors.
  • Filtres de correu electrònic de correu brossa de gran abast, eliminació de correus electrònics duplicats, resposta amb arxius adjunts, operacions amb un sol clic i així successivament ...
  • 60-day de prova gratuïta il·limitada. Garantia de devolució de dies 60. Actualització gratuïta i suport de 2 anys. Compra una vegada, usa sempre.
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.