Ripetizione ciclica Macro

Hai un problema con Excel?

Nuova discussione

Ripetizione ciclica Macro
di Muten (utente non iscritto) data: 20/06/2014 10:52:02
Salve a tutti, ho ancora un problema che la mia ignoranza sulle macro non mi perfette di risolvere. Sono partito da una macro che ho trovato in questo forum e l'ho inserita in un pulsante. Quando clicchi il pulsante parte l'email con Oggetto la cella D2 e testo la cella J2.

Fin qui tutto bene.

Andando avanti con lo sviluppo nel foglio mi sono accorto di un problema grave. Il testo e il corpo dell'email rimane sempre lo stesso!

Quindi mi occorrete voi. Il foglio è strutturato così:

Cella A2 Viene inserito il tipo di prodotto da un elenco a tendina => OK, fatto
Cella B2 Viene inserito il tipo di test da effettuare => OK, fatto
Cella C2 Nome del prodotto da inserire a mano
Cella D2 Lotto del prodotto da inserire a mano
Cella E2 Codice Interno del prodotto da inserire a mano
Cella F2 Inserire Si quando è stato fatto il primo test, da fare a mano
Cella G2 Inserire Si quando è stato fatto il secondo test, da fare a mano
Cella H2 Inserire Si quando è stato fatto il terzo test, da fare a mano
Cella I2 Inserire Si quando è stato fatto il quarto test, da fare a mano

Ora il problema. Quando tutte e quattro le caselle (F2:I2) hanno la scritta SI dove partire una mail con oggetto la cella D2 e testo della mail la cella J2 (in cui ci sarà scritta una cosa del tipo i test sono stati fatti).

e questo deve avvenire per tutte le righe. Cioè una volta che nella riga 3 si ripetono le condizioni opportune parte la mail. Il tutto con Outlook.

Spero che mi possiate aiutare, sono davvero una capra

Sub Invioemail()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String


  
EmailAddr = "XXXXXXXX"  '<<< inserire lo/gli indirizzi
Subj = Range("D2").Value

BodyText = Range("J2").Value

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.to = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Body = BodyText
'.Attachments.Add ActiveWorkbook.FullName
.Display 'or use .send
End With

Set OutMail = Nothing
Set OutApp = Nothing


End Sub

Vuoi Approfondire?