Eliminazione Finestra PopUp conferma invio Mail



  • Eliminazione Finestra Pop-Up conferma invio Mail
    di Nero (utente non iscritto) data: 08/09/2014 12:22:10

    Pongo un quesito per chi ha voglia e pazienza di aiutarmi.

    Di seguito ho estratto un pezzo di codice di una macro che invia dei dati da un foglio dati a dei Terzi. Ogni volta che li invia mi pone una finestra in cui mi chiede
    "Un programma sta tentando di inviare un msg per conto dell'utente.L'operazione è imprevista. Fare clic su "Non consentire" e verificare che il software antivirus sia aggiornato. ... etc (Il Focus è posto su "Non Consentire")
    Il mio quesito è: si può evitare che ciò avvenga? Io ho provato ad inserire .DisplayAlerts=False ma in fase di Debug mi accorgo che la proprietà rimane fissa su True. Esiste un comando che evita questo Pop Up che è fastidioso?
    Grazie per l'aiuto che mi darete
     
    ......
        Windows("MioFile").Activate
        Range("A18").Select
        ChDir "D:CartellaCartella"
        ActiveWorkbook.SaveAs Filename:=Xf, FileFormat:=xlNormal
        Application.DisplayAlerts = False
        ActiveWorkbook.SendMail Recipients:= "posta@gmail.com", Subject:="Testo Oggetto"
        ActiveWindow.Close
        Windows("MioFile.xls").Activate
        Sheets("MioFoglio").Activate
        Application.CutCopyMode = False
        Range("A18").Select
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
    .....