Gegevens opzoeken en verzenden

[jerkens]

Ik zit met het volgende probleem:

In een excel sheet wil ik gegevens oplaten zoeken en verzenden. Nu is het de bedoeling dat als in rij Z "ja" of "n.v.t." geselecteerd wordt de gegevens uit die regel verzonden worden. Ik heb onderstaande VBA in elkaar geknutseld.

Wellicht dat iemand van jullie hier raad mee weet?

Sub calculate()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

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

    strbody = "Geachte lezer" & vbNewLine & vbNewLine & _
              "Op navolgende adres wordt mogelijk een wijziging doorgevoerd" & vbNewLine & _
              "" & vbNewLine & _
              ActiveSheet.Range("B15").Text & vbNewLine & _
              "" & vbNewLine & _
            "De aanvraag voor het object is gedaan door:" & vbNewLine & _
              ActiveSheet.Range("C15").Text & vbCrLf & ActiveSheet.Range("D15").Text & vbCrLf & ActiveSheet.Range("E15").Text & vbNewLine & _
              "" & vbNewLine & _
              "Voor meer informatie kunt u contact opnemen met de receptie. Om u snel behulpzaam te zijn verzoeken wij u onderstaand zaaknummer door te geven" & vbNewLine & _
              ActiveSheet.Range("A15").Text & vbNewLine & _
              "" & vbNewLine & _
              "Hopende u hiermee van dienst te zijn geweest" & vbNewLine & _
              " " & vbNewLine & _
              "Met vriendelijk groet" & vbNewLine & _
              " " & vbNewLine & _
              "Medewerker X"
    On Error Resume Next
    With OutMail
        .To = "X@Hotmail.com"
        .CC = ""
        .BCC = ""
        .Subject = "Wijzigingen sportclubs"
        .Body = strbody
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
 
End Sub

Tevens heb ik het bestand bijgevoegd. Natuurlijk wel met fictieve gegevens

Bekijk bijlage Sportclubs.xls