Macro para dar formato a mensaje de corro enviado desde excel
publicado
Buenas Tardes,
Soy nuevo en el foro y tengo una duda ojala me puedan echar la mano a reslver este lio que se me ha presentado o saber si hay solución, Tengo una macro para envío de correos electrónicos , es muy sencilla y me funciona perfectamente, solo que el día de hoy me pidieron que el cuerpo del correo que se esta enviando tenga un formato en algunas palabras que toma de unas celdas, les envío el código y señalo que celdas son las que se necesitan cambiar a negritas en el cuerpo del correo, ojala me puedan ayudar.
Muchas gracias de ante mano.
Sub enviar()
Sheets("Envios_mail").Select
ufila = Range("a" & Rows.Count).End(xlUp).Row
For i = 1 To ufila
If Cells(i, 40) = "POR VENCER" Then
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
para = Cells(i, 20) & ";" & Cells(i, 21)
parte2.To = para 'Destinatarios
'parte2.CC = "" 'Con copia
parte2.Subject = "Vencimiento de permisos "
parte2.body = "Estimado " & Cells(i, 6) & _
" le fue otorgado un permiso para almacenar salir el dia " & Cells(i, 2) & _
'parte2.send 'desabilitado por formato
End If
Next
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas Tardes,
Soy nuevo en el foro y tengo una duda ojala me puedan echar la mano a reslver este lio que se me ha presentado o saber si hay solución, Tengo una macro para envío de correos electrónicos , es muy sencilla y me funciona perfectamente, solo que el día de hoy me pidieron que el cuerpo del correo que se esta enviando tenga un formato en algunas palabras que toma de unas celdas, les envío el código y señalo que celdas son las que se necesitan cambiar a negritas en el cuerpo del correo, ojala me puedan ayudar.
Muchas gracias de ante mano.
Sub enviar()
Sheets("Envios_mail").Select
ufila = Range("a" & Rows.Count).End(xlUp).Row
For i = 1 To ufila
If Cells(i, 40) = "POR VENCER" Then
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
para = Cells(i, 20) & ";" & Cells(i, 21)
parte2.To = para 'Destinatarios
'parte2.CC = "" 'Con copia
parte2.Subject = "Vencimiento de permisos "
parte2.body = "Estimado " & Cells(i, 6) & _
" le fue otorgado un permiso para almacenar salir el dia " & Cells(i, 2) & _
'parte2.send 'desabilitado por formato
End If
Next
End Sub