Cuestión : Excel VBA

Hago el código siguiente utilizar para enviar por correo electrónico automáticamente un libro de trabajo actualizado cada vez que se ahorra a una distribución nominada list.

It es posible en excepto surgir una lista de recipientes potenciales que puedan ser hechos tictac o seleccionado de alguna manera para el
de distribution.

Private Workbook_BeforeSave (ByVal SaveAsUI tan boleano, cancelación como boleana) amortiguar OutApp mientras que Object
amortigua OutMail mientras que Object
el
los 0)
de OutMail de OutApp = de CreateObject (“Outlook.Application”) = de OutApp.CreateItem (en el curriculum vitae Next
del error con OutMail
. A = “[email protected]; john de/>.doe2@hotmail.com " .CC =
del "" .BCC =
del "". Tema = “
de la notificación del informe ". El cuerpo = “la hoja atada del estado ha sido " el
. Attachments.Add ActiveWorkbook.FullName
. Extremo With
de Send
en el error 0
OutMail = Nothing
OutApp = Nothing
End Sub class= del

Respuesta : Excel VBA

Quité sus objetos del checkbox.  Los objetos del Checkbox hacen este más complicado que necesita ser.

Qué lo hice era crea un acontecimiento de Worksheet_SelectionChange que entra un “R” si es vacío o la entrada vacia la célula si “R” está ya allí.

Entonces cambié la fuente de las células a Webdings 2 de modo que el R aparezca como caja de cheque.   Arquear cuando usted chasca la célula que comprobará la o el uncheck él.   Esto permite que compruebe si un email necesita ser agregado checkinging la columna para un valor de “R”.  Esperar que esto tenga sentido .....

Ver atado ......

Status-Report.xls (48 KB) (tipo de archivo detalles) 

Células del tecleo para comprobarlos