regel toevoegen?

[noisiv]

Hi beste forum leden. Onderstaande code heb ik gevonden om met Excel mail te verzenden.
Is het mogelijk om een code regel er bij te zetten die een aanhef regel maakt van kolom A waar de naam van contact persoon in staat?

De onderstaande code werkt heel goed.
Is er iemand ie dit al eens is tegen gekomen?

vriendelijke groet en alvast bedankt voor de reactie.
noisiv
------------------------------------------------

Sub Mail_ActiveSheet()
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
        For Each cell In ThisWorkbook.Sheets("Kies").Range("B1:B50")
            If cell.Value Like "?*@?*.?*" And LCase(cell.Offset(0, 1).Value) = "ja" Then
                If strto = "" Then strto = stro & ";"
                strto = strto & cell.Value & ";"
            End If
        Next cell
        .To = ""
        .CC = ""
        .BCC = strto
        .Subject = Sheets("brief").[B1]
        For Each cell In ThisWorkbook.Sheets("brief").Range("B2:B50")
            strbody = strbody & cell.Value & vbNewLine
        Next
        .body = strbody
        .Display    'send
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[HSV]

Plaats eens het bestand.

Je schrijft over kolom A.
Zijn het meerdere contactpersonen die niet voor een ieder bestemd zijn?, dan zal dat niet gaan opdat je Bcc gebruikt, en dan alle contactpersonen in de mail verschijnen.

Je zal dan voor ieder mailadres een losse mail moeten versturen.

 

[noisiv]

bedank voor de reactie. voorlopig weet ik weer genoeg. ik zal de BCC aanpassen naar TO