Exceltips.nl

Sub MailVersturen_Weken_geen_uren_geboekt()

    Dim Index As Integer
    Dim mailAdres As String
    Dim mailAdressen As String
    Dim Naam As String
    Dim Week As String
    Dim Gebruiker As String
    Index = 12
       
    Worksheets("Gebruiker").Activate
    Gebruiker = ActiveSheet.Range("B2").Value
    Worksheets("Weken geen uren geboekt").Activate
    
    Do
        mailAdres = ActiveSheet.Range("G" & Index).Value
        Naam = ActiveSheet.Range("B" & Index).Value
        Week = ActiveSheet.Range("F" & Index).Value
               
        If InStr(1, mailAdres, "@") > 0 Then
           'mailAdres = "sami.ferjani@raet.com"
           
           Set OutApp = CreateObject("Outlook.Application")
           Call OutApp.Session.Logon
           Set mailBericht = OutApp.CreateItem(0)
        
            With mailBericht
              .BodyFormat = MailFormat.mfPlainText
              .To = mailAdres
              .CC = ""
              .BCC = ""
              .Subject = "In de week/weken " & Week & " zijn nog geen uren geboekt"
              .Body = "Beste collega," & Chr(10) & Chr(13) & "Voor de week/weken " & Week & " heb je nog geen uren geboekt. Wil je zorgen dat deze z.s.m. volledig zijn geboekt." & Chr(10) & Chr(13) & " De rapportage is maandag na 12en gedraaid, eventuele uren die daarna geschreven zijn zitten hier niet bij in." & Chr(10) & Chr(13) & "Reacties op deze mail zullen niet worden beantwoord." & Chr(10) & Chr(13) & "Bij opmerkingen en/of vragen graag contact opnemen met je manager." & Chr(10) & Chr(13) & "" & Chr(10) & Chr(13) & "Met vriendelijke groet," & Chr(10) & Chr(13) & "Planning & Control"
              

            '"Beste collega, Graag ervoor zorgen dat de uren voor week " & ActiveSheet.Range("B7").Value & " uiterlijk morgen weer bijgeboekt zijn(ivm maandafsluiting)"
            End With
        
            Call mailBericht.Send
    
            
        End If
        
        Index = Index + 1
    Loop Until Trim(Naam) = ""
    
    Call MsgBox("signalen zijn verzonden")
    
End Sub