Angelo_Tbp ha scritto:
Buongiorno. E outlook va ene come gestore di posta? Hai già realizzato o tentato di realizzare qualcosa da cui partire?
Buon giorno Angelo,
so che con outlook e' fattibile almeno mandare email, ma non so come fare per far si che parta in automatico quando cambia il valore delle celle.
Ma se con gmail non e' possibile mi arrangio con outlook.
Il codice base che conosco e' il seguente:
Sub sInviaEmail()
Dim NewMail as Object
Set NewMail = CreateObject("Outlook.Application").CreateItem(oMailItem)
With NewMail
.To = Worksheets("il mio foglio excel che si chiama Orders").Range("qui non so cosa mettere")
.Subject = "Invio di prova"
.Body = "qui dovrebbe apparire come corpo del messaggio le celle corrispondenti alla cella con valore 0 quando essa cambia"
Destin = "a.pippo@dominio.it"
ActiveWorkbook.SendMail Recipients:=Destin, Subject:="Ciao"
.Send
End With
End Sub
La colonna che devo prendere in considerazione con il valore "0" e' la colonna J e le celle possono spaziare da J5 a infinite celle. Ogni volta che una o piu celle in questo range passa a "0" deve inviare una email della corrispondente linea che a sua volta contiene le celle E,F,G,H.
Ovvero se J5 diventa 0 mi deve mandare una email che contenga nella descrizione quello che c'e nelle celle E5,F5, G5, H5 e cosi via dicendo.
Non so se sono stato chiaro, ma come dicevo, se serve posso postare il file.
Grazie