[VBA/ACCESS] SendObject non ha effetto

[Luciano79]

Ciao a tutti,
non riesco + ad inviare mail da Access.
Fino a ieri funzionava, da quando ho acceso il pc stamattina... nada

Private Sub InviaMail()
    Dim VisualizzaSiNo As Boolean
    Dim Tabella As String
    Dim Destinatari  As String
    Dim CC As String
    Dim CCN As String
    Dim Oggetto As String
    Dim Testo As String
    
    Tabella = "..."
    Destinatari = "Destinatario1@Server.it;"
    CC = "CC1@Server.it;"
    CCN = "CCN1@Server.it;"
    Oggetto = "..."
    Testo = "..." & vbCrLf _
               & "..."
    VisualizzaSiNo = True
    
    On Error GoTo Annullata
    DoCmd.SendObject acSendTable, Tabella, acFormatXLS, Destinatari, CC, CCN, Oggetto, Testo, VisualizzaSiNo
    MsgBox "Mail Inviata"
    On Error GoTo 0
    Exit Sub
    
Annullata:
    MsgBox "Mail annullata"
    On Error GoTo 0
End Sub

Non da alcun errore, mi esegue anche il comando MsgBox "Mail Inviata". Non mi apre nemmeno Outlook!

Da cosa può dipendere?

[Luciano79]

up