Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Outlook e script

  1. #1
    gas1966 non  in linea Scolaretto
    Buongiorno,
    vorrei eseguire uno script su outlook che, in base a una regola, esporta l'allegato contenuto nelle mail ricevute in una specifica cartella.
    Ho provato ad impostare il tutto su outlook 2016, ho abilitato gli script, ma alla fine non viene importato l'allegato.

    Lo script da eseguire il seguente:
     Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
     Dim objAtt As Outlook.Attachment
     Dim saveFolder As String
     saveFolder = "C:\Users\s.pieraccini\Desktop\StampaPdf"
     For Each objAtt In itm.Attachments
     objAtt.SaveAsFile saveFolder &  \  & objAtt.DisplayName
     Set objAtt = Nothing
     Next
     End Sub
    
    La regola molto semplice: se l'oggetto contiene "orders" esegui la regola che poi dovrebbe lanciare lo script
    sopra citato e importare l'allegato.
    Qualcuno sa dirmi perch non funziona?
    Grazie
    Saluti,

  2. #2
    Ferrari_and non  in linea Scolaretto
    Verifica che la cartella percorso sia accessibile dall' utente che scarica la posta.
    Verifica nelle impostazioni di sicurezza di outlook non sia bloccata l'esecuzione degli scipt (di default bloccata)
    Verifica che la regola sia realmete applicata ed attiva.

    La routin non dovrebbe avere prolemi in quanto = a quella presente anche in diversi form microsoft in cui si affronta questa problematica.

  3. #3
    Evidentemente questa

    & “ \ ” &

    presenta uno spazio di troppo prima e dopo. Perch?

    Toglili

    & "\" &

    Oppure modifica la stringa del folder ed evita la concatenazione

    saveFolder = "C:\Users\s.pieraccini\Desktop\StampaPdf\"
    ...
    objAtt.SaveAsFile saveFolder & objAtt.DisplayName
    ℹ️ Leggi di pi su AntonioG ...

  4. #4
    gas1966 non  in linea Scolaretto
    Buongiorno AntonioG,
    ho modificato l'istruzione come da tua gentile risposta:
     Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
     Dim objAtt As Outlook.Attachment
     Dim saveFolder As String
     'saveFolder = "C:\Users\s.pieraccini\Desktop\StampaPdf"
     saveFolder = "C:\Users\s.pieraccini\Desktop\StampaPdf\"
     For Each objAtt In itm.Attachments
     'objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
     objAtt.SaveAsFile saveFolder & objAtt.DisplayName
     Set objAtt = Nothing
     Next
     End Sub
    
    La SUB stata salvata su ThisOutlookSession. Faccio eseguire la regola spuntando anche su "messaggi gi presenti in posta in arrivo", la regola si avvia ma alla fine vado a vedere nella catella e non c' nessun file.
    1. Uso outlook 2016;
    2. Gli script sono stati attivati;
    3. La regola stata impostata correttamente;
    4. Il percorso corretto.
    Se pu essere utile l'allegato un .txt
    Non riesco a trovare una spiegazione. Aiuto. Grazie ancora

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. [Outlook] rogrammazione nuovo modulo vba microsoft outlook
    Da mandolinovito nel forum Microsoft Word
    Risposte: 15
    Ultimo Post: 17-01-2013, 09:24
  2. [Outlook VBA] calusola restrict in outlook
    Da sal21 nel forum Microsoft Word
    Risposte: 5
    Ultimo Post: 12-04-2011, 10:29
  3. [VBA OUTLOOK] Automate Outlook
    Da Sensero nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 12-07-2010, 20:09
  4. File PST Outlook 2007 importato in Outlook 2003
    Da net-addiction nel forum Altri linguaggi e strumenti
    Risposte: 3
    Ultimo Post: 30-04-2008, 20:49
  5. Passaggio da Outlook ad Outlook Express
    Da amalric nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 07-03-2005, 20:36