Visualizzazione dei risultati da 1 a 10 su 10
  1. #1
    Utente di HTML.it
    Registrato dal
    Feb 2005
    Messaggi
    24

    Automatismi VB ed Outlook 2013

    Ciao ragazzi,
    ho aggiornato l'outlook dalla versione 2007 aalla versione 2013 e, con mio rammarico, ho notato che la procedura utilizzata per salvare in automatico gli allegati di alcuni msg su di una cartella esterna non funziona più (errore: ...non è installata la versione di Office richiesta).
    Qualche suggerimento?

    P.S. Non posso effettuare in downgrade, perchè sto simulando la macchina di un cliente.

    Ciao e grazie anticipatamente.
    Filippo

  2. #2

    Moderazione

    Uhm, non è molto chiara la domanda... la procedura in questione è una funzione inclusa in Outlook o è una tua macro? Stiamo parlando di VBA o di automazione da VB (6? .NET?) usata da un programma esterno? Oppure il problema riguarda solo Outlook e VB non c'entra niente?

    Dovresti chiarire un po'...
    Amaro C++, il gusto pieno dell'undefined behavior.

  3. #3
    Utente di HTML.it
    Registrato dal
    Feb 2005
    Messaggi
    24
    Ciao MItaly.
    Il codice è un semplice AddIn per Outlook sviluppata in VB con VS 2012. Se non sono stato chiaro, dettaglio di +.
    Ciao.

  4. #4
    Ma è codice scritto da te/hai i sorgenti o si tratta di un problema in un prodotto di terze parti?
    Amaro C++, il gusto pieno dell'undefined behavior.

  5. #5
    Utente di HTML.it
    Registrato dal
    Feb 2005
    Messaggi
    24
    L'avevo preso da qui e funzionava fino all'upgrade di outlook.

    Ho visto che su msdn hanno aggiunto anche outlook 2013... ma, almeno a me, non funge...

  6. #6
    Utente di HTML.it
    Registrato dal
    Feb 2005
    Messaggi
    24
    ho forzato i riferimenti di outlook... ed adesso salva la mail nella cartella ma non l'allegato... poi alla fine riporta l'errore di versione...

  7. #7

    Moderazione

    Ok, sposto nella sezione corretta.
    Amaro C++, il gusto pieno dell'undefined behavior.

  8. #8
    Utente di HTML.it
    Registrato dal
    Feb 2005
    Messaggi
    24

    Risolto parzialmente.

    Risolto in parte con VBA. Resta un errore come da file allegato.

    Posto il codice:

    Sub Salva_File_Allegato()
    On Error GoTo Salva_File_Allegato_err

    Dim appOl As New Outlook.Application
    Dim ns As Outlook.NameSpace
    Dim Inbox As Outlook.MAPIFolder
    Dim SubFolder As Outlook.MAPIFolder
    Dim Item As Object
    Dim Atmt As Outlook.Attachment
    Dim FileName As String
    Dim i As Integer
    Set ns = appOl.GetNamespace("MAPI")


    Set Inbox = ns.GetDefaultFolder(olFolderInbox)
    Set SubFolder = Inbox.Folders("Anteo")
    i = 0

    If SubFolder.Items.Count = 0 Then
    MsgBox "Non ci sono nuovi messaggi nella posta in arrivo.", vbInformation, _
    "Avviso"
    Exit Sub
    End If

    For Each Item In SubFolder.Items

    For Each Atmt In Item.Attachments

    FileName = "C:\testxml\xsi\" & Atmt.FileName
    Atmt.SaveAsFile FileName
    i = i + 1
    Next Atmt
    Next Item

    If i > 0 Then
    MsgBox "Ho trovato " & i & " files con allegati." _
    & vbCrLf & "Questi sono stati salvati in C:\testxml\csi\" _
    & vbCrLf & vbCrLf & "Ciao.", vbInformation, "Operazione conclusa!"
    Else
    MsgBox "Non ci sono nuovi allegati da salvare.", vbInformation, "Operazione conclusa!"
    End If

    Salva_File_Allegato_exit:

    Set Atmt = Nothing
    Set Item = Nothing
    Set ns = Nothing
    Set appOl = Nothing
    Exit Sub

    Salva_File_Allegato_err:
    MsgBox "Si è verificato un errore inaspettato." _
    & vbCrLf & "Ti invitiamo a prendere nota e segnalare la presenza di questo errore." _
    & vbCrLf & "Nome applicazione: Salva_File_Allegato" _
    & vbCrLf & "Errore Numero: " & Err.Number _
    & vbCrLf & "Descrizione Errore: " & Err.Description _
    , vbCritical, "Errore!"
    Resume Salva_File_Allegato_exit
    End Sub
    Immagini allegate Immagini allegate

  9. #9
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,481
    Il tuo problema è trattato in

    http://support.microsoft.com/kb/258527/en-us

    anche se per Outlook 2000
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  10. #10
    Utente di HTML.it
    Registrato dal
    Feb 2005
    Messaggi
    24
    Fatto come suggerito dal supporto Microsoft, ma il problema persiste.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.