Sviluppare funzionalita su Microsoft Office con VBA Invio automatico mail in prossimità della scadenza

LoginRegistrati
Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)
  • Autore
    Articoli
  • #29718 Risposta

    ale.t87
    Partecipante

      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

      #29719 Risposta
      PMC77
      PMC77
      Partecipante
        9 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

         

         

        #29720 Risposta

        ale.t87
        Partecipante

          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 🙂

          #29721 Risposta

          ale.t87
          Partecipante

            Ottimo,

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

            Adesso devo solo capire come fargli cercare a chi inviarla 🙂

          LoginRegistrati
          Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)
          Rispondi a: Invio automatico mail in prossimità della scadenza
          Gli allegati sono permessi solo ad utenti REGISTRATI
          Le tue informazioni:



          vecchio frac - 2750 risposte

          albatros54
          albatros54 - 1052 risposte

          patel
          patel - 1045 risposte

          Marius44
          Marius44 - 943 risposte

          Luca73
          Luca73 - 757 risposte