Kai kurie vartotojai nori importuoti a skaidres PowerPoint pristatymą į el. laišką, o ne pridėjus pristatymą kaip el. laiško priedą. Dabar šiame straipsnyje pristatysime patogų būdą tai įgyvendinti.
„Microsoft“ PowerPoint programa, yra savoji funkcija, padedanti vartotojams greitai išsiųsti a PowerPoint pristatymas kaip el. pašto priedas. Tačiau dauguma vartotojų norėtų siųsti pristatymą kaip el. laišką, ty importuoti pristatymo skaidres į laiško tekstą. Dabar, kai tiek MS Outlook, tiek PowerPoint nepateikite tokios funkcijos, galite naudoti šį VBA kodą, kad tai pasiektumėte. Kaip paleisti VBA kodą, galite žiūrėti straipsnį - "Kaip paleisti VBA kodą „Outlook“.".
Importuokite a. skaidres PowerPoint Pristatymas el. paštu
- Į start su, paleiskite programą „Outlook“.
- Tada pasiekite „Outlook VBA“ redaktorių paspausdami klavišą „Alt + F11“.
- Tada naujame lange įgalinkite „Microsoft PowerPoint Objektas Library“ su nuoroda į straipsnį – „Kaip pridėti objekto library Nuoroda VBA".
- Tada nukopijuokite toliau pateiktą VBA kodą į projektą arba 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
- Po to galite paleisti šią makrokomandą. Paspauskite mygtuką „F5“.
- Kai makrokomanda bus baigta, gausite naują el. laišką. Jame yra visos šaltinio skaidrės PowerPoint el. laiško tekste, pvz., šią ekrano kopiją:
Stebėkite PST korupciją
Daugelis vartotojų daug skundėsi dėl „Outlook“ problemų ir korupcijos. Tiesą sakant, sunku numatyti ar užkirsti kelią tokioms problemoms programoje „Outlook“. Ką galite padaryti, tai imtis atitinkamų atsargumo priemonių, kad sumažintumėte tokio įvykio tikimybę. Pavyzdžiui, turėtumėte stebėti visas galimas rizikas, susijusias su jūsų PST failu, įskaitant kenkėjiškas programas, virusus ir pan. Be to, labai rekomenduojama netoliese turėti puikų PST taisymo įrankį, pvz DataNumen Outlook Repair. Jis gali padėti jums atkurti duomenis iš sugadintas PST failą be vargo.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com