# Error código VB Envió de mails

[Inicio](https://www.todoexpertos.com/) › [Visual Basic](https://www.todoexpertos.com/temas/visual-basic)

- Fecha de publicación: 2016-07-18
- Enlace canónico (HTML): https://www.todoexpertos.com/preguntas/753nm8mauue96ikh/error-codigo-vb-envio-de-mails

## Pregunta

*Por Jovani Pérez Castro* · 2016-07-18

Amigo necesito nuevamente de tu super ayuda.Anteriormente me compartiste un código para enviar mails y funciona a la perfección, el tema es que cuando actualice la versión de mi Office ya no corrió y me marca error, me podrías ayudar por favor.Adjunto el código que me compartiste:Sub Mails()
    Dim J As Integer
    J = 2
    While Range("B" & J) <> ""
    Set Dam1 = CreateObject("outlook.application")
    Set Dam2 = Dam1.createitem(olmailitem)
    Dam2.To = Range("B" & J) 'Destinatarios
    Dam2.CC = Range("C" & J) 'Con copia
    Dam2.Bcc = Range("D" & J) 'Con copia oculta
    Dam2.Subject = Range("E" & J) '"Asunto"
    Dam2.body = Range("F" & J) '"Cuerpo del mensaje"
    archivo = Range("H" & J)
    If archivo <> "" Then Dam2.Attachments.Add archivo
    Dam2.send 'El correo se envía en automático
    J = J + 1
    Wend
    MsgBox ("Mail enviado con exito")
End Sub

## Respuestas (1)

### 1. Respuesta aceptada de Dante Amor
*Fecha: 2016-07-18 · Votos: 2 (+2/-0)*

H o l a : Al parecer la nueva versión no tiene por defecto la propiedad value, por eso hay que indicarle la propiedad de la celda. Prueba con la siguiente actualización:Sub Mails()
    Dim J As Integer
    J = 2
    While Range("B" & J).Value <> ""
        Set Dam1 = CreateObject("outlook.application")
        Set Dam2 = Dam1.createitem(olmailitem)
        Dam2.To = Range("B" & J).Value 'Destinatarios
        Dam2.CC = Range("C" & J).Value 'Con copia
        Dam2.Bcc = Range("D" & J).Value 'Con copia oculta
        Dam2.Subject = Range("E" & J).Value '"Asunto"
        Dam2.body = Range("F" & J).Value '"Cuerpo del mensaje"
        archivo = Range("H" & J).Value
        If archivo <> "" Then Dam2.Attachments.Add archivo
        Dam2.send 'El correo se envía en automático
        J = J + 1
    Wend
    MsgBox ("Mail enviado con exito")
End Subsal u dos

---
*Fuente: [https://www.todoexpertos.com/preguntas/753nm8mauue96ikh/error-codigo-vb-envio-de-mails](https://www.todoexpertos.com/preguntas/753nm8mauue96ikh/error-codigo-vb-envio-de-mails) — consultado el 2026-10-22. Al citar, enlaza la URL canónica e indica la fecha de consulta.*