Dažreiz, sastādot e-pastu, iespējams, vēlēsities nosūtīt šo pastu uz e-pasta adresēm ziņojuma pamattekstā. Šis raksts palīdzēs jums to iegūt ātri.
Piemēram, kāds jums prasa dažu personu kontaktinformāciju, piemēram, e-pasta adreses. Šajā gadījumā, iespējams, vēlēsities informēt šīs personas par šo jautājumu, nosūtot citiem savu kontaktinformāciju. Tādējādi jūs vēlaties kopēt e-pasta adreses no ziņojuma pamatteksta laukā “CC”. Parasti tas jādara pa vienam manuāli. Bet tas ir pārāk nogurdinoši un apgrūtinoši. Tātad turpmāk mēs ieviesīsim daudz saprātīgāku veidu.
Rakstot kopēt e-pasta adreses, kas rodas pamattekstā, laukā “CC”
- Sākumā nospiediet taustiņus “Alt + F11”, lai palaistu Outlook VBA redaktoru.
- Pēc tam jaunajā logā tukšā modulī ievietojiet šādu VBA kodu.
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
- Pēc tam izejiet no VBA redaktora un pievienojiet šo jauno makro ziņu loga ātrās piekļuves rīkjoslai, atsaucoties uz “Kā palaist VBA kodu programmā Outlook".
- Galu galā jūs varat uzņemt šāvienu. Šeit ir mana faktiskā instance.
- Pirmkārt, es izveidoju e-pastu, kurā ir e-pasta adrešu kaudze.
- Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz pogas makro.
- Tiklīdz makro būs pabeigts, visas ķermeņa e-pasta adreses tiks kopētas laukā “CC”, piemēram, zemāk redzamais ekrānuzņēmums.
Ko darīt, ja jūsu Outlook dati tiek sabojāti
Ir labi zināms, ka programma Outlook var tikt apdraudēta dažādu faktoru dēļ, piemēram, cilvēku kļūdu, pēkšņas izslēgšanās, Outlook iekšējās programmatūras kļūdu, kā arī datora aparatūras darbības traucējumu un tā tālāk. Tādējādi patiesībā daudzi lietotāji programmā Outlook jebkad ir bijuši pakļauti līdzīgām problēmām. Tiek atzīts, ka most nepatīkama un traucējoša problēma ir Outlook failu bojājumi. Šajā situācijā jums būs jāizmanto profesionālis PST atkopšana pakalpojums vai programmatūra, piemēram DataNumen Outlook Repair.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf labot un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar