Cum să imprimați automat prima pagină a e-mailurilor importante primite în Outlook

Unii utilizatori ar dori să permită Outlook să imprime automat e-mailurile importante primite. De asemenea, dacă un astfel de email este prea lung, pentru a nu risipi hârtii, Outlook va imprima doar prima pagină. Acum, în acest articol, vom expune cum să o realizăm în mod programatic.

Pentru a imprima manual prima pagină a unui e-mail este destul de ușor. Puteți schimba opțiunile de imprimare înainte de a imprima. Cu toate acestea, dacă sperați că Outlook poate identifica automat lungimea e-mailului și poate imprima automat prima pagină a unui e-mail foarte lung, trebuie să căutați alte mijloace, cum ar fi următorul.

Imprimare automată a primei pagini de e-mailuri importante primite în Outlook

Imprimare automată a primei pagini de e-mailuri importante primite

  1. Pentru început, trebuie să lansați aplicația Outlook ca de obicei.
  2. Apoi, în fereastra principală Outlook, trebuie să apăsați tastele „Alt + F11”.
  3. Ulterior, veți accesa cu succes editorul VBA.
  4. În această nouă fereastră, ar trebui să deschideți un modul gol, în care ar trebui să copiați următorul cod VBA în acest modul.
Sub PrintFirstPage_ImportantIncomingEmails(objMail As Outlook.MailItem) Dim objWordApp As Word.Application Dim objTempWordDocument As Word.Document Dim objMailDocument As Word.Document Dim lPageCount As Long objMail.Display Set objMailEspector.G Document.Range.Copy Set objWordApp = CreateObject("Word.Application") Set objTempWordDocument = objWordApp.Documents.Add objWordApp.Visible = Adevărat objTempWordDocument.Activate objTempWordDocument.Range.Paste lPageCount = objTempWordStatistic documentul. Dacă lPageCount > 1 Apoi „Tipărește doar prima pagină objTempWordDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1" Else „În caz contrar, tipăriți întregul e-mail objMail.PrintOut End If objMail.Close olDiscard objMail.UnRead = True objTempWordDocument.Close False objWordApp.Quit End Sub

Cod VBA - Imprimare automată a primei pagini de e-mailuri importante primite

  1. După aceea, puteți ieși din fereastra curentă.
  2. Apoi accesați meniul „Fișier” și faceți clic pe butonul „Gestionați regulile și alertele”.
  3. În fereastra de dialog pop-up „Reguli și alerte”, faceți clic pe butonul „Regulă nouă”.
  4. Apoi, în noua casetă de dialog a „Rules Wizard”, selectați „Aplicați regula la mesajele pe care le primesc” și apăsați „Next”.
  5. În cel de-al doilea ecran al „Rules Wizard”, ar trebui să specificați condițiile, și anume definirea ce e-mailuri sunt importante pentru dvs., cum ar fi venirea de la anumiți expeditori etc.
  6. După aceea, faceți clic pe „Următorul”, ceea ce vă va duce la următorul ecran, în care va trebui să setați acțiunea regulii. Selectați „Rulați un script” și optați pentru macrocomandă adăugată anterior.Selectați „Runează un script” Acțiune de regulă
  7. Mai târziu, faceți clic pe mai multe „Următorul” până când obțineți ultimul ecran – „Finish rule setup”, în care puteți specifica un nume pentru această regulă și puteți verifica din nou setarea regulii.
  8. În cele din urmă, faceți clic pe „Terminare” pentru a salva această nouă regulă.
  9. În cele din urmă, de atunci, de fiecare dată când un nou e-mail important primit intră în căsuța dvs. poștală, Outlook va imprima automat prima pagină dacă este prea lungă.

Extrageți maximum de date din fișierele PST corupte

Poate v-ați dat seama de vulnerabilitatea Outlook. În această circumstanță, nu trebuie să lăsați nimic neîntors pentru a vă proteja datele Outlook. Cu toate acestea, de cele mai multe ori, veți descoperi că datele Outlook pot deveni corupte pur și simplu din cauza unei închideri bruște. Astfel, trebuie să vă pregătiți pentru neașteptate corupție Outlook, inclusiv backup-uri PST obișnuite și un instrument puternic de remediere, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com

3 răspunsuri la „Cum să imprimați automat prima pagină a e-mailurilor importante primite în Outlook”

  1. Codul corectat care funcționează pentru aplicația cloud Outlook O365 Microsoft este următorul:

    Sub PrintFirstPage()

    Dim objMail ca Outlook.MailItem
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    objMail.Display
    SendKeys „%f”, Adevărat
    SendKeys „%p”, Adevărat
    SendKeys „%r”, Adevărat
    SendKeys „%s”, Adevărat
    SendKeys „1”, Adevărat
    SendKeys „{ENTER}”, Adevărat

    End Sub

Lasă un comentariu

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate *