PDA

Vollständige Version anzeigen : Outlook 2010 nur Anhang drucken


stefan00166
17.05.2017, 12:52
Hallo Leute.

Ich habe folgendes Problem:

Win10 Office 2010.
Ich bekomme Dokumente in .pdf welche ich gerne Ausdrucken möchte Automatisch. Mit dem Regelassistenten funtkioniert nur das E-Mail bzw. das komplete Mail mit Anhang auszudrucken.
Kann mir hierbei jemand weiterhelfen.

Regel sagt:
Email kommt von xx@xx.at
Hat Betreff xxx
Drucke aus (mit Anhang)
und verschiebe in den Ordner

Hierbei würde ich ein Script benötigen welche nur das pdf dokument in der Regel anspricht und ausdruckt.

Vielen Dank Leute.


Nachtrag hier hätte ich etwas gefunden

http://www.vboffice.net/de/developers/anlagen-automatisch-drucken


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

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace
Dim Folder As Outlook.MAPIFolder

Set Ns = Application.GetNamespace("MAPI")
Set Folder = Ns.GetDefaultFolder(olFolderInbox)
Set Items = Folder.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
PrintAttachments Item
End If
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 sDirectory As String
Dim sFileType As String

sDirectory = "D:Anlagen"

Set colAtts = oMail.Attachments

If colAtts.Count Then
For Each oAtt In colAtts

sFileType = LCase$(right$(oAtt.FileName, 4))

Select Case sFileType
Case ".xls", ".doc", ".pdf"
sFile = ATTACHMENT_DIRECTORY & oAtt.FileName
oAtt.SaveAsFile sFile
ShellExecute 0, "print", sFile, vbNullString, vbNullString, 0
End Select
Next
End If
End Sub

stefan00166
17.05.2017, 13:07
Hierbei kommt diese meldung



und weiters kann ich keine Emailadresse noch eine Regel damit versehen.

Danke