Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
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
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
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.
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
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?
Sul PC di casa ho il nuovo outlook.
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)?
Ciao e grazie sempre.
La formattazione non è un problema, mi rendo conto che poteva dare fastidio.
Sto testando, ma restituisce un errore run-time 429. Il debug mi evidenzia la riga:
Set oOutlook = CreateObject("Outlook.Application")
potrebbe però essere il nuovo outlook che ho nel PC di casa
buon weekend