Invio automatico e-mail promemoria excel 2019

Anonimo

Buongiorno, sto cercando la soluzione al mio problema, ma non ho trovato quella giusta. Il problema è questo:

Ho un file excel con un elenco di persone e le scadenze loro scadenze (ad esempio documento, corso. Ecc...).

Attualmente, il mio alert è la formattazione condizionale, con la quale mi compare una "X" e la cella rossa se scaduto oppure cella vuota in verde se in corso di validità.

Vorrei sapere come fare in modo che excel, prima della scadenza, invii una mail di promemoria per il rinnovo alla persona che ha la scadenza prossima, (chiaramente solo alle persone che stanno per scadere e non alle altre).

Esempio:

       A.                        B.                C.                 D

1 Nome e cognome mail. Scadenza. Alert

2 Tizio sempronio. Xxxxx. 01/09/24. X

3 Caio morello. Xxxxxx. 01/12/24

4 Ciccillo rossi. Xxxxxx. 05/08/24. X

Grazie

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

41 risposte

Anonimo

2024-09-21T10:37:47+00:00

Forse non è una versione "desktop" di Outlook.
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2024-09-21T10:34:54+00:00

Sicuramente è il PC...

Per la singola mail non c'è problema, funziona correttamente.

A casa ho office 2010, in ufficio ho il 2019, ma credo che la vera differenza sia outlook. Nel PC di casa ho la nuova app
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2024-09-21T10:31:25+00:00
C'è qualche problema del tuo pc.

Probabilmente il problema lo avresti anche se provassi con la tua versione originaria del file da cui dicevi che aprivi l'email e che contiene la medesima istruzione

Sub mail_small_text_outlook()

Dim xOutApp As Object

Dim xOutMail As Object

Dim xMailBody As String

Set xOutApp = CreateObject("Outlook.Application")

Set xOutMail = xOutApp.CreateItem(0)

xMailBody = "test" & vbNewLine & vbNewLine & _
```
        "Expires certificate" & vbNewLine & \_ 

        "Tis is line 2" 
```
On Error Resume Next

With xOutMail
```
   .To = "******@marina.difesa.it" 

   .CC = "" 

   .BCC = "" 

   .Subject = "test" 

   .Body = xMailBody 

   .Send 
```
End With

On Error GoTo 0

Set xOutMail = Nothing

Set xOutApp = Nothing

End Sub

Che versione di Windows e Office utilizzi?
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2024-09-21T10:23:47+00:00

Sul PC di casa ho il nuovo outlook.
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2024-09-21T09:54:45+00:00

Ciao,

ho appena provato, con il doppio click per creare una singola email e ottengo una email come questa:

senza segnalazioni di errori.

Tu hai il programma Outlook di Microsoft?

E qual è la descrizione dell'errore (oltre al numero)?
La risposta è stata utile?

0 commenti Nessun commento