Invio mail in caso di variazione valore cella

Discussioni sull'applicazione per i fogli di calcolo
epicuzza
Messaggi: 31
Iscritto il: venerdì 19 ottobre 2018, 17:50

Re: Invio mail in caso di variazione valore cella

Messaggio da epicuzza »

ho appena finito di metterlo nel mio file.

Allego (non funziona :crazy: )
Allegati
file conti2018.ods
(26.42 KiB) Scaricato 120 volte
OpenOffice 3.1 su Windows Vista
patel
Volontario attivo
Volontario attivo
Messaggi: 4020
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Invio mail in caso di variazione valore cella

Messaggio da patel »

ma tu non modifichi la cella c8, in c8 hai una formula, in realtà modifichi le celle da d8 in poi, la macro non funzionerà.
A questo punto devi spiegare molto dettagliatamente lo scopo che ti prefiggi, se vuoi spedire una mail ogni volta che viene modificata una cella nell colonne da D a AMj si può fare così

Codice: Seleziona tutto

Sub eventoProva(Target) 
    If NOT Target.supportsService("com.sun.star.sheet.SheetCell") then exit sub
    Sh = Target.getSpreadsheet()
    addr = Target.getCellAddress()
    rng = sh.getCellRangeByName("D8:AMJ13")
    range2 = rng.queryintersection(Target.rangeaddress()) 
    If range2.RangeAddressesAsString = "" Then 
       Exit Sub
    Else  
       	msgbox "cella controllata, puoi inviare avviso"
	'call inviaEmailProva
    End if
End Sub
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
bobo779256
Messaggi: 161
Iscritto il: mercoledì 2 maggio 2012, 16:05

Re: Invio mail in caso di variazione valore cella

Messaggio da bobo779256 »

Nel file che hai allegato, file conti2018.ods, quali sono le celle che vorresti controllare e al cui variare venga spedita la mail?

Cosa deve contenere la mail? Valore di quale cella, o quale calcolo?

Ti si è dato il modo per farlo, macro e altro, ma qua mancano proprio le basi, o almeno così sembra...
OpenOffice 4.1.13 su Windows 10 PRO 64bit
epicuzza
Messaggi: 31
Iscritto il: venerdì 19 ottobre 2018, 17:50

Re: Invio mail in caso di variazione valore cella

Messaggio da epicuzza »

epicuzza ha scritto:Buonasera a tutti.

Ho cercato nel forum un caso che mi potesse aiutare ma non ho trovato niente facesse al caso mio, quindi chiedo a voi:

ho bisogno che Calc mi invi una mail in maniera automatica ogni qualvolta il valore di AF2 cambi, non sono interessato ad allegare un file nel mail, mi interessa (se possibile) che la mail mi dica quale cella di quella riga è variata.

Ci tengo a precisare che non mi interessa in che maniera venga inviata la mail, sn disposto a tutto, e che è fondamentale che la mail parta senza bisogno di conferme da parte di chi sta al pc.

vi ringrazio in anticipo, spero di essermi speigato

grazie
Scusate ragazzi forse ho complicato le cose allegando il fileconti2018 ma visto che nel primo post avevo detto cosa volevo fare ho pensato che fossimo sulla strada giusta.

Cmq parliamo del primo file che ho allegato:

Ho bisogno di una macro che quando cambia la somma di af2 invia una mail a tizio@gmail.com
Se cambia af3 invia una mail a caio@gmail.com
Se cambia af4 invia una mail a sempronio@gmail..com
OpenOffice 3.1 su Windows Vista
patel
Volontario attivo
Volontario attivo
Messaggi: 4020
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Invio mail in caso di variazione valore cella

Messaggio da patel »

Io risponderò soltanto su un file definitivo
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
epicuzza
Messaggi: 31
Iscritto il: venerdì 19 ottobre 2018, 17:50

Re: Invio mail in caso di variazione valore cella

Messaggio da epicuzza »

patel ha scritto:Io risponderò soltanto su un file definitivo
Cosa intendi?
OpenOffice 3.1 su Windows Vista
patel
Volontario attivo
Volontario attivo
Messaggi: 4020
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Invio mail in caso di variazione valore cella

Messaggio da patel »

ho fatto delle domande e non hai risposto, ora dici di lavorare sul primo file, non ho voglia di perdere tempo
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
bobo779256
Messaggi: 161
Iscritto il: mercoledì 2 maggio 2012, 16:05

Re: Invio mail in caso di variazione valore cella

Messaggio da bobo779256 »

