Macro para enviar varios correos x Gmail

[jsanguino]

Buenos Días:


Tengo esta macro que copie para enviar una lista de correos (Ver archivo adjunto), pero tengo un problema que me envía "n" veces solamente el correo de la fila 2, no me envía los de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Cambia esta parte de la macro:

    'Correo del destinatario
    Email.To = Trim(ActiveCell.Value)
    'Dirección del remitente
    Email.From = Trim(ActiveCell.Offset(0, 1).Value)
   '...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[jsanguino]

Ok. Me funciono perfectamente.

Muchas Gracias :D :D :D