Macro excel per invio email automatico

Se Windows genera un errore, hai un problema di virus o vuoi discutere/segnalare l'uscita della nuova versione di un software per la piattaforma Microsoft, questa è la sezione giusta.
Regole del forum
Rispondi
Avatar utente
Raging bull
Livello: Scheda perforata (1/15)
Livello: Scheda perforata (1/15)
Messaggi: 3
Iscritto il: mar lug 23, 2013 8:17 am

Macro excel per invio email automatico

Messaggio da Raging bull »

Ciao a tutti!
Ho seguito il consiglio di un altro utente e mi sono iscritto...
Riporto, pari pari, il mio post (come topgun9) che avevo aperto su altro forum dove non avevo ricevuto grandi aiuti...spero di aver maggior sostegno!

ho la necessità di creare una macro per automatizzare l'invio delle email al verificarsi di una determinata condizione.
Devo lavorare su un file excel così strutturato:
Colonna F: contiene la data di validità di un documento
Colonna G: status della validità (contiene una condizione che restituisce "SCADUTO" O "VALIDO" a seconda della data)
Colonna H: contiene indirizzo email

Se sulle righe della colonna G compare la stringa "SCADUTO" la macro deve inviare una email all'indirizzo corrispondente in H
Ho creato questa macro di partenza:
Sub email()
Dim myOutlook As Object
Dim myMailItem As Object
variabileEmailDelDestinatario = [H2]
Dim TestoEmail As String
TestoEmail = [M1]
If [G2] <> "SCADUTO" Then Exit Sub
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
'fName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
With otlNewMail
.to = variabileEmailDelDestinatario
.Subject = "Attenzione: DURC scaduto"
.body = TestoEmail
.Display
.send
End With
End Sub

La macro funziona perfettamente (già testata)...ma ovviamente solo per la prima riga!
Non so come chiedere alla macro di analizzare tutta la colonna G e, laddove trovi "scaduto", inviare la email all'indirizzo corrispondente.

Ho fatto diversi tentativi, ho letto altri topic sparsi sul web ma, non conoscendo a fondo VBA, a parte un mal di testa lancinante non ho risolto il problema.

Grazie per l'aiuto!

System
System
Bot ufficiale TurboLab.it
Bot
Messaggi:
Iscritto il: sab dic 31, 2016 6:19 pm
Contatta: Contatta

Re: Macro excel per invio email automatico

Messaggio da System » mar lug 23, 2013 8:28 am


Avatar utente
Al3x
Amministratore
Amministratore
Messaggi: 3987
Iscritto il: mer mag 01, 2013 12:59 pm
Località: http://127.0.0.1

Re: Macro excel per invio email automatico

Messaggio da Al3x »

non sono la persona più indicata perché ho nozioni veramente basic sulla faccenda, ma vedo che il codice fa riferimento a posizioni assolute (H2, G2 ecc.) mentre forse l'approccio dovrebbe essere diverso.

Spero proprio che qualcuno possa rispondere meglio di quanto abbia fatto io

vedi se questo può esserti utile
http://en.allexperts.com/q/Excel-1059/2 ... rocess.htm
I :amore Sasha

System
System
Bot ufficiale TurboLab.it
Bot
Messaggi:
Iscritto il: sab dic 31, 2016 6:19 pm
Contatta: Contatta

Re: Re: Macro excel per invio email automatico

Messaggio da System » mar lug 23, 2013 11:42 am


Rispondi
  • Argomenti simili
    Risposte
    Visite
    Ultimo messaggio