Ho modificato il file prova1 in modo che ti visualizzi un messaggio, cambiato la macro per verificare celle modificate

Vedi se ti soddisfa

Poi però dovrai applicare tu i vari adattamenti

Passo e chiudo
Allegati
prova1modificato.ods
(11.55 KiB) Scaricato 114 volte
OpenOffice 4.1.13 su Windows 10 PRO 64bit
epicuzza
Messaggi: 31
Iscritto il: venerdì 19 ottobre 2018, 17:50

Re: Invio mail in caso di variazione valore cella

Messaggio da epicuzza »

Buongiorno a tutti,

mi piacerebbe capire il motivo di tutto questo accanimento nei miei confronti, ho fatto un post allegando un file e facendo delle richieste e siete stati gentilissimi a fornirmi tutto il supporto necessario! Quando poi pensavo di aver capito come adattare la macro che mi avete fornito ho pensato di iniziare a copiarla sul mio file di contabilità reale (che ovviamente non potevo postare sul forum) mi è stato chiesto:
in pratica è lo stesso file allegato da Bobo, quindi solo un esempio, mi aspettavo il tuo file, quello con cui vuoi controllare il lavoro dei dipendenti, comunque in risposta alla tua domanda
cosi sempre sulle ali dell'entusiasmo allego il mio file (togliendo i dati sensibili) e da li scoppia il finimondo, il motivo a quanto pare è che non vi avevo detto che la cella che mi interessava era una SOMMA quando nel mio primo allegato lo avevo specificato.
bobo779256 ha scritto: Ti si è dato il modo per farlo, macro e altro, ma qua mancano proprio le basi, o almeno così sembra...
Le basi di programmazione si, l'ho detto diverse volte.

Cmq non voglio rubarvi altro tempo, mi rendo conto che stare dietro ad uno che nemmeno conoscete e per giunta in maniera gratuita non è semplice.
Vi voglio ringraziare in maniera sincera perchè siete stati disponibilissimi e mi avete aperto un mondo, sicuramente approfondirò la cosa.

a presto :super:
OpenOffice 3.1 su Windows Vista
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8807
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Invio mail in caso di variazione valore cella

Messaggio da charlie »

epicuzza ha scritto:mi piacerebbe capire il motivo di tutto questo accanimento nei miei confronti
Dai, nessun accanimento! Solo qualche richiesta "rude" di chiarimenti, a volte basta poco e non ci si capisce reciprocamente. Ma basta altrettanto poco per tornare in sintonia ;) :D .
A presto.
charlie
macOS 14.4.1 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
bobo779256
Messaggi: 161
Iscritto il: mercoledì 2 maggio 2012, 16:05

Re: Invio mail in caso di variazione valore cella

Messaggio da bobo779256 »

Esatto...

nel mio caso mi scuso se ho dato un'idea sbagliata

anch'io sono qua per apprendere, tant'è che spesso chiedo lumi

epicuzza, devi andare per gradi, ma devi essere tu a fare le prove

mi scuso se ho dato l'impressione di adirarmi

ciao
OpenOffice 4.1.13 su Windows 10 PRO 64bit
patel
Volontario attivo
Volontario attivo
Messaggi: 4020
Iscritto il: venerdì 30 aprile 2010, 8:04
Località: Livorno

Re: Invio mail in caso di variazione valore cella

Messaggio da patel »

epicuzza ha scritto: ho bisogno che Calc mi invi una mail in maniera automatica ogni qualvolta il valore di AF2 cambi, non sono interessato ad allegare un file nel mail, mi interessa (se possibile) che la mail mi dica quale cella di quella riga è variata.
questo è quanto hai detto nel primo post, recentemente io ho detto:
patel ha scritto:....., se vuoi spedire una mail ogni volta che viene modificata una cella nell colonne da D a AMj si può fare così

Codice: Seleziona tutto

Sub eventoProva(Target) 
    If NOT Target.supportsService("com.sun.star.sheet.SheetCell") then exit sub
    Sh = Target.getSpreadsheet()
    addr = Target.getCellAddress()
    rng = sh.getCellRangeByName("D8:AMJ13")
    range2 = rng.queryintersection(Target.rangeaddress()) 
    If range2.RangeAddressesAsString = "" Then 
       Exit Sub
    Else  
       	msgbox "cella controllata, puoi inviare avviso"
	'call inviaEmailProva
    End if
End Sub
e tu non mi hai minimamente considerato
-------------------
Libre Office 7.5.3.2 su Windows 11
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Rispondi