Outlook attachment auto extract

[tsotrilos]

Πολύ καλημέρα σας.

 

Ψάχνω εδώ και καιρό να βρω ένα προγραμματάκι να κάνει extract αυτόματα τα attachments.rar από κάποιους συγκεκριμένους αποστολείς και να κάνει run ένα application, το οποιο κανει με την σειρα του extract τα .rar σε ενα αλλο φακελο. 

 

Έχω ψάξει δοκιμάσει διάφορα tips και rules στο Outlook αλλά χωρίς επιτυχία.

 

Το concept, για να σας το κάνω πιο ξεκάθαρο, είναι οτι λαμβάνω πολύ συχνά email από κάποια συγκεκριμένη διευθυνση και θέλω με το που παραληφθει το mail να φευγει το attachment αυτοματα και να πηγαίνει πχ στο  c:/Users/****/Desktop/Files και μετα να δινει την εντολη να τρεξει το προγραμμα το οποιο κανει extract τα .rar 

 

Δοκιμασα αυτο σε Visual Basic που ειναι embedded στο outlook:

 

Sub saveAttachtoDisk(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment

Dim saveFolder As String

saveFolder = "το folder που θελω να κανω extract τα .rar αρχεια"

For Each objAtt In itm.Attachments

objAtt.SaveAsFile saveFolder & "\" & objAtt.FileName

Set objAtt = Nothing

Dim OpenCMD

OpenCMD = CreateObject("wscript.shell")

OpenCMD.Run ("το path της εφαρμογης που κανει extract τα .rar")

Next

End Sub

 

 

Όλα πανε καλά μεχρι το highlighted σημείο αλλα δεν καταφερνω να τρεξει την εφαρμογη. 

 

Έχετε κατι να προτέινετε;

 

Outlook 2007/2010 και νεοτερα.

 

 

 

Ευχαριστώ εκ των προτέρων.

Επεξ/σία 16 Νοεμβρίου 2016 από tsotrilos

[tsotrilos]

Καλημερα σας και παλι.

 

Μιας που δεν εχουμε καποια απαντηση μεχρι τωρα θα ηθελα να σας ενημερωσω πως καταφερα να τρεξω το application το οποιο κανει το extract του αρχειο με το windows task schedule.

 

To προβλημα πλεον ειναι οτι τα rules στο Outlook ενω ειναι ενεργοποιημενα και manually τρεχουν κανονικα...δεν τρεχουν αυτοματα.

 

Εχεις κανεις καμια ιδεα;

 

To script εχει ως εξης πλεον:

 

Sub saveAttachtoDisk(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment

Dim saveFolder As String

saveFolder = "το folder που θελω να κανω extract τα .rar αρχεια"

For Each objAtt In itm.Attachments

objAtt.SaveAsFile saveFolder & "\" & objAtt.FileName

Set objAtt = Nothing 

Next

End Sub

 

Το rule:

free screen capture software

 

 

Καμια ιδεά γιατι δεν τρεχει αυτοματα.

 

Το google δεν με φωτησε ιδιαιτερα...

[tsotrilos]

Καλημέρα σε όλους.

 

Καμία ιδέα;;;