La macro es la siguiente:

Sub Envio()

'

' Envio Macro

' Envio de hoja con datos variables

'

archivo = "C:\Consorcios\Aviso.xls"

Workbooks.Open archivo

For i = 5 To 7

Workbooks("HojaInformativacopia.xls").Activate

periodo = Cells(1, "L")

nombre = Cells(i, "E")

importe = Cells(i, "J")

deuda = Cells(i, "Q")

Total = Cells(i, "O")

direccion = Cells(i, "S")

Workbooks("Aviso.xls").Activate

Range("D9").Value = nombre

Range("I9").Value = importe

Range("I10").Value = deuda

Range("I11").Value = Total

Workbooks("HojaInformativacopia.xls").Activate

Workbooks("Aviso.xls").SendMail direccion

Next

Workbooks("Aviso.xls").Save

Workbooks("Aviso.xls").Close

'

End Sub

Basicamente lo que hace es copiar datos y dirección de mail a

otra hoja denominada Aviso, y luego enviarla a la dirección que

corresponda. Esta macro está recorriendo datos de la planilla

inicial para enviarlos a traves de la otra.

Aclaro que recién empiezo con este tema porque nunca

programé en Visual. De hecho no tengo claro que diferencia

hay entre la macro propiamente dicha y el lenguaje VBA.

He visto otro programa para hacer esto pero no hace

basicamente el trabajo que yo hago.

Aclaro que mi cuenta de mail es ciudad.com.ar y

el cliente de correo es Windows live mail.

Hola:

Creo que haces referencia al aviso de envió de mensaje que sale al usar "SendMail" y bueno, hasta donde yo recuerdo o bajas de manera manual el nivel de seguridad de tu servidor de correo (no recomendable) o:

- Usar CDO:

Sending mail from Excel with CDO

- Usar complementos tipo:

Security (Prevent displaying the dialog to Send or not Send)

Mail Add-ins for Excel

Saludos

Abraham

He leido y visto las opciones. Por ahora lo mas sencillo es deshabilitar la seguridad mientras

envio los mails, y luego volver a habilitarla.

La solución con CDO solo explica como enviar un mensaje en el cuerpo del mail, pero no

me resuelve lo que hace la macro. De todas formas tomo por ahora la primera opción.

Garcias por ayudarme.