Error código VB Envió de mails
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
1 respuesta
Respuesta de Dante Amor
2
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
