Textbox en el cuerpo de correo

Buenos días:

Tengo el siguiente código:

'Se crea correo
Set dam = CreateObject("outlook.application").createitem(0)
dam.to = "[email protected]" 'Destinatarios
dam.Subject = "Actualización de códigos SAP" '"Asunto"
dam.cc = "" 'Copia
dam.Body = " &Textbox1&" 'se envía lo que tiene el textbox1
dam.BodyFormat = 2 'olFormatHTML
'cuerpo del mensaje
link = "<A HREF='file:H:\ServCliente\Act. Códigos SAP " & rutafichero & " '>Actualización</A>"
dam.HTMLBody = "<HTML> " & _
"<BODY>" & "Buenas tardes:" & _
"<BODY>" & "Se realizó una modifición en el código: " & TextBox1 & _
"<BODY>" & "favor de dar click en el siguiente enlace:" & _
"<P>" & texto_mail & "</P> " & _
link & _
"<P>" & "Saludos" & _
"<P>" & "Frencisco Martinez" & _
"</BODY> " & _
"</HTML>"

El cual envía un correo electrónico informando que se ha realizado una modificación al código XXXXXXX, para el caso de ser una sola modificación esta bien asi.

Pero algunas veces se tendrá que modificar varios códigos, como hacerle para que todos los códigos que se modificaron se envíen en el cuerpo del correo y asi evitar mandar muchos correos.

Saludos.

0

Añade tu respuesta

Haz clic para o