Invio automatico mail in prossimità della scadenza

[ale.t87Partecipante ale.t87]

Buongiorno a tutti,

vi chiedo aiuto non essendo pratica con le VBA.

Ho un file excel che contiene i dati delle auto che fanno parte del parco auto aziendale, vorrei che venisse inviata una mail in automatico in prossimità della scadenza della revisione.

Il file è cosi strutturato:

colonna B: targa

colonne C-L: dati delle auto non utili a questo scopo

colonna M: scadenza della revisione (formato data)

colonna P: nome dell'utilizzatore

colonna Q: mail di riferimento dell'utilizzatore

Vorrei che 30 giorni prima della scadenza della revisione venisse inviato un reminder con Outlook all'indirizzo mail corrispondente (colonna Q) che contenga un messaggio standard del tipo:

Gentile <nome dell'utilizzatore>,

la ricordiamo che in data <data di scadenza> scadrà la revisione dell'automezzo targato <targa>.

Poi sarebbe meraviglioso se comparisse anche un "promemoria inviato" da qualche parte, ma non vorrei complicare troppo la questione.

Grazie mille a chi vorrà aiutarmi.

Alessandra

[PMC77Partecipante PMC77 Karma: 18 pts]

Ciao @ale.t87

Se cerchi nel forum troverai i due pezzi di macro che ti servono...

Il primo è quello relativo all'invio mail

Il secondo è quello relativo al ciclo sul tuo foglio alla ricerca dei proprietari dei mezzi a cui mandare la comunicazione

Quando hai trovato e mixata producendo un file Excel con la macro, mandalo che vediamo di aiutarti, ok?

Buona giornata!

Paolo

 

 

[ale.t87Partecipante ale.t87]

Grazie mille PMC77.

Intanto ho provato a capire come funziona l'invio delle mail scrivendo questo:

Sub InviaEmail()
On Error Resume Next

Dim a As Object
Dim b As Object

Set a = CreateObject("Outlook.Application")
Set b = a.CreateItem(0)

b.To = Worksheets("Foglio1").Cells(1, 1)
b.Subject = "Prova"
b.Body = Worksheets("Foglio1").Cells(1, 2)
b.Display 'se vuoi visualizzarla
'b.Send 'Se vuoi mandarla subito

Set a = Nothing
Set b = Nothing
End Sub

E ho già il primo problema ovvero.. come faccio a dire a Outlook da quale indirizzo fare partire la mail? Ne ho impostati più di uno 🙂

[ale.t87Partecipante ale.t87]

Ottimo,

risolto inserendo b.SentOnBehalfOfName = "mioindirizzo@dominio.org"

Adesso devo solo capire come fargli cercare a chi inviarla 🙂

[Autore]

Articoli