Outlook stampa automatica



  • Outlook stampa automatica
    di Anagosti (utente non iscritto) data: 03/07/2012

    Ciao a tutti,

    vorrei creare una macro in outlook che stampi in automatico ogni mail che arriva ed i suoi allegati.
    qualcuno può aiutarmi?
    ho provato in diversi modi ma non funziona nulla..



  • di Francesco c. (utente non iscritto) data: 24/07/2012

    Nell'editor di codice di outlook puoi gestire mediante una variabile, dichiarata withevents, ogni item che arriva nella cartella di default.
    segue codice (da inserire in "questasessionedioutlook").
    nell'evento _itemadd puoi realizzare le azioni successive alla ricezione del messaggio.
     
    Public WithEvents myOlItems As Outlook.items
    
    Public Sub Application_Startup()
    ' Reference the items in the Inbox. Because myOlItems is declared
    ' "WithEvents" the ItemAdd event will fire below.
    Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).items
    
    End Sub
    
    
    Private Sub myOlItems_ItemAdd(ByVal Item As Object)
        MsgBox "E' arrivata nuova posta: " & vbCrLf & Item
    End Sub