- Codice: Seleziona tutto
Option Explicit
Public TestoE As String ' <<<< aggiungere
Private Sub Workbook_Open()
InvioEmail
End Sub
Sub InvioEmail()
Dim MiaSc As Integer
Dim UR, RR, CC
UR = Range("A" & Rows.Count).End(xlUp).Row
For RR = 2 To UR
[color=#00BF40][color=#FFFF00]MiaSc = DateDiff("d", Date, Range("E" & RR).Value) '<<<< aggiungi questa riga qui[/color][/color]
If MiaSc <= 5 And Range("L" & RR).Value = "" Then '<<<< modifica la condizione così
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
ThisWorkbook.Close savechanges:=True '<<<<<<<< aggiungere
End Sub
Sub Invia_Email_Automaticamente()
Dim OutApp As Object
Dim OutMail As Object
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "diegobeccari@xxxx.it"
.CC = "diegobeccari@xxxx.it" ' <<===== Questa istruzione puoi anche eliminarla se non ti occorre la copia conoscenza
.Subject = "Oggetto della eMail"
.Body = TestoE
.Send
End With
Application.SendKeys "%a"
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Effettuato invio eMail al RESPONSABILE" ' <<===== Puoi anche cancellare uesta istruzione o mettere un messaggio opportuno per il tecnico
Application.ScreenUpdating = True
End Sub
Questo è tutta la macro... ma mi da errore dove ho evidenziato
