Insertar imágenes a un mail con macro desde excel
Tengo una planilla de Excel que funciona como un sistema de reservas, la cual tiene su macro para enviar por mail a los huéspedes la confirmación de la misma. Mi pregunta es como puedo configurar la macro que ya tengo para que al ejecutarla envíe unas fotos según el tipo de cabaña que han reservado (son 6 tipologías). Entiendo que debería codificar las fotos para que coincida con la tipología reservada. Copio macro. Muchas gracias!
Sub enviar_correo()
Dim Email As CDO.Message
Set Email = New CDO.Message
correo =
passwd =
Destino = Replace(Range("F13").Value, "?", "")
asunto = Sheets("datos").Range("F3").Value
firma = Sheets("datos").Range("F12").Value
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
With Email
.To = Destino
.From = correo
.Subject = asunto
.HTMLBody = "<html><body>" & _
"<p><span style=""font-family: Calibri, sans-serif;""></span>Estimado/a " & Sheets("datos").Range("B12").Value & "</p>" & _
"<p>Gracias por elegir para su estadía Yerba Buena " & Sheets("datos").Range("B13").Value & "</p>" & _
"<p>Nº de reserva: " & Sheets("datos").Range("B14").Value & "</p>" & _
"<p><strong>Predio:</strong> " & Sheets("datos").Range("B15").Value & "</p>" & _
"<p><strong>Categoria habitación:</strong> " & Sheets("datos").Range("B19").Value & "</p>" & _
"<p><strong>Check in:</strong> " & Sheets("datos").Range("B16").Value & "</p>" & _
"<p><strong>Check out:</strong> " & Sheets("datos").Range("B17").Value & "</p>" & _
"<p><strong>Cantidad de noches:</strong> " & Sheets("datos").Range("B18").Value & "</p>" & _
"<p><strong>Cantidad de húespedes:</strong> " & Sheets("datos").Range("B20").Value & "</p>" & _
"<p><strong>Tarifa por noche:</strong> $ " & Sheets("datos").Range("B21").Value & "</p>" & _
"<p><strong>Precio total:</strong> $ " & Sheets("datos").Range("B22").Value & "</p>" & _
"<p>Para confirmarla deberá abonar por adelantado el 40% del total de la estadía. Precio de contado. El saldo se abona de contado efectivo al ingresar a las instalaciones." & "</p>" & _
"<p><strong>Seña:</strong> $ " & Sheets("datos").Range("B23").Value & "</p>" & _
"<p><strong>Saldo:</strong> $ " & Sheets("datos").Range("B24").Value & "</p>" & _
"<p>Le envío los datos bancarios: " & "</p>" & _
"<p>Banco: " & Sheets("datos").Range("B28").Value & "</p>" & _
"<p>Cuenta corriente: " & Sheets("datos").Range("B29").Value & "</p>" & _
"<p>Titular: " & Sheets("datos").Range("B30").Value & "</p>" & _
"<p>CUIT: " & Sheets("datos").Range("B31").Value & "</p>" & _
"<p>CBU: " & Sheets("datos").Range("B32").Value & "</p>" & _
"<p>Por favor le solicito envíe comprobante de depósito/transferencia por correo (le rogamos respetar los montos indicados). En caso de cancelar esta reserva en un plazo inferior a los 5 días de la fecha de ingreso se perderá el 50% valor de la seña. Mientras que de producirse dentro de las 48 hs., se perderá el 100%. " & "</p>" & _
"<p><em>Se incluye ropa de cama y toallas para uso dentro de la cabaña (no para la pileta). No ofrecemos servicio de desayuno. Se aceptan mascotas bajo cuidado y responsabilidad de sus dueños. Por favor enviar un número de teléfono de contacto (celular) para anexarlo a su reserva y poder coordinar su arribo." & "</p>" & _
"<p>Ante cualquier duda o consulta, quedamos a su disposición y aguardamos su llegada.Gracias por elegirnos.</p>" & _
"<p><span style=""font-family: Calibri, sans-serif;"">" & firma
.Configuration.Fields.Update
On Error Resume Next ' Adicionamos esta linea para que no se detenga el código en caso de error
.Send
End With
End With
End Sub
