Automatisch tekst invoegen

[jurgenvo]

Hallo,

ik heb een macro geschreven om automatisch een email te verzenden op een aantal voorwaarden.
Macro is bestemd voor Excel 2007.
Ziehier:

Sub EmailMeldingen()
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String
Dim strsub As String, strbody As String
Dim lRij As Long
    lRij = 19
    While Range("O" & lRij).Value <> ""
           If Range("H" & lRij).Value = "Jurgen" And Range("M" & lRij).Value = "MELDING" Then
    
           Set OutApp = CreateObject("Outlook.Application")
           OutApp.Session.Logon
           Set OutMail = OutApp.CreateItem(0)

           strto = "jurgen.vanoostenbrugge@tieleman.nl"
           strcc = ""
           strbcc = ""
           strsub = Range("A" & lRij).Value
           strbody = "Collega," & vbNewLine & vbNewLine & _
             "Hierbij een herinnering dat de sluitingsdatum van bovenstaande klant binnen 2 weken verloopt." & vbNewLine & _
             "Graag z.s.m. de complete set aanleveren bij JaapZ." & vbNewLine & _
         "Mocht je dit zelf al hebben verzonden (wat uiteraard niet de bedoeling is) dan hoor ik dat graag." & vbNewLine & vbNewLine & _
         "M.vr.gr." & vbNewLine & vbNewLine & _
         "JaapZ"


           With OutMail
           .To = strto
           .CC = strcc
           .BCC = strbcc
           .Subject = strsub
           .Body = strbody
           .Send
           End With

           Set OutMail = Nothing
           Set OutApp = Nothing
       

           
                     
        
       
       
       End If
       lRij = lRij + 1
    Wend

End Sub

Nu wil ik graag aan het einde van de macro iets toevoegen waardoor er in cel "N" van dezelfde rij als waar de voorwaarden worden voldaan het woord "verzonden" ingevuld wordt.

Ik hoop dat iemand een oplossing heeft.

Groeten,

Jurgen

 

[leofact]

cells(iRij,14).value ="verzonden"

Deze zet je vlak voor de End If

mvg leo

 

[jurgenvo]

Super! dankje!