Aprire outlook



  • Aprire outlook
    di Rita (utente non iscritto) data: 06/02/2015 17:51:34

    Ciao a tutti, ho una macro per inviare una email tramite Excel
    qualcuno sa dirmi qual è l'istruzione in vba per far si che si apra Outlook, senza far nulla, solo aprirsi
    grazie in anticipo



  • di Vecchio Frac data: 06/02/2015 21:16:11

    Questo basta?
     
    Application.ActivateMicrosoftApp xlMicrosoftMail 






  • di Rita (utente non iscritto) data: 09/02/2015 08:09:49

    Grazie, e' quello che mi serviva
    Alla prossima



  • di Rita (utente non iscritto) data: 09/02/2015 08:12:55

    Scusa vecchio frac, ne approfitto.
    Se invece una volta aperta la volessi chiudere?



  • di Rita (utente non iscritto) data: 09/02/2015 08:36:57

    volevo anche chiederti un'altra cosa
    con il comando che mi hai detto apro Outlook
    ora con un comando sendkeys es ed esattamente sendkeys "%",true ossia premi alt dalla tastiera
    vorrei che mi si evidenziasse il pulsante in alto a sinistra "file" di outlook, invece lo fa ma su Excel (home)
    come posso fare per ovviare a questa cosa



  • di Vecchio Frac data: 09/02/2015 10:24:36

    Queste richieste sono un po' bizzarre... di solito le richieste bizzarre nascondo altri scopi che magari si possono raggiungere in modo più appropriato. Comunque vedi i tre codici sotto che fanno quello che hai chiesto (il nome delle sub è esplicativo).
     
    Option Explicit
    
    Sub activate_Outlook()
    
        Application.ActivateMicrosoftApp xlMicrosoftMail
        
    End Sub
    
    
    Sub close_Outlook()
    Dim olApp As Object
    
        On Error Resume Next
        Set olApp = GetObject(, "Outlook.Application")
        
        If olApp Is Nothing Then Exit Sub
        
        olApp.Quit
        
        Set olApp = Nothing
    
    End Sub
    
    
    Sub activate_menu_file_in_outlook()
    Dim olApp As Object
    
        On Error Resume Next
        Set olApp = GetObject(, "Outlook.Application")
        
        If olApp Is Nothing Then Exit Sub
    
        AppActivate "Posta in arrivo"
        
        SendKeys "%"
    
    End Sub






  • di Rita (utente non iscritto) data: 09/02/2015 10:44:13

    Hai ragione e ti spiego il mio problema.
    Ho un file Excel che funziona bene dove inserisco degli indirizzi email, creo un testo prestabilito e lo invio in automatico.
    Il problema e' che ora e non so perché le email vengono bloccate ed ogni volta mi chiede l'autorizzazione ad inviarle
    (uso win 7 Outlook 2007)
    ho visto che fleggando in Outlook sotto strumenti opzioni protezione macro il "non eseguire alcun controllo...."
    le email partono senza nessuna richiesta
    non sapendo se ci siano dei comandi che fanno questo volevo ovviare come ti avevo chiesto con il comando sendkeys
    tu hai qualche altro sistema?



  • di Vecchio Frac data: 09/02/2015 12:02:52

    Si tratta delle protezioni di Outlook e soprattutto con le mail automatiche non è facile aggirarle.
    Io uso "Express ClickYes" che preme "Sì" alla richiesta "Questo programma sta tentando di inviare mail..." che blocca l'invio delle mail. Si tratta di un'attesa fastidiosa ma non sono riuscito a eliminarla del tutto... con Outlook (anche per questo e non solo sono passato ad altri sistemi in un altro linguaggio di programmazione).