Salve
nell'editor di VBA copia la seguente macro in ThisWorkbook
che all'apertura del file controlla tutti i fogli della cartella se la data inserita nella cella A1
è minore o uguale alla data odierna. Se se verifica la condizione viene richiamata la macro che invia la mail.



Private Sub Workbook_Open()
x = Date
For Each ws In Worksheets
With ws
If .[a1].Value - x (= 5 Then
Call Inviamail
End If
End With
Next
End Sub

Copia la seguente macro in un modulo dell'editor di VBA Menu Inserisci)Modulo
La macro suppone che nella cella C1 di ogni foglio ci sia l'indirizzo E_mail a cui inviare il messaggio.
Per funzionare bisogna attivare la specifica libreria di Micorsoft Outlook. Menu Strumenti>Riferimenti
mettere il segno di spunta su "Micorosft Office 9.0 object library"
La macro usa Microsoft Outlook come gestore di posta.

Sub Inviamail_Outlook()
Dim OutApp As Object
Dim OutMail As Object
Dim messaggio As String
Dest = Sheets("foglio1").Range("c1").Value

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

messaggio = "Buongiorno" & vbNewLine & vbNewLine & _
"Il presente avviso per comunicarle che" & vbNewLine & _
"la sua polizza auto scade tra 2 giorni" & vbNewLine & _
"Cordiali saluti" & vbNewLine & _
"Ti Assicuro Bene S.P.A."

On Error Resume Next
With OutMail
.To = Dest
.CC = ""
.BCC = ""
.Subject = "Scadenza Polizza Auto"
.Body = messaggio
.send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

saluti
Andrea

---

Salve , riprendo a distanza lo stesso argomento create da me a suo tempo.
Utilizzando la macro che colora i TAb dei fogli: mi succede che inserendo la data nella cella a1 come da macro , i TAb si colorano, ma si colora anche il tab del foglio dove non è indicata la data. A me serve che si colori solo il TAB dove è indicata la data. Inoltre se cancello la data dal foglio dove era indicata la data, al riavvio è ancora colorata.
Non capisco il motivo.
Questa la macro che uso:
Private Sub Workbook_Open()
x = Date
For Each ws In Worksheets
With ws
If .[b1].Value - x <= 5 Then
.Tab.ColorIndex = 3
Else
.Tab.ColorIndex = -4142
End If
End With
Next
End Sub


Ciao
Giuseppe

Benvenuto nel nostro Forum, Borile500.

Ciao.