Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook: Erste Seite drucken und gleichzeitig kategorisieren
11.10.2022 10:21:56 Daniel Brück
NotSolved

Ansicht des Beitrags:
Von:
Daniel Brück
Datum:
11.10.2022 10:21:56
Views:
565
Rating: Antwort:
  Ja
Thema:
Outlook: Erste Seite drucken und gleichzeitig kategorisieren

Hallo Zusammen,

ich muss sehr häufig die 1. Seite einer gesendeten Mail drucken und dieser Mail eine Kategorie zuweisen (Outlook 2019).

Eine Lösung für den Druck der 1. Seite habe ich bereits gefunden (s.u.). Das Makro wird durch einen Button in der Schnellzugriff Symbolleiste ausgelöst.

Sehr komfortabel wäre es, wenn gleichzeitig die entsprechende Kategorie gesetzt wird. Hat jemand dazu eine Idee?
Danke!


Public Sub TestPrintFirstPage()
Dim Mail As Outlook.MailItem
Set Mail = Application.ActiveExplorer.Selection(1)
PrintFirstPage Mail
End Sub

Public Sub PrintFirstPage(Mail As Outlook.MailItem)
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim olDoc As Word.Document

Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Add(Visible:=True)

Set olDoc = Mail.GetInspector.WordEditor
olDoc.Range.Copy
wdDoc.Range.Paste

wdDoc.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"

DoEvents
wdDoc.Close False
wdApp.Quit
End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Outlook: Erste Seite drucken und gleichzeitig kategorisieren
11.10.2022 10:21:56 Daniel Brück
NotSolved