tipos - variable texto vba excel

Insertar variable de cadena en el cuerpo del texto

Question

Me gustaría que aparezcan dos variables de cadena en el cuerpo del texto de un correo electrónico. Sé que podemos definir un cuerpo de texto y luego tener ese cuerpo insertado como un todo. Quiero llevarlo más lejos y tener dos elementos insertados en el texto, y no aparecer como VBA, sino como nombres reales.

Las dos variables de cadena son los primeros nombres de los dos primeros destinatarios de un correo electrónico, en este caso nombrados en el VBA como strTO y strTO1. La macro actual crea una respuesta y la inserta en el saludo. También me gustaría que aparezcan en el cuerpo del texto.

Ejemplo: los nombres de los destinatarios son Tom Jones y Severus Snape, strTO y strTO1, respectivamente. Los inserto como se muestra aquí en el texto:

strbody = "<H2><Font Face=calibri>Good Day, </H2>" & strTO & _
"Please review your data below (link) and approve.<br>" & _
"Pleaes contact strTO1 if you have problems.<br>" & _
"<A HREF=""http://www.google.com.htm"">Click Here</A>" & _
"<br><br><B>Thank you</B>"

Lo que quiero que lea como cuando ejecuto la macro (en negrita solo para esta publicación):
Buen día, Tom .
Revise sus datos a continuación (hipervínculo) y apruebe.
Por favor, póngase en contacto con Severus si tiene problemas.
(hipervínculo que dice "Haga clic aquí")
Gracias

Qué está sucediendo ahora (En blanco significa solo un espacio en blanco):
Good Day BLANK ,
Revise sus datos a continuación (hipervínculo que dice "Haga clic aquí") y apruebe.
Póngase en contacto con strTO1 si tiene problemas.
Gracias

Esperaba poder usar etiquetas de algún tipo para insertar el strTO y el strTO1.

A continuación se muestra la macro completa con el código anterior enrollado:

Sub AutoReply()
Dim oMail As MailItem
Dim oReply As MailItem
Dim GreetTime As String
Dim strbody As String
Dim SigString As String
Dim signature As String
Dim strGreetNameAll As String
Dim lastname As String
Dim strgreetname As String
Dim R As Long
Dim text
Dim strTo As String
Dim strTo1 As String
Select Case Application.ActiveWindow.Class
Case olInspector
Set oMail = ActiveInspector.CurrentItem
Case olExplorer
Set oMail = ActiveExplorer.Selection.Item(1)
End Select
strbody = "<H2><Font Face=calibri>Good Day, </H2>" & <strTo> & _
"Please review your data below and approve.<br>" & _
"Please contact strTO1 if you have problems.<br>" &
"<A HREF=""http://www.google.com.htm"">Click Here</A>" & _
"<br><br><B>Thank you</B>"
SigString = Environ("appdata") & _
"/Microsoft/Signatures/90 Days.htm"
If Dir(SigString) <> "" Then
strGreetName1 = Left$(oMail.SenderName, InStr(1, oMail.SenderName, " ") - 1)
lastname = Right(oMail.SenderName, Len(oMail.SenderName) - InStr(1, oMail.SenderName, " "))
If Dir(SigString) <> "" Then
signature = GetBoiler(SigString)
Else
signature = ""
End If
Set oReply = oMail.ReplyAll
Select Case Application.ActiveWindow.Class
Case olInspector
Set oMail = ActiveInspector.CurrentItem
Case olExplorer
Set oMail = ActiveExplorer.Selection.Item(1)
End Select
With oReply
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(.recipients(R), " "))
strTo1 = Left(strGreetName2, InStr(1, .recipients(R), " "))
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
Next R
Debug.Print strGreetNameAll
strGreetNameAll = Left(strGreetNameAll, Len(strGreetNameAll) - 1)
Debug.Print strGreetNameAll
.HTMLBody = "<Font Face=calibri>Dear " & strTo & " and " & strTo1 & ", " & strbody & "<br>" & signature
.Display
End With
End If
End Sub

Answer 1

Ya casi has llegado. Lo siguiente funcionará:

 strbody = "<H2><Font Face=calibri>Good Day, </H2>" & strTo & _
"Please review your data below and approve.<br>" & _
"Please contact " & strTO1 & " if you have problems.<br>" &
"<A HREF=""http://www.google.com.htm"">Click Here</A>" & _
"<br><br><B>Thank you</B>"

strTo1 asegurarse de que strTo y strTo1 estén definidos y configurados antes de pasarlos a strBody

Entonces, coloque strBody después del strBody For r = 1 to ...