Si të importoni shpejt rrëshqitjet e a PowerPoint Prezantimi në emailin tuaj të Outlook

Disa përdorues duan të importojnë rrëshqitjet e a PowerPoint prezantimi në një email në vend që të shtoni prezantimin si një bashkëngjitje emaili. Tani, në këtë artikull, ne do të prezantojmë një metodë të përshtatshme për ta realizuar atë.

Në Microsoft PowerPoint aplikacioni, ekziston një veçori vendase që mbështet përdoruesit të dërgojnë shpejt një PowerPoint prezantimi si bashkëngjitje emaili. Megjithatë, shumica e përdoruesve do të dëshironin ta dërgonin prezantimin si një email, domethënë të importonin sllajdet e prezantimit në trupin e mesazhit të një poste. Tani që edhe MS Outlook edhe PowerPoint mos e ofroni një funksion të tillë, mund të përdorni kodin e mëposhtëm VBA për ta arritur atë. Sa për mënyrën e ekzekutimit të kodit VBA, mund t'i referoheni artikullit - "Si të ekzekutoni kodin VBA në Outlook tuaj".

Importoni rrëshqitjet e a PowerPoint Prezantimi në një email

1. Për të filluar, hapni aplikacionin Outlook.
2. Më pas, hyni në redaktuesin VBA të Outlook me butonin "Alt + F11".
3. Më pas, në dritaren e re, aktivizoni "Microsoft PowerPoint Biblioteka e Objekteve” me referencë për artikullin – “Si të shtoni një referencë të bibliotekës së objekteve në VBA".
4. Më pas, kopjoni kodin VBA më poshtë në një projekt ose 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. Pas kësaj, ju mund të ekzekutoni këtë makro. Shtypni butonin "F5".
6. Kur makro të përfundojë, do të merrni një email të ri. Ai përmban të gjitha sllajdet e burimit PowerPoint prezantim në trupin e emailit, si pamja e mëposhtme e ekranit:

Mbani një sy për korrupsionin PST

Shumë përdorues janë ankuar shumë për problemet e Outlook dhe korrupsionin. Për të qenë i sinqertë, është e vështirë të parashikohen ose parandalohen çështje të tilla në Outlook. Ajo që mund të bëni është të merrni masa paraprake adekuate për të zvogëluar gjasat e një ndodhie të tillë. Për shembull, duhet të mbani një sy për të gjitha rreziqet e mundshme rreth skedarit tuaj PST, duke përfshirë malware, viruse etj. Për më tepër, rekomandohet shumë që të merrni pranë një mjet të jashtëzakonshëm rregullimi PST, si p.sh DataNumen Outlook Repair. Është në gjendje t'ju ndihmojë të merrni përsëri të dhëna nga PST e korruptuar skedar me lehtësi të lehtë.

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ë mdf i dëmtuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com