macro ecel per invio mail automatiche su timer automatici

[daniele.ferraro]

Buongiorno a tutti,
premetto di essere abbastanza inesperto ed incompetente in materia... ma ho la volontà di imparare!
Ho un database Excel ( condecine di colonne e centinaia di righe) nella quale la colonna B contiene un timer di scadenza giorni che si aggiorna automaticamente e la colonna H contiene l'indirizzo mail dell'utente interessato all'attività.
Vorrei sapere se esiste una macro che controlla ogni giorno il numero dei giorni in scadenza timer e, qualora corrispondano al numero preordinato (es: 5 giorni) invii mail automatiche agli utenti interessati.
non so come allegare un esempio...
Spero di esser stato chiaro e di ricevere il vostro preziosissimo aiuto!
Grazie.

[Flash30005]

Ciao Daniele e benvenuto nel Forum

Il quesito è risolvibile (abbiamo molti esempi di invio email, in questa sesssione)

Dovresti dirci quale programma di posta utilizzi (e versione)
inoltre specificare cosa intendi con

se esiste una macro che controlla ogni giorno il numero dei giorni in scadenza timer e, qualora corrispondano al numero preordinato (es: 5 giorni)

facendo un esempio pratico
es.: la colonna B ha una data (scadenza invio) o il numero 5 (giorni) e la data è specificata altrove?

ciao

[daniele.ferraro]

Grazie per la tempestività!
per la posta uso outlook 2007.
colonna A : data scadenza attività
colonna B: giorni rimanenti alla scadenza (DATA.DIFF)

ho trovato diverse versioni di macro invioemail, ma nessuna per il mio caso specifico.
intendevo dire che, se possibile, la macro dovrebbe attivarsi da sola ogni giorno e dovrebbe far partire le mail di sollecito solo agli utenti che hanno un'attività prossima alla scadenza.
Esempio:
termine per utente gg residui progr. Continuo Mese data attività tipo attività utente

07/12/12 2 20261 OTTOBRE 17/12/2012 GdP casa daniele.ferraro@

[daniele.ferraro]

meglio così...
termine per utente gg residui progr. Continuo Mese data attività tipo attività utente

07/12/12 2 20261 OTTOBRE 17/12/2012 GdP casa daniele.ferraro@

[Flash30005]

Ammesso che oggi abbia inviato l'email al tizio
domani cosa deve fare il programma, rinviarla di nuovo a tizio con giorni scadenza 1?

(la colonna B se è ottenuta per differenza data da data odierna è inutile per il programma)

ciao

[daniele.ferraro]

mi serve che invii una sola mail quando mancano 2gg

...help...

[Flash30005]

2 giorni dalla data impostata nella colonna A?
e mettiamo il caso che la data in colonna A sia 7/12/2012 ma ieri non è stato aperto il file di excel che invia le email
Lo apri oggi (6/12/2012) con un solo giorno alla scadenza cosa deve fare il programma, inviare oggi l'email?

[daniele.ferraro]

esatto, 2gg dalla data impostata nella colonna A.
Nella mia "fervida immaginazione" speravo si potesse lanciare il programma e tenerlo sempre in working, senza dover ogni giorno aprire il file excel... se ciò non fosse possibile, un'altra soluzione potrebbe essere che apro il file ogni lunedì ed il programma invia mail a tutti gli utenti con attività in scadenza entro 7 giorni. Ad esempio: lunedì 10/12 invierà mail per le attività in scadenza tra il 11/12 ed il 17/12, lunedì 17/12 per le attività in scadenza tra il 18/12 ed il 24/12 ecc.

Ho dimenticato un fattore determinante per l'invio della mail : alla fine del file c'è una colonna X nella quale l'utente indica se ha svolto l'attività. Nel caso la cella fosse piena, non dev'essere inviata nessuna mail di sollecito.

[Flash30005]

Procediamo per gradi

apri un nuovo file (cartella) di excel

in un foglio (Foglio1) inserisci delle data dalla riga 2 in poi della colonna A (sono sufficienti 3 o 4 righe) date prossime alla data odierna, e in H inserisci il tuo indirizzo email
ora in un modulo inserisci questa macro

Codice: Seleziona tutto

Sub Invia_Email()

Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Quit
Set OutApp = Nothing
Application.Wait (Now + TimeValue("0:00:05"))
' RR contiene il numero di utenti cui inviare le e-mail (1 per utente)
RR = Range("A" & Rows.Count).End(xlUp).Row
' I dati iniziano dalla seconda riga
For I = 2 To RR
DataE = Cells(I, 1).Value
If Range("A" & I).Value - 2 <= Date And Range("X" & I).Value = "" Then  '<<<< il 2 sta per due giorni di anticipo rispetto alla scadenza
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
' La colonna "H" contiene gli indirizzi e-mail dei vari destinatari
.To = Cells(I, 8)
' Subject  contiene l'oggetto della e-mail
.Subject = "Inserire Oggetto"
' Body contiene l testo della e-mail
.Body = "Corpo email"
.Send
'MsgBox ("mail inviata")
Application.Wait (Now + TimeValue("0:00:02"))
End With
Range("X" & I).Value = "X"
End If
Set OutMail = Nothing
Set OutApp = Nothing
Application.Wait (Now + TimeValue("0:00:03"))
Next I
MsgBox ("Invio completato") ' eliminare in caso di automatismo
End Sub

Ora avendo attivo il foglio appena compilato avvia la macro e verifica l'invio della email con Oggetto, corpo messaggio etc come commentato nella macro.

Se ok procediamo con l'automatismo di avvio file giornalmente

Fai sapere
ciao

[daniele.ferraro]

appena lancio la macro chiude immediatamente outlook e da errore di run-time '287' ...

[Flash30005]

Outlook deve essere chiuso!

[daniele.ferraro]

idem...

[Flash30005]

se non sei più chiaro non andiamo avanti

Appare il messaggio di "Invio Completato" ?

se non appare il messaggio in quale riga si ferma la macro?
potresti inviare uno screenshot?