[VBA] Verificare se un programma è già aperto

[Bobo360]

Ciao a tutti, ho la necessita di verificare se un programma è aperto.
perché tramite accesss, eseguendo un comando mi manda una mail con outlook, che se riulta chiuso è un guaio.
Per evita ciò vorrei usare questo codice, ma per ora provato con word per evitare di far crashiare outlook che è molto sensibile.

Codice: Seleziona tutto

Private Sub Comando7_Click()
Dim aWord As Object
On Error Resume Next
'Recupera il riferimento all'istanza di Word
Set aWord = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        MsgBox "Non è stato possibile trovare l'istanza di Word", vbExclamation
        Set aWord = CreateObject("word.Application")
        aWord.Open
        aWord.Visible = True
        Exit Sub
    End If
MsgBox ("Word Apeto")
End Sub

che ne dite? oppure c'è qualcosa di meglio?

Poi quando lo trovo chiuso, tento di aprire word, ma non mi convince questo comano, apre word ma senza aprire un foglio vuoto, non so se con outlook va bene.
che dite?

Grazie

[alev]

Se l'obiettivo è inviare una mail con Outlook, potresti fare delle prove come segue:
- Imposta Outlook come client email di sistema
- Nel codice VBA, utlizza le chiamate al protocollo MAILTO

Qualche esempio:
https://www.rondebruin.nl/win/section1.htm

Il vantaggio di MAILTO è che agisce in modo abbastanza intelligente: se il client di email è aperto, allora invia l'email; se è chiuso, allora lo apre

[Bobo360]

Grazie, provo e ti faccio sapere,
non se posso utilizzare, ma credo di si, io aggiungo firma ed altre cose nel corpo della mail.
Un problema è che devo far mettere predefinito a tutti Outlook e va be. si può fare.

Ma nel link credo di non aver trovato MAILTO, oppure non vedo bene.

grazie ti faccio sapare.

[alev]

Ma nel link credo di non aver trovato MAILTO, oppure non vedo bene.

Vedi bene, sono io ad essermi dimenticato del link corretto:
https://www.forumexcel.it/forum/threads ... lto.37298/

Con una ricerca in rete con chiave "Excel vba mailto" si trovano anche esempi differenti:
https://www.mrexcel.com/board/threads/v ... to.455525/
https://www.wallstreetmojo.com/vba-send ... rom-excel/

[lelerelele]

Non sto nenache a dirti che se facessi un applicazione vb.net sarebbe molto semplice, (è quasi come programmare in VBA), link


Si trovano anche componenti che si possono inserire come oggetto esterno, pure in VBA (credo), tipo questo, ne usai uno che lavorava bene anni fa, se riesci con questi è semplice.

Ho dato un occhiata alle righe di comando di outlook, mi è sembrato che non ci sia la possibilità di creare e di inviare euna email senza passare dalla interfaccia.

saluti.

[alev]

Da semplice command-line CMD è possibile inviare email mediante apposita applicazione, credo ne esistano diverse, ecco un esempio

https://www.blat.net/

[Bobo360]

Grazie a tutti, ora faccio delle prove e vi faccio sapere, Grazie sempre per il vostro supporto.

[Bobo360]

Purtroppo rispondo dopo molto tempo, ma non riuscito a far funzionare questa parte di codice, non riesco a far capire se outlook è aperto no. e per ora proseguo senza controllo,
ma avete qualche altro aiuto sono sempre qui in attesa. Grazie

[lelerelele]

per me devi cambiare strada, outlook non è stato fatto per essere usato in questo modo, e quindi non è agevole se non impossibile usarlo allo scopo. Esistono programmini creati per lo scopo, lo chami da codice e lui ti legge/scrive la E.mail-

link
link
link
link

saluti

[Bobo360]

Grazie per la risposta, do una lettura a questo che mi hai mandato e vediamo se riesco a farlo.
grazie ancora e a presto.