Invio automatico Mail da Excel, senza uso di bottoni

[Anthony47]

nella cella corrispondente alla colonna G (mail OK) c'è la data del 24/08/2020, in corrispondenza abbiamo "scaduto"

Questa situazione mostra che il giorno 24 e' partita una notifica; ma dopo quella notifica per N=10 gg questo SCADUTO dovrebbe essere stato ignorato. Cosa invece e' successo?

Ma la cosa strana é che la mail parte da chi apre il file

Se la macro e' stata "agganciata" all'evento Workbook_Open allora la macro fa il suo lavoro tutte le volte che il file viene aperto, senza guardare in faccia chi apre il file. Tu sai se hai inserito una Sub Workbook_Open e se al suo interno c'e' il richiamo della Sub InvioEmailScad

devo inserire nella formula excel una funziona che ignori il contratto se é già stata inviata la mail?

Ripeto: quando la macro trova uno SCADUTO procede a inviare la mail e contemporaneamente segna in colonna G che in data xxx ha inviato la mail; per 10 gg anche se quella riga rimane in SCADUTO non succede niente, ma all'undicesimo giorno ripartira' una nuova mail di notifica. Questo e' governato dall'istruzione

Codice: Seleziona tutto

If (Date - Cells(I, "G")) > Franc Then

Nel tuo file quale e' la modalita' che fa scomparire "scaduto"? Immagino che dopo la notifica via mail un certo contratto in scadenza venga gestito, pertanto cambiera' la data di scadenza e questo fara' decadere la notifica di "scaduto". O no?

Ciao

[alfroning]

Buongiorno:

Tutto ok, solo che i messaggi partono senza seguire le istruzioni, ti allego per capirci meglio il messaggio che come noterai parla di un contratto da "stiputare", refuso della prima impostazione e corretto in "stipulare".
File:

<a href=http://www.filedropper.com/esempio><img src=http://www.filedropper.com/download_button.png width=127 height=145 border=0/></a><br /><div style=font-size:9px;font-family:Arial, Helvetica, sans-serif;width:127px;font-color:#44a854;> <a href=http://www.filedropper.com >online backup storage</a></div>

msg:

Attenzione per stiputa contratto 
Gara: SR 213 FLACCA 
CIG 82152227A7, Scadenza al 04-set-20 
Gara
: SUPPORTO RUP SETTORE FERROVIARIO 
CIG 8283319B12, Scadenza al 14-set-20 
Gara
: SUPPORTO RUP SETTORE FERROVIARIO (segnalamento) 
CIG 828337052A, Scadenza al 14-set-20
Cordiali saluti 
La tua macro

Veramente strano........

Grazie!

[alfroning]

scusa....il link

http://www.filedropper.com/esempio_1

[Anthony47]

Secondo me ci sono molte copie del file in possesso di persone diverse, e ognuno ovviamente invia le sue email in funzione di cosa risulta sul proprio PC. Questo spiega anche perché qualche mail contiene un testo che hai modificato.
Altra cosa che devi guardare è la data che figura nel subject, perché non escluderei che qualche outlook abbia delle regole di invio che trattengono le emails nella cartella Posta da Inviare fino a un successivo comando di Invia, che potrebbe causare ritardo nell'effettivo invio.

Ciao

[alfroning]

Da quello che mi dici, credo che non si possa impostare senza intervenire nelle regole di outlook..cosa che esula dalle mie competenze e quindi strada non percorribile.

Nel soggetto della mail c'è la data di invio, per esempio quella di ieri: "Scadenze del 2020-ago-25"...ieri ne sono girate diverse.

Rimango del tutto ignaro di questo problema...peccato.

Grazie di tutto
Peccato che siamo distanti, una birra te l'avrei offerta con piacere.

[Anthony47]

Da quello che mi dici, credo che non si possa impostare senza intervenire nelle regole di outlook..cosa che esula dalle mie competenze e quindi strada non percorribile.

Questa preoccupazione ci sarebbe stata se avessimo visto comparire "oggi" email con una data (nel subject) molto vecchia, ma mi pare che non sia questo il to caso.

Rimane l'ipotesi che ci siano in giro piu' copie del file, installate su pc diversi; ma su questa ipotesi non hai detto nulla...

Ciao

[alfroning]

No, no esiste solo una copia che viene aggiornate dai vari operatori, altrimenti avrebbero ognuno un file con dati diversi. Boh....molto strano.

Ma se elimino la stringa "If (Date - Cells(I, "G")) > Franc Then", la macro dovrebbe spedire solo una mail...giusto?

Eliminerei anche quella che definisce i giorni di "Franc". Che ne pensi?

Ciao

[Anthony47]

No, no esiste solo una copia che viene aggiornate dai vari operatori, altrimenti avrebbero ognuno un file con dati diversi.

Ma i vari operatori dove lavorano? su un unico (stesso) pc o ognuno ha il suo?

Ma se elimino la stringa "If (Date - Cells(I, "G")) > Franc Then", la macro dovrebbe spedire solo una mail...giusto?

No, sbagliato... Quell'istruzione impedisce per N giorni di inviare una seconda mail su un contratto "scaduto"; questi N giorni dovrebbero consentire al personale di rimuovere la condizione di "scaduto", ad esempio perche' viene impostata una nuova data di scadenza dopo il rinnovo.

