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
Problemi di ricezione Mail su outlook Autore: danibi60 |
Forum: Applicazioni Office Windows Risposte: 2 |
Come impostare il formato data predefinito in excel? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: raimea e 7 ospiti