Si të kopjoni shpejt të gjitha adresat e emailit që ndodhin në trup në fushën "CC" kur hartoni një email të Outlook

Ndonjëherë, kur krijoni një email, mund të dëshironi ta mbyllni këtë postë në adresat e emailit në trupin e mesazhit. Ky artikull do t'ju udhëzojë për ta marrë atë në kohë të shpejtë.

Për shembull, dikush ju kërkon informacionin e kontaktit të disa personave, të tilla si adresat e emailit. Në këtë rast, ju mund të dëshironi t'i njoftoni këta persona për këtë çështje kur u dërgojnë të tjerëve informacionin e tyre të kontaktit. Prandaj, dëshironi të kopjoni adresat e emailit nga trupi i mesazhit në fushën "CC". Në përgjithësi, ju duhet ta bëni atë një nga një me dorë. Por është shumë e lodhshme dhe e rëndë. Pra, në vijim do të prezantojmë një mënyrë shumë më inteligjente.Kopjoni të gjitha adresat e emailit që ndodhin në trup në fushën "CC" kur hartoni një email të Outlook

Kopjoni adresat e emailit që ndodhin në trup në fushën "CC" gjatë kompozimit

  1. Që në fillim, shtypni butonat "Alt + F11" për të nisur redaktorin VBA të Outlook.
  2. Pastaj, në dritaren e re, vendosni kodin e mëposhtëm VBA në një modul bosh.
Sub CopyEmailAddresses_FromBodyToCCField()
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Object
    Dim objDocRange As Object
    Dim objRecipient As Outlook.Recipient
 
    'Get the current mail
    Set objMail = Application.ActiveInspector.CurrentItem
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objDocRange = objMailDocument.Range
 
    'Extract email addresses from mail body
    With objDocRange.Find
         .ClearFormatting
         .Replacement.ClearFormatting
         .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
         .MatchWildcards = True
         .Wrap = wdFindStop
         .Execute
    End With
 
    'Add the found email addresses as CC recipients
    While objDocRange.Find.Found
          Set objRecipient = objMail.Recipients.Add(objDocRange.Text)
          objRecipient.Type = olCC
          objDocRange.Collapse wdCollapseEnd
          objDocRange.Find.Execute
    Wend
 
    'Resolve all recipients
    objMail.Recipients.ResolveAll
End Sub

Kodi VBA - Kopjo adresat e emailit që ndodhin në trup në fushën "CC".

  1. Pas kësaj, dilni nga redaktori VBA dhe shtoni këtë makro të re në dritaren e shiritit të veglave të aksesit të shpejtë të mesazheve duke iu referuar "Si të ekzekutoni kodin VBA në Outlook tuaj".
  2. Përfundimisht, ju mund të bëni një goditje. Këtu është shembulli im aktual.
  • Së pari, unë hartoj një email që përmban një grumbull adresash emaili në trup.
  • Pastaj, klikoni butonin makro në shiritin e veglave të aksesit të shpejtë.Ekzekutoni Macro
  • Menjëherë, kur makro të përfundojë, të gjitha adresat e emailit në trup do të kopjohen në fushën "CC", si pamja e ekranit më poshtë.Adresat e emailit kopjohen në fushën "CC".

Çfarë ndodh nëse të dhënat tuaja të Outlook dëmtohen

Është e njohur mirë që Outlook mund të kompromentohet për shkak të një sërë faktorësh, si gabimet njerëzore, mbyllja e papritur, defektet e brendshme të softuerit të Outlook, si dhe keqfunksionimet e harduerit të kompjuterit tuaj e kështu me radhë. Prandaj, në realitet, shumë përdorues kanë qenë të ekspozuar ndaj problemeve të ngjashme në Outlook. Pranohet se problemi më shqetësues dhe problematik është dëmtimi i skedarëve të Outlook. Në këtë situatë, do t'ju duhet të drejtoheni te profesionistët. Rimëkëmbja e PST shërbim ose softuer, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregullim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.