Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Makro Outlook zum drucken von Anhängen neuer emails
01.07.2022 10:05:49 S_a_scha
NotSolved
01.07.2022 10:08:54 Gast32984
NotSolved

Ansicht des Beitrags:
Von:
S_a_scha
Datum:
01.07.2022 10:05:49
Views:
236
Rating: Antwort:
  Ja
Thema:
VBA Makro Outlook zum drucken von Anhängen neuer emails
Moin,
ich brauche ein Makro, das von einer neuen Mail eines bestimmten Absenders automatisch den Anhang (nur .pdf) ausdruckt, sobald sie im Postfach eingeht.
Bisher funktioniert schon manches davon:
Wenn eine neue Mail eingeht, wird automatisch der PDF-Anhang der ausgewählten Mail gedruckt.
Was ich nicht hinbekommen habe, ist es, die neue eingehende Mail auswählen zu lassen und den Absendernamen zu prüfen.
Hier einmal mein bisheriger Code:

Sub Application_NewMail()

Dim objFileSystem As Object
Dim strTempFolder As String
Dim objSelection As Outlook.Selection
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.Attachments
Dim objAttachment As Outlook.Attachment
Dim objShell As Object
Dim objTempFolder As Object
Dim objTempFolderItem As Object
Dim strFilePath As String

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
'Create a new temp folder
MkDir (strTempFolder)

Set objSelection = Outlook.Application.ActiveExplorer.Selection

For Each objItem In objSelection

If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objAttachments = objMail.Attachments

'Save all the attachments in the temp folder
For Each objAttachment In objAttachments
strFilePath = strTempFolder & "\" & objAttachment.FileName
objAttachment.SaveAsFile (strFilePath)

'Print all the files in the temp folder
Set objShell = CreateObject("Shell.Application")
Set objTempFolder = objShell.NameSpace(0)
Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
objTempFolderItem.InvokeVerbEx ("print")
Next objAttachment
End If
Next
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 VBA Makro Outlook zum drucken von Anhängen neuer emails
01.07.2022 10:05:49 S_a_scha
NotSolved
01.07.2022 10:08:54 Gast32984
NotSolved