VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Outlook Anhänge drucken mit Druckerwechsel	15.01.2021 09:13:25	Timo M
Outlook Anhänge drucken mit Druckerwechsel	15.01.2021 21:51:14	ralf_b
Outlook Anhänge drucken mit Druckerwechsel	18.01.2021 08:47:12	Timo M
Outlook Anhänge drucken mit Druckerwechsel	18.01.2021 09:50:38	ralf_b

Ansicht des Beitrags:

Von:
Timo M

Datum:
15.01.2021 09:13:25

Views:
2429

Rating:

Antwort:

Thema:
Outlook Anhänge drucken mit Druckerwechsel

Hallo zusammen,

ich habe folgenden VBA Code als Makro in Outlook hinterlegt. Er soll nur die Anhänge ausgewählter E-Mails drucken. Dies aber nicht auf dem hinterlegten Standarddrucker sondern auf einem anderen Netzwerkdrucker.

Leider funktioniert der Wechsel nicht und er druckt weiterhin auf meinem Standarddrucker. Könnt ihr mir helfen?

Vielen Dank im Voraus.

Gruß

Timo

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
  "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
  ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub PrintSelectedAttachments()
  Dim Exp As Outlook.Explorer
  Dim Sel As Outlook.Selection
  Dim obj As Object
  Set Exp = Application.ActiveExplorer
  Set Sel = Exp.Selection
  For Each obj In Sel
    If TypeOf obj Is Outlook.MailItem Then
      PrintAttachments obj
    End If
  Next
End Sub

Private Sub PrintAttachments(oMail As Outlook.MailItem)
  On Error Resume Next
  Dim colAtts As Outlook.Attachments
  Dim oAtt As Outlook.Attachment
  Dim sFile As String
  Dim sFileType As String
  Dim printer As String
    printer = Chr(34) & "\\HSVM09\2. OG Flur auf Ne 26:" & Chr(34)
  Set colAtts = oMail.Attachments

  If colAtts.Count Then
    For Each oAtt In colAtts

      sFileType = LCase$(Right$(oAtt.FileName, 4))
    
      Select Case sFileType
      Case ".pdf"
        sFile = ATTACHMENT_DIRECTORY & oAtt.FileName
        oAtt.SaveAsFile sFile
        ShellExecute 0, "printto", sFile, printer, vbNullString, 0
      End Select
    Next
  End If
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
Outlook Anhänge drucken mit Druckerwechsel	15.01.2021 09:13:25	Timo M
Outlook Anhänge drucken mit Druckerwechsel	15.01.2021 21:51:14	ralf_b
Outlook Anhänge drucken mit Druckerwechsel	18.01.2021 08:47:12	Timo M
Outlook Anhänge drucken mit Druckerwechsel	18.01.2021 09:50:38	ralf_b