Moderatori: Anthony47, Flash30005
Sbabbaro ha scritto:Grandee, grazie mille.
Come spesso succede, le soluzioni più semplici sono anche le migliori.
Sei stato molto dettagliato, metto subito in atto.
Giusto per curiosità, era possibile fare lo stesso con Excel?
Ciao
Option Explicit '<<<<<<<< esistente
Public TestoE As String ' <<<< aggiungere
Sub InvioEmail()
Dim UR, RR, CC
UR = range("A" & Rows.Count).End(xlUp).Row
For RR = 1 To UR
If UCase(range("J" & RR).Value) = "IN SCADENZA" And range("L" & RR).Value = "" Then
TestoE = ""
For CC = 1 To 11
TestoE = TestoE & " " & cells(RR, CC).Value
Next CC
Invia_Email_Automaticamente
range("L" & RR).Value = "Ok"
End If
Next RR
End Sub
.Body = "Testo della eMail che riceverai"
.Body = TestoE
Next RR '<<<<<< esistente
ThisWorkbook.Close savechanges:=True '<<<<<<<< aggiungere
End sub '<<<<<<<<<<< esistente fine macro
Private Sub Workbook_Open()
InvioEmail
End Sub
SCHTASKS /Create /SC DAILY /TN InvioEmail /TR "'c:\PercorsoFile\FileInvioEmail.xlsm'\" /ST 12:00
For RR = 2 To UR '<<<<< modificare con 2 perché penso che nella riga 1 ci sia la testata e andrebbe in errore
MiaSc = DateDiff("d", Date, Range("E" & RR).Value) '<<<< aggiungi questa riga qui
If MiaSc <= 5 And Range("L" & RR).Value = "" Then '<<<< modifica la condizione così
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 80 ospiti