Macro para enviar correos y alterar el formato del cuerpo del correo

Reviso tu correo y te aviso

Así quedaría la macro

Sub env()
'Modificado.Por.DAM
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 para almacenamiento" '"Asunto"
        '"Cuerpo del mensaje"
        parte2.body = "Estimado " & Cells(i, 6) & _
            " Le fue otorgado un permiso para almacenar informacion en dispositivos externos el dia " & Cells(i, 2) & _
        " Y esta por expirar le pedimos volver a enviar su solicitud ya que dicho permiso expira el dia " & Cells(i, 36) & _
        ". Favor indicar si esta va a ser renovada."
        'parte2. Attachments.Add Ruta & Archivo
        Parte2. Display 'El correo se muestra
        Application. Wait Now + TimeValue("00:00:01")
        DoEvents
        celdas = Array(6, 2, 36)
        For j = LBound(celdas) To UBound(celdas)
            Cells(i, celdas(j)).Copy
            negritas
        Next
        parte2.send 'El correo se envía en automático
    End If
Next
End Sub
Sub negritas()
'Por.DAM
    SendKeys "^{HOME}", True
    DoEvents
    SendKeys "%ffbu", True
    DoEvents
    SendKeys "^v", True
    DoEvents
    'Application.Wait Now + TimeValue("00:00:01")
    SendKeys "{ENTER}", True
    DoEvents
    SendKeys "{ESC}", True
    DoEvents
    SendKeys "%f1", True
End Sub

Saludos.DAM
No olvides finalizar la pregunta.

Hola Dam , no me marca error corre perfecto pero no pone en negritas las letras . selecciona el N de formato ern outlook , pero no respeta las condiciones.

saludos

Cambia esta macro

Sub negritas()
'Por.DAM
SendKeys "^{HOME}", True
DoEvents
SendKeys "%ffbu", True
DoEvents
SendKeys "^v", True

DoEvents
SendKeys "{ENTER}", True
DoEvents
SendKeys "{ESC}", True
DoEvents
Application.Wait Now + TimeValue("00:00:01")

SendKeys "%f1", True

DoEvents
End Sub

Prueba y me comentas

(Qué versión de excel tienes)

Saludos. DAM

2010 al igual que Outlook

sigue sin ponerme en negritas.

saludos

Mmmm, en 2007 funciona bien, haz lo siguiente, para saber como funciona 2010, porque yo no tengo.

1. Entra a tu outlook

2. Selecciona Nuevo correo

3. Escribe una frase en el cuerpo del correo

4. Ahora selecciona una palabra de esa frase

5. Presiona Alt (para ir al menú, te van a aparecer unas letras chiquitas en cada menú)

6. Dime con qué letra vas a la ficha "formato"

7. Si es la "F" presiona la F

8. Ahora dime con qué letras están los binoculares (están hasta la derecha )

9. Presiona esas teclas

10. Ahora dime con cuál letra está la opción Buscar

Vas a hacer lo mismo del paso 1 al 7,

8. La letra N de Negritas con qué número o con qué letra aparece.

Nota: Te envié un ejemplo de lo que quiero que me digas.

Saludos. DAM

para los binoculares es z5 y para las negitras es 1

Para buscar en la imagen se ve FY, puedes verificarlo, además necesito otros datos que te pedí por correo.

Ya te envíe el punto 1 también.

saludos

Cambia la macro negritas por esta

Sub negritas()
'Por.DAM
    SendKeys "^{HOME}", True
    DoEvents
    'Para buscar 2007
    'SendKeys "%ffbu", True
    'Para buscar 2010
    SendKeys "%ofyb", True
    DoEvents
    SendKeys "^v", True
    DoEvents
    'Application.Wait Now + TimeValue("00:00:01")
    SendKeys "{ENTER}", True
    DoEvents
    SendKeys "{ESC}", True
    DoEvents
    'Para negritas 2007
    'SendKeys "%f1", True
    'Para negritas 2010
    SendKeys "%o1", True
    DoEvents
End Sub

Prueba y me dices.

Saludos. DAM
Si es lo que necesitas.

Hola Dam , lo probé , no pone nada en negritas y me pone fb junto de la celda 6.

Saludos

Necesito que lo hagas manualmente para ver el comportamiento en excel 2010.

Intenta hacerlo en un archivo de excel con datos, copia un "dato", ya entendiste cómo buscar con las letritas, así hazlo, cuando te aparezca la ventanita de buscar pega el "dato", presiona enter, el dato buscado se debe sombrear. Ahora presiona Escape para salir de la ventanita de buscar, nuevamente con las letritas cambia a negritas el "dato" seleccionado.

Describe todo lo que hiciste, letrita por letrita.

pegue un dato en outlook ,puse alt - f - fy pegue el dato en buscar , se sombreo esc,otra vez alt f 1 y se puso en negritas.

En excel debe sr con O - FY- B

Saludos