Macro excel con invio mail automatico

[walterix]

Buon giorno, sono nuovo di questo forum, e mi sembra che sia serio e competente, quindi sono ad esporvi un problema con una macro excel, che non riesco a "terminare".
vorrei che al verificarsi di una certa condizione, ad esempio che su una cella di una colonna B se il valore è superiore a 10, con un bottone, venga inviato via mail ad un indirizzo predefinito, il valore della colonna A.
Mi potete aiutare?
Grazie

[Anthony47]

Ciao walterix e benvenuto nel forum.
Prima di provare a cimentarmi vorrei sapere quale software usi per l' invio della posta, e se per "una cella di una colonna B" intendi un indirizzo specifico o una qualsiasi cella della colonna B e se con "il valore della colonna A" intendi il valore della cella in colonna A allineata alla cella controllata in colonna B o invece tutto il contenuto di col A, da A1 ad Ann (nn=ultima cella piena).

Ciao.

[walterix]

ciao Anthony47, grazie intanto.
l'ideia e questa, due colonne su excel. colonna A ci scrivo dentro un dato, associato ad una data della colonna B, dopo un controllo di scadenza, es se dentro la colonna B metto 15/05/2009 vorrei mettere una condizione che se la data scritta è minore di novanta gg da quella attuale, in automatico mi parta una mail (microsoft outlook), al cui interno del corpo, mi venga riportato quello che c'è scritto sulla colonna A....
grazie

[Anthony47]

Non hai aggiunto molto, cosi' ti propino quello che sono capace a fare...
Questa macro invia una mail a un destinatario da impostare, con corpo della mail l' elenco delle voci (col A) e relativa scadenza (col B); le voci marcate <<<< sono quelle da personalizzare. Mettila in un Modulo del vba e poi la associ a un pulsante.

Codice: Seleziona tutto

Sub SMAIL()
Dim OLook As Object 'Outlook.Application
Dim MItem As Object 'Outlook.MailItem
'Dim FSend As Boolean 'Flag "Send"
Dim Inter As String, CScad As Integer
Dim MAddr As String, MSubj As String

MSubj = "Warning su scadenza" '<<<< Subject della mail
MAddr = "aaaaaa@dominio.it"   '<<<< Destinatario
Inter = "B4:B50"    '<<<< Lista delle celle che saranno controllate per scadenza
'
For Each Scad In Range(Inter)
If Scad < (Int(Now) + 90) Then
CScad = CScad + 1
Mex = Mex & Scad.Row & "  /  " & Scad.Offset(0, 1).Value & _
     Format(Scad.Value, "yyyy-mmm-dd") & vbCrLf
End If
Next Scad
MsgBox ("Ci sono " & CScad & " scadenze inferiori a " & (Int(Now) + 90))
'
If CScad = 0 Then Exit Sub
'
Set OLook = CreateObject("Outlook.Application")
Set MItem = OLook.createitem(0)
MItem.to = MAddr
MItem.Subject = MSubj
MItem.body = "Scadenza voce: riga / voce / data " & vbCrLf & Mex
MItem.send
Application.Wait (Now + TimeValue("0:00:10"))
Set OLook = Nothing
Set MItem = Nothing
End Sub

Se ti servono istruzioni piu' dettagliate posta ancora; comunque fai sapere.
Ciao

[walterix]

grazie Anthony47, porvo adesso e ti faccio sapere

[simpatix]

Ciao Anthony,
in merito al tuo script per inviare mail dopo un controllo in un file excel,
come posso inserire oltre alla riga e alla data,anche il campo inerente all'attività da eseguire in merito alla scadenza?
Che corrisponde alla colonna successiva alla data che mi viene inviata via mail?

Ti ringrazio e grazie ancora per l'ottimo script!!
Simpatix

[Anthony47]

All' utente viene inviata una mail il cui testo e' calcolato nella variabile Mex con l' istruzione

Codice: Seleziona tutto

    Mex = Mex & Scad.Row & "  /  " & Scad.Offset(0, 1).Value & _
         Format(Scad.Value, "yyyy-mmm-dd") & vbCrLf

Se la data e' in col B, questa istruzione dovrebbe inserire la data e il contenuto della colonna C, che se non ho capito male e' quello che vuoi tu. Insomma dovrebbe essere ok cosi'.

O no?

Ciao

[simpatix]

