Como puedo cambiar el asunto, tomando una celda que contenga el TEXTO

He desarrollado con vuestra ayuda, una macro en el cual estoy enviando mails masivos. Pero mi pregunta es si, ¿puedo cambiar el asunto de cada mail desde la columna C4 hacia abajo, cada vez que me coja el destinatario y el archivo adjunto?.

Según lo tengo siempre me coge la C4, y quería que me cogiese la C5, C6...

Copio la macro por si podéis ayudarme.

Gracias de antemano.

Sub proceso()
pase1 = MsgBox("Desea realizar el proceso??", vbYesNo, "¡¡¡ ATENCION !!!")
If pase1 = vbNo Then Exit Sub
ruta = Range("b2").Value
asunto = Range("c4").Value
Range("a4").Select
Do While ActiveCell.Value <> ""
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.to = ActiveCell.Value
parte2.Subject = asunto
parte2.body = " Estimados señores..."
parte2.attachments.Add ruta & ActiveCell.Offset & asunto(0, 1)
parte2.send
ActiveCell.Offset(1, 0).Select
Loop
Set parte1 = Nothing
Set parte2 = Nothing
End Sub

1

1 respuesta

Respuesta
1

No me queda claro tu asunto ¿quieres qué cada mensaje de correo enviado tenga un "asunto" diferente que corresponde cada vez a una celda diferente? ¿Quieres qué el "asunto" de ese mensaje sea la suma de varias celdas? ¿Quieres qué...?

Como bien dices, necesito qué cada mensaje de correo enviado tenga un "asunto" diferente que corresponde cada vez a una celda diferente.

Te agradezco de antemano tu gran ayuda Abraham.

Aja, ahora se entendió mejor. Solo unos detalles, tu código tiene algunas cosas que yo cambiaría como por ejemplo declarar variables o usar otro tipo de bucle, pero manteniendo lo tuyo te sería útil algo como:

1- Eliminar esto: asunto = Range("c4").Value

2- Cambiar

esto: parte2.Subject = asunto

por: parte2.Subject = ActiveCell.Offset(0,2)

Eso asumiendo que en la columna "C" está el asunto de cada correo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas