Kā ātri importēt slaidus a PowerPoint Prezentācija jūsu Outlook e-pastā

Daži lietotāji vēlas importēt slaidus a PowerPoint prezentāciju e-pastā, nevis pievienot prezentāciju kā e-pasta pielikumu. Tagad šajā rakstā mēs iepazīstināsim ar ērtu metodi, kā to realizēt.

Microsoft PowerPoint lietojumprogrammā, ir vietējā funkcija, kas palīdz lietotājiem ātri nosūtīt a PowerPoint prezentācija kā e-pasta pielikums. Tomēr lielākā daļa lietotāju vēlētos nosūtīt prezentāciju kā e-pastu, proti, importēt prezentācijas slaidus pasta ziņojuma pamattekstā. Tagad, kad gan MS Outlook, gan PowerPoint nenodrošina šādu funkciju, lai to sasniegtu, varat izmantot šādu VBA kodu. Runājot par VBA koda palaišanu, varat skatīt rakstu - "Kā palaist VBA kodu programmā Outlook".

Importēt slaidus a PowerPoint Prezentācija e-pastā

1. Uz start, palaidiet programmu Outlook.
2. Pēc tam piekļūstiet Outlook VBA redaktoram, nospiežot taustiņu Alt + F11.
3. Pēc tam jaunajā logā iespējojiet “Microsoft PowerPoint Objekts Library ”ar atsauci uz rakstu -„Kā pievienot objektu Library Atsauce VBA".
4. Pēc tam kopējiet tālāk norādīto VBA kodu projektā vai modulī.

Sub ImportSlidesOfPowerPointPresentationToMail()
    Dim strPresentation As String
    Dim objPowerPointApp As PowerPoint.Application
    Dim objPresentation As PowerPoint.Presentation
    Dim objSllide As PowerPoint.Slide
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Change the path to the specific PowerPoint presentation
    strPresentation = "E:\DataNumen Products\DataNumen Products.pptx"
    Set objPowerPointApp = CreateObject("PowerPoint.Application")
    Set objPresentation = objPowerPointApp.Presentations.Open(strPresentation)
    objPowerPointApp.Visible = msoCTrue
  
    'Create a new outlook email
    Set objMail = Outlook.Application.CreateItem(olMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objWordApp = objMailDocument.Application
 
    'Copy the contents of presentation into the message body
    For Each objSlide In objPresentation.Slides
        objSlide.Copy
        objWordApp.Selection.Paste
    Next
End Sub

5. Pēc tam varat palaist šo makro. Nospiediet taustiņu “F5”.
6. Kad makro būs pabeigts, jūs saņemsit jaunu e-pasta ziņojumu. Tajā ir ietverti visi avota slaidi PowerPoint prezentācija e-pasta pamattekstā, piemēram, šāds ekrānuzņēmums:

Pievērsiet uzmanību PST korupcijai

Daudzi lietotāji ir daudz sūdzējušies par Outlook problēmām un korupciju. Godīgi sakot, šādas problēmas programmā Outlook ir grūti paredzēt vai novērst. Ko jūs varētu darīt, ir veikt atbilstošus piesardzības pasākumus, lai samazinātu šāda notikuma iespējamību. Piemēram, jums vajadzētu sekot līdzi visiem iespējamiem riskiem saistībā ar jūsu PST failu, tostarp ļaunprātīgu programmatūru, vīrusiem un tā tālāk. Turklāt ir ļoti ieteicams tuvumā iegūt izcilu PST labošanas rīku, piemēram, DataNumen Outlook Repair. Tas var palīdzēt jums atgūt datus no korumpēts PST failu bez piepūles.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp bojāts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar