Split Up Recipients names to get first names - vba

Question

I am trying to break up the full name of two Recipients to get the first names.
Here is the code:
For r = 1 To .recipients.Count
Debug.Print .recipients(r)
strgreetname = Left(.recipients(r), InStr(1, .recipients(r), " ") - 1)
strTo = Left(strGreetNameAll, InStr(1, .recipients(r), " ") - 2)
strGreetNameAll = strGreetNameAll & strgreetname & ", "
strgreetnameall1 = strgreetname
Next r
For i = 1 To .recipients.Count
Debug.Print .recipients(i)
strgreetname = Left(.recipients(i), InStr(1, .recipients(i), " ") - 1)
strTo1 = Right(strTo, InStr(1, .recipients(i), " ") - 2)
strGreetNameAll = strGreetNameAll & strgreetname & ", "
strgreetnameall1 = strgreetname
Next i
I cannot get strTo and strTo1 to work separately based on the recipients count. It seems to only change if I change the first defined item, in this case r. Changing the i value does nothing. It seems that the first defined variable controls everything below it, even though I have it set separately. How do I break these up so that r controls one section, while i controls another, so they work autonomously?
Update--I got it to separate but the first alias (strTO) is cutting off in strange ways. I want to cut off at the first space in the alias, which I thought I did with the "left" piece. However, it is not consistent, cutting off long names, or pulling in parts of the next name if the first alias was a short name (like Tom).
For R = 1 To .recipients.Count
Debug.Print .recipients(R)
strgreetname = Left(.recipients(R), InStr(1, .recipients(R), " "))
strgreetname2 = Left(.recipients(2), InStr(1, .recipients(R), " "))
strGreetNameAll = strGreetNameAll & strgreetname
strGreetNameAll1 = strgreetname
strTo = Left(strGreetNameAll, InStr(1, .recipients(R), " "))
strTo1 = Left(strgreetname2, InStr(1, .recipients(R), " "))
Next R
StrTO and strTO1 are the first and second aliases in the To field, respectively.
For example:
Given .Recipients "William Hartnell", "Carole Ann Ford", "Patrick Troughton", "Anneke Wills", "Jon Pertwee", and "Tom Baker".
I want strTO to be William. I want strTO1 to be Carole. So it could be Dear William and Carole.

Answer 1

Based on your comment that you want strTO to be all characters up to the first space in .Recipients(1), and you want strTO1 to be all characters up to the first space in .Recipients(2), then you can use the following code:
strTO = Left(.Recipients(1), InStr(.Recipients(1) & " ", " ") - 1)
If .Recipients.Count > 1 Then
strTO1 = Left(.Recipients(2), InStr(.Recipients(2) & " ", " ") - 1)
Else
strTO1 = ""
End If
And, if you were using this to create a "greeting", you could just use something like:
strGreetName = Left(.Recipients(1), InStr(.Recipients(1) & " ", " ") - 1)
If .Recipients.Count > 1 Then
strGreetName = strGreetName & " and " & Left(.Recipients(2), InStr(.Recipients(2) & " ", " ") - 1)
End If
and not worry about having strTO and strTO1.
Or, if you wanted to include all the names, you could use something like
strGreetName = ""
For i = 1 to .Recipients.Count
If i > 1 Then
If i = .Recipients.Count Then
strGreetName = strGreetName & " and "
Else
strGreetName = strGreetName & ", "
End If
End If
strGreetName = strGreetName & Left(.Recipients(i), InStr(.Recipients(i) & " ", " ") - 1)
Next

Answer 2

you are doing this
for r = 1 to 10
a = r + 4
next r
for i = 1 to 10
b = a + 2
next r
when you want
for r = 1 to 10
a = r + 4
b = a + 2
next r