regula printare atasament

[ANDRUSHKA84]

Salut!
Vreau sa creez o regula prin care sa printeze automat atasamentul cand primesc mail de la un anumit expeditor.
Ms!

[Alexx]

Implicit nu se poate.
In schimb se poate folosi un soft pentru a face acest lucru: Print Tools for Outlook.
Din pacate acesta este demo si este activ 30 de zile.

[lucian]

Exista totusi o optiune de imprimare la crearea regulilor dar pe care nu am testat-o efectiv dar poate ne spui tu daca merge... asa ca:

1. Deschide "Rules and Alerts" din meniul Tools
2. Selecteaza New rule
3. In sectiunea "Start from a blank rule" selecteaza "Check messages when they arrive" si apasa Next
4. In ecranul "Which conditions do you want to check?" in zona Step 1: Select conditions selecteaza conditia dupa care se face verificarea "expeditorului" prin bifarea optiunii "from people or distribution list" daca persoana o ai in Contacts, altfel selecteaza "With specific words in the sender's address" iar in zona de jos nu uita sa apesi "link-ul albastru" pentru a adauga persoana sau cuvintele la care trebuie sa reactioneze regula ta apoi apasa Next
5. In ecranul urmator "What do you want to do with the message?" selecteaza "print it" si apasa Next
6. In acranul "are there any exceptions?" bifeaza daca ai vreo "exceptie de la regula" apoi Next
7. Da un nume regulii si daca deja ai primit mesaje pentru care trebuie aplciata regula poti bifa "Run this rule now on messages already in Inbox" si apoi FINISH

ATENTIE totusi la cata hartie se consuma...

[Alexx]

Regula specificata de tine va printa mesajul, nu si atasamentul.
Outlook nu poate printa atasamente decat cu ajutorul altor soft-uri.

P.S. Am testat regula ta si mie mi-a printat doar mesajul si cu imaginea atasamentului.

[lucian]

Regula specificata de tine va printa mesajul, nu si atasamentul.
Outlook nu poate printa atasamente decat cu ajutorul altor soft-uri.

P.S. Am testat regula ta si mie mi-a printat doar mesajul si cu imaginea atasamentului.

Este corect ce spui tu... cu o singura conditie... daca in meniul File\Print se va bifa si optiunea "Print attached files. Attachments will print to the default printer only" se vor imprima si fisierele atasate dar NUMAI la imprimata implicita - ceea ce nu ar trebui sa fie o problema pentru ca oricum imprimarea prin "regula" se va face numai la imprimanta implicita...

[Alexx]

Perfect asa.
Am printat una in PDF si una pe hartie si merge daca ai bifata acea optiune.

[lucian]

In plus... doar de dragul "distractiei"... se poate folosi si un script in regula definita (in loc de print) care va face in final acelasi lucru, doar ca in plus va face mai multa "mizerie" in folderul temporar (C:\Documents and Settings\UserName\Local Settings\Temp)...

Exemplul este dat mai mult pentru a demonstra modalitatea de configurare a unui script intr-o regula definita la receptionarea unui mesaj in Inbox.

Asa ca... se ia urmatorul cod:

Cod: Selectaţi tot

Sub LSPrint(Item As Outlook.MailItem)
'---------------------------------------------------------------------------
' Descriere  : Aceast script tipareste fisierele atasate mesajului Outlook
'                   trimis ca parametru
'
' Parametrii : Item = Mesajul din Inbox ce trebuie prelucrat
'
' Utilizare  : Scriptul se poate folosi la prelucrarea mesajelor sosite in Inbox
'                   apelabil in cadrul unei reguli
'
' NOTA       : Necesita referinta catre Microsoft Scripting Runtime
'               Se adauga din Tools\References
'---------------------------------------------------------------------------
' Avertizare : Acest cod trebuie luat asa cum este.
'              Orice test se va efectua pe o copie a datelor originale
'---------------------------------------------------------------------------
' Author     : Lucian Constantin
' Date       : 25.11.2009
' Versiunea  : 0.1
' Site web   : http://www.officespecialist.ro
'---------------------------------------------------------------------------
   
    On Error GoTo OError
       
    'Detecteaza folder-ul temporar
    Dim oFS As FileSystemObject
    Dim sTempFolder As String
    Set oFS = New FileSystemObject
    'Temporary Folder Path
    sTempFolder = oFS.GetSpecialFolder(TemporaryFolder)
   
    'Creaza un folder temporar "special" pentru acest script
    cTmpFld = sTempFolder & "\OETMP" & Format(Now, "yyyymmddhhmmss")
    MkDir (cTmpFld)
   
    'Prelucrare atasamente (save & print)
    Dim oAtt As Attachment
    For Each oAtt In Item.Attachments
        FileName = oAtt.FileName
        FullFile = cTmpFld & "\" & FileName
       
        'Salveaza atasamentul
        oAtt.SaveAsFile (FullFile)
       
        'Tipareste atasamentul
        Set objShell = CreateObject("Shell.Application")
        Set objFolder = objShell.NameSpace(0)
        Set objFolderItem = objFolder.ParseName(FullFile)
        objFolderItem.InvokeVerbEx ("print")

    Next oAtt
   
    'Cleanup
    If Not oFS Is Nothing Then Set oFS = Nothing
    If Not objFolder Is Nothing Then Set objFolder = Nothing
    If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing
    If Not objShell Is Nothing Then Set objShell = Nothing
   
OError:
    If Err <> 0 Then
        MsgBox Err.Number & " - " & Err.Description
        Err.Clear
    End If
   Exit Sub

End Sub


...si pentru "instalarea" lui in Outlook se fac urmatorii pasi:

1. Cu Outlook deschis se apasa Alt+F11 pentru a deschide Editorul VBA
2. Navigati in fereastra "Project explorer" pana la Project1 \ Microsoft Office Outlook Objects \ ThisOutlookSession
3. Faceti clic dublu pe ThisOutlookSession pentru a deschide fereastra de editare a codului si lipiti (paste) acolo scriptul de mai sus
4. La crearea regulii dupa pasii mentionati in mesajul anterior, selectati IN LOC de "print it" optiunea "run a script" si apoi facand clic pe link-ul "a script" din zona cu "step 2" alegeti scriptul copiat mai devreme.

Si cam asta ar fi...

[ANDRUSHKA84]

Nu merge codul.

[Alexx]

Codul merge foarte bine.
Ai respectat tot ce ti-a zis Lucian?

[ANDRUSHKA84]

Da, am respectat. Are vreo importanta ca sistemul de operare e pe D si nu pe C?