Se invece vuoi che venga inviata una sola mail allora, senza modificare la logica della macro, potresti impostare Franc = 10000 in modo che per i prossimi 25 anni la macro ignori lo stato "scaduto", dopo il primo invio di mail.

Ciao

[alfroning]

Siamo tutti in un ufficio...gare e contratti ognuno con la propria postazione, la dirigenza voleva che impostassi un sistema di "sollecito" per la stesura dei contratti, aspetto più stringente a causa della nuova normativa. Il file di cui ti ho inviato la tabella riassuntiva indica lo stato dell' opera di ogni gara. Piuttosto pesante.....e visti alcuni lavori fatti in excel mi ritrovo in questo vespaio....comunque sono sicuro sull'unicità del file in quanto se aperto da qualcuno...ti appare il messaggio solito di excel.

Tra il 24, data che il sistema ha indicato nella colonna, e il 25 sono partite 3 mail uguali.

Ciao

[Anthony47]

sono sicuro sull'unicità del file in quanto se aperto da qualcuno...ti appare il messaggio solito di excel

Huummm... Quale "messaggio solito"?
E comunque se ti arrivano oggi email con un subject datato oggi ma con testo che avevi corretto giorni e giorni fa significa che qualche copia diversa in giro c'e'

Codice: Seleziona tutto

Tra il 24, data che il sistema ha indicato nella colonna, e il 25 sono partite 3 mail uguali

Tutte dallo stesso mittente? se vai su Outlook del mittente le trovi?

Tieni anche presente che se piu' persone accedono allo stesso file (perche' ad esempio condiviso su un server di rete) e ci fosse l'abitudine a "guardare" e poi chiudere senza salvare il file allora facilmente puo' succedere che l'utente A apre il file e guarda, ci sono "scaduti" da processare, la macro crea la mail e l'utente la invia, ma la data di invio email non viene salvata, per cui il prossimo che apre l file inviera' una seconda mail.

Insomma devi indagare in loco

[alfroning]

Ho fatto una prova, mettendo un giorno di "Franc", destinatario solo io, ho ricevuto la mail con la dicitura "stipula/stipula" corretta. Rimango sempre più dubbioso su quanto accaduto.

Grazie e scusami

Ciao

[Anthony47]

Rimango sempre più dubbioso su quanto accaduto.

Se non indaghi non arriverai mai a niente... Vai dai mittenti delle email e chiedigli cosa hanno fatto... Poiche' la macro si limita a preparare l'email (.display) l'avranno ben spedita coscientemente...
Se oggi arrivano email spedite oggi (non 10 gg fa) con il testo sbagliato vai dal mittente della mail e guarda cosa c'e' su suo pc
Modifica nel file ufficiale il testo della mail (basta aggiungere una parola al Subject) e guarda se ti arrivano mail col testo "vecchio"; se Sì allora vai a cancellare le copie del file dal Pc dei mittenti delle email...

[alfroning]

Ti ringrazio per la pazienza.

Ciao

[Anthony47]

Attenzione che ho modificato il mio messaggio mentre tu rispondevi

[alfroning]

Stamattina, ho provato a fare dei tentativi per verificare quale mail causasse il problema.

Solo che ad un certo punto mi é apparso l'errore di runtime 13, cercato sul web ma trovo solo riferimenti ad access, il file nella colonna "F" ha le voci "scaduto".

If UCase(Cells(I, "F")) = "scaduto" Then, questa é la riga che genera l'errore.

La macro é cosi:

Sub InvioEmailScad()
Dim OutApp As Object, OutMail As Object
Dim EmailAddr As String, Subj As String, Franc As Long
Dim BDT As String, I As Long, myCnt As Long 'FIN QUI SONO "DICHIARAZIONI"
' (a)
Franc = 0 '<<< Giorni tra una mail e la successiva
Sheets("appoggio").Select '<<< Il Foglio con i i dati
'compilazione del testo della mail
BDT = "Attenzione per stipula contratto " & vbCrLf '<<<**
For I = 2 To Cells(Rows.Count, "F").End(xlUp).Row
If UCase(Cells(I, "F")) = "scaduto" Then
If (Date - Cells(I, "G")) > Franc Then
BDT = BDT & "Gara: " & Cells(I, "A") & ", Scadenza al " & Format(Cells(I, "C"), "dd-mmm-yy") & vbCrLf '<<<**
myCnt = myCnt + 1
Cells(I, "G") = Date
End If
End If
Next I
BDT = BDT & vbCrLf & "buon lavoro" & vbCrLf
BDT = BDT & "La tua macro"
'' (b)
If myCnt = 0 Then Exit Sub 'Nessuna scadenza, si termina senza azioni
'
'DA QUI SI CREA E INVIA LA MAIL:
Set OutApp = CreateObject("Outlook.Application")
EmailAddr = "xxxxxxxxxxx@xxxxxxxx.it; SecondaEmail@Dominio.Com; TerzaEmail@Dominio.Com" '<<< INDIRIZZO EMAIL
Subj = "Scadenze del " & Format(Date, "yyyy-mmm-dd") '<<< OGGETTO DELLA MAIL
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Body = BDT
.send
' .display ' .send e .display sono alternative
End With
Application.Wait (Now + TimeValue("0:00:01"))
' (c)
Set OutMail = Nothing
' (d)
Set OutApp = Nothing
'
End Sub

Perdonami.

[alfroning]

Ciao,

Ho risolto, vediamo domani di andare avanti con i tentativi.

Grazie per l'aiuto veramente prezioso.