VBA oplossing gezocht

[alfredmenting]

Hallo, Ik ben nieuw op dit forum, wel veel bezocht en van geleerd.

Ik heb een script in outlook geinstaleerd die er regelt dat bestanden met een pdf extensie (middels een rule in outlook) in een bepaalde map op mijn computer worden geplaatst.

Probleem wat ik eigenlijk heb is dat ik die pdf attachment ook direct geprint wil hebben vanuit dit script.
Kan iemand mij hiermee helpen??


------
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "H:\minox\Data\A0021115\Docs"
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".pdf") Then
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
End If
Set objAtt = Nothing
Next
End Sub

------

Alvast bedankt

 

[OctaFish]

Welkom bij HelpMij . Probeer deze oplossing eens, wellicht dat je daar al genoeg aan hebt. Hebben jullie dan lak aan de papierloze maatschappij?

 

[alfredmenting]

Dank voor je welkom! Nee hoor vere van dat het betreft mails van leveranciers die in pdf aangeleverd worden en helaas toch nog wel geprint moeten worden voor onze administratie.
Ik heb jouw oplossing bekenen maar kom er niet echt verder mee (begin me pas sinds kort in SBA scripts te verdiepen) dus ben er nog niet zo in thuis helaas....

 

[alfredmenting]

Oplossing gevonden

De oplossing voor het het automatisch printen en opslaan van PDF attachments in outlook d.m.v. VBA Sript:


Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "H:\minox\Data\A0021115\Docs"
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".pdf") Then
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Shell """C:\Program Files\Adobe\Reader 11.0\Reader\acrord32.exe"" /h /p """ + saveFolder & "\" & objAtt.DisplayName + """", vbHide
End If

Set objAtt = Nothing

Next

End Sub