Si così è corretto grazie.
Ma se avessi per caso l'attività in una colonna non successiva alla data?

Grazie
Simpatix

[Anthony47]

Se l' attivita' e' in una colonna "diversa" rispetto a quanto descritto allora dovrai usare una istruzione "diversa" da quella citata; per qualche altro dettaglio potrebbe aiutare sapere dove si trova effettivamente l' attivita' rispetto alla data...

Ciao

[simpatix]

Ok Anthony,
grazie per il supporto.

Diciamo che la data di scadenza è sulla colonna H4 mentre il dettaglio dell'attività è nella colonna D.
In questo momento ho risolto il problema nascondendo nella colonna successiva alla data l'attività descritta nella colonna D.

Ciao

[Anthony47]

Con la data in col H e la descrizione in col D modificherai l' offset come segue:

Codice: Seleziona tutto

    Mex = Mex & Scad.Row & "  /  " & Scad.Offset(0, -4).Value & _
         Format(Scad.Value, "yyyy-mmm-dd") & vbCrLf

Ciao

[simpatix]

Grazie Anthony.
Era proprio quello che cercavo.
Ancora grazie per il supporto e per l'ottimo forum!!!

[sinner69]

Ciao, sono nuovo del forum e anche io avrei un problemino con l'invio automatico di una email tramite excel.
Ho uilizzato il codice riportato negli altri messaggi della discussione inserendolo nel ThisWorkbook però ho un problema così facendo la macro scatta in automatico solo per il foglio che viene visualizzato all'apertura del file, come faccio a far controllare anche gli altri fogli?

esempio:
ipotizziamo che nel mio file excel ho tre fogli A, B, C e io il controllo della data e l'invio dell'email lo devo fare sia sul foglio B che sul foglio C all'apertura del file indipendentemente quale sia il foglio che che viene visualizzato all'epertura del file e la data da controllare nei due fogli sta in colenne diverse come faccio ? potresti aiutarmi a risolvere ??

[Anthony47]

Ciao sinner69, benvenuto nel forum.
La macro di cui si parla nella discussione non scatta automaticamente ma ha bisogno di essere lanciata.
Comunque se vuoi controllare le scadenze in piu' fogli, nell' ipotesi che l' area da controllare sia la stessa sui vari fogli, puoi modificare la prima parte della macro come segue:

Codice: Seleziona tutto

Sub SMAILZZ()
Dim OLook As Object 'Outlook.Application
Dim MItem As Object 'Outlook.MailItem
Dim FSend As Boolean 'Flag "Send"
Dim Inter As String, CScad As Integer
Dim MAddr As String, MSubj As String

MSubj = "Warning su scadenza" '<<<< Subject della mail
MAddr = "aaaaaa@dominio.it"   '<<<< Destinatario
Inter = "A1:A100"    '<<<< Lista delle celle che saranno controllate
ListaF = Array("A", "B", "C")   '<<< Elenco Fogli da controllare
For Each LF In ListaF
Sheets(LF).Select
For Each scad In Range(Inter)
    If scad <> "" Then
        If scad < (Int(Now) + 90) Then
            CScad = CScad + 1
            Mex = Mex & scad.Row & "  /  " & scad.Offset(0, 1).Value & _
                 Format(scad.Value, "yyyy-mmm-dd") & vbCrLf
        End If
    End If
Next scad
Next LF
'Da qui prosegue la precedente macro:
MsgBox ("Ci sono " & CScad & " scadenze inferiori a " & (Int(Now) + 90))
'


Ciao, fai sapere se e' idoneo al tuo caso.

[sinner69]

Ciao, Grazie domani provo e ti faccio sapere.

[sinner69]

Ciao Anthony47,
volevo chiederti una conferma: poichè ho la necessita che la lista delle celle da controllare
nei vari figli stanno in posizione diversa, potrei fare come segue ?


Inter = "A1:A100" '<<<< Lista delle celle che saranno controllate
ListaF = Array("A", "B", "C") '<<< Elenco Fogli da controllare
For Each LF In ListaF
if (Sheets(LF).Select = A)then
Inter = "A1:A100"
if (Sheets(LF).Select = B) then
Inter = "B1:B100"
if (Sheets(LF).Select = C) then
Inter = "C1:C100"

il resto uguale alla procedura..............
Grazie ciao

[Anthony47]

L' idea e' buona, la sintassi un po' meno...

Codice: Seleziona tutto

For Each LF In ListaF     '<<< Esistente
'AGGIUNTE
If LF = "A" Then
Inter = "A1:A100"
ElseIf LF = "B" Then
Inter = "B1:B100"
ElseIf LF = "C" Then
Inter = "C1:C100"
End If
'Fine Aggiunte
'Continua...


Ciao

[sinner69]

Grazie mille
ma non conoscendo il linguaggio mi viene difficile ad azzeccare la sintassi eheheh

[sinner69]

Ciao Anthony47,
ho provato ha inserire questo codice:

Codice: Seleziona tutto

Sub invia_email_Click()
Dim OLook As Object 'Outlook.Application
Dim MItem As Object 'Outlook.MailItem
'Dim FSend As Boolean 'Flag "Send"
Dim Inter As String, CScad As Integer
Dim MAddr As String, MSubj As String
Dim foglio As String
foglio = Cells(2, 16).Value
MSubj = "Warning scadenza" & " " & foglio '<<<< Subject della mail

MAddr = "nominativo@gmail.com"   '<<<< Destinatario
Inter = "G3:G100"    '<<<< Lista delle celle che saranno controllate per scadenza
'
ListaF = Array("Foglio7", "Foglio6")   '<<<ElencoFogli da controllare
For Each LF In ListaF
    Sheets(LF).Select
    If LF = "Foglio7" Then
        ListaC = Array("G3:G100", "K3:K100", "O3:O100") '<<< Elenco celle da controllare
        For Each LC In ListaC
            For Each scad In Range(Inter)
                If scad <> "" Then
                If scad <= (Int(Now) + 6) And scad >= Int(Now) Then
                    CScad = CScad + 1
                     Mex = Mex & scad.Row & "  /  " & scad.Offset(0, -3).Value & " " & " Data prima scad. : " & Format(scad.Value, "dd/mm/yyyy") & vbCrLf
                End If
                End If
            Next scad
        Next LC
    ElseIf LF = "Foglio6" Then
        Inter = "G3:G100"
        For Each scad In Range(Inter)
                If scad <> "" Then
                If scad <= (Int(Now) + 6) And scad >= Int(Now) Then
                    CScad = CScad + 1
                     Mex = Mex & scad.Row & "  /  " & scad.Offset(0, -3).Value & " " & " Data prima scad. : " & Format(scad.Value, "dd/mm/yyyy") & vbCrLf
                End If
                End If
        Next scad
    End If
Next LF
MsgBox ("Ci sono " & CScad & " righe alla prima scadenza inferiore al " & (Int(Now) + 6) & " del foglio: " & foglio)
'
If CScad > 0 Then
'
Set OLook = CreateObject("Outlook.Application")
Set MItem = OLook.createitem(0)
MItem.to = MAddr
MItem.Subject = MSubj
MItem.body = "Scadenza voce: riga / Cliente / data " & vbCrLf & Mex
MItem.send
Application.Wait (Now + TimeValue("0:00:10"))
Set OLook = Nothing
Set MItem = Nothing
End If

End Sub

Poiche ho due foglio da controllare foglio6 e foglio7 nel foglio7 le colonne da controllare per la scadenza sono tre "G3:G100", "K3:K100", "O3:O100" mentre nel foglio6 devo soltanto la colonna G3:G100 però come eseguo il codice mi da errore di roun time '9'
indice non incluso nell'intervallo non capisco dove sbaglio.. puoi darci un occhiata cortesemente.
Grazie

[sinner69]

ciao ho corretto
ListaF = Array("Foflio7", "Foglio6") '<<<ElencoFogli da controllare
For Each LF In ListaF

con

ListaF = Array("Per Cantiere", "Scadenze Preventivi") '<<<ElencoFogli da controllare
For Each LF In ListaF

e
For Each LC In ListaC
For Each scad In Range(Inter)

con
For Each LC In ListaC
For Each scad In Range(LC)

adesso non da l'errore, però la procedura non fa quello che dovrebbe fare nel senso eseguendola
uno il file si apre sempre visualizzando il foglio Scadenze Preventivi e non controlla anche le scadenze del foflio Per Cantieri e inoltre controlla solo le scadenze della colonna G3:G100 del foglio Scadenze Preventivi... non so come fare a correggerlo.. HELP ME....