Kartais galite nusiųsti daug savo kalendoriaus elementų kitiems asmenims. Esant tokiai situacijai, galbūt norėsite juos siųsti paketu. Dabar šiame straipsnyje bus parodyti 2 būdai, kaip tai pasiekti.
Norėdami greitai išsiųsti kalendoriaus elementą paštu, neatsižvelgiant į susitikimą ar susitikimą, galite tiesiog atidaryti šį elementą ir spustelėti mygtuką „Persiųsti“ grupėje „Veiksmai“. Tai gana lengva. Nepaisant to, tokiu būdu kelių kalendoriaus elementų siuntimas būtų šiek tiek varginantis. Taigi, čia mes išmokysime jus 2 daug greitesnių metodų. Abu jie gali leisti jums atlikti šią užduotį masiškai.
1 būdas: paketinis siuntimas vienu paštu
- Pačioje pradžioje pasirinkite norimus kalendoriaus elementus.
- Tada laikykite nuspaudę dešinįjį pelės klavišą ir vilkite juos į naršymo sritį „Paštas“.
- Tada rodomame sąraše pasirinkite parinktį „Kopijuoti čia kaip pranešimą su priedu“.
- Iš karto bus rodomas naujas el. laiškas, kuriame buvo pridėti pasirinkti kalendoriaus elementai.
2 būdas: paketinis siuntimas atskirais laiškais
- Norėdami pradėti, programoje „Outlook“ eikite į VBA redaktorių naudodami sparčiuosius klavišus „Alt + F11“.
- Tada naujame lange įdėkite šį VBA kodą į tuščią modulį.
Sub BatchForwardMultipleCalendarItems()
Dim objSelection As Outlook.Selection
Dim i As Integer
Dim objCalendarItem As Outlook.AppointmentItem
Dim objMail As Outlook.MailItem
Set objSelection = Outlook.Application.ActiveExplorer.Selection
For i = objSelection.Count To 1 Step -1
Set objCalendarItem = objSelection.Item(i)
Set objMail = Outlook.Application.CreateItem(olMailItem)
With objMail
.Attachments.Add objCalendarItem
'Change the recipient's email address
.Recipients.Add ("shelly@datanumen.com")
.Recipients.ResolveAll
.Subject = objCalendarItem.Subject
.Body = "Type body here ...."
.Send
End With
Next i
End Sub
Pastaba: pakeiskite gavėjo el. pašto adresą pagal savo poreikius.
- Po to atlikite pasirenkamą veiksmą, pateiktą „Kaip paleisti VBA kodą „Outlook“.“, kad pridėtumėte šią naują makrokomandą prie greitosios prieigos įrankių juostos.
- Galiausiai išbandykite šią makrokomandą.
- Pirmiausia pasirinkite kelis kalendoriaus elementus.
- Tada greitosios prieigos įrankių juostoje spustelėkite makrokomandos mygtuką.
- „Outlook“ iš karto išsiųs atskirus laiškus, kurie pridedami prie kalendoriaus elementų.
Atsikratykite „Outlook“ duomenų korupcijos
Dėl to, kad „Outlook“ yra jautri klaidoms ir korupcijai, turite saugotis visų „Outlook“ kylančių pavojų. Į juos dažniausiai įtraukiami paslėpti virusai el. laiškuose, žmogiškosios klaidos ir net aparatinės įrangos gedimai ir pan. Be šių pavojų, turėtumėte imtis tam tikrų atsargumo priemonių, pvz., reguliariai kurti atsargines duomenų kopijas programai „Outlook“, paruošti galingą PST taisymas įrankis kaip DataNumen Outlook Repair ir taip toliau.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server atsigavimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com