Questione : Excel VBA

Faccio il seguente usare codice per inviare con la posta elettronica automaticamente un libro di esercizi aggiornato ogni volta che è conservato ad una distribuzione nominata list.

It è possibile su salvo per schioccare in su una lista dei destinatari potenziali che possono essere fatti tic tac o selezionato in qualche modo per il
di distribution.

Private Workbook_BeforeSave (ByVal SaveAsUI booleano, annullamento quanto booleano) oscurare OutApp mentre Object
oscura OutMail mentre Object

0)
di OutApp.CreateItem = di OutMail di CreateObject = di OutApp (“Outlook.Application„) (sul riassunto Next
di errore con OutMail
. A = “[email protected]; john di/>.doe2@hotmail.com " .CC =
del "" .BCC =
del "". Oggetto = “
di notifica di relazione ". Il corpo = “il foglio allegato di condizione è stato "
. Attachments.Add ActiveWorkbook.FullName
. Estremità With
di Send
sull'errore 0
OutMail = Nothing
OutApp = Nothing
End Sub class= del

Risposta : Excel VBA

Ho rimosso i vostri oggetti della scatola di controllo.  Gli oggetti della scatola di controllo fanno questo più complicato di deve essere.

Che cosa ho fatto era genera un evento di Worksheet_SelectionChange che immette “una R„ se è vuota o l'input svuota la cellula se “la R„ è già là.

Allora ho cambiato la fonte delle cellule a Webdings 2 in modo che la R rivelasse come casella di controllo.   Piegar quando scattate la cellula che controllerà esso o il uncheck esso.   Ciò permette che me controlli se un email deve aggiungersi checkinging la colonna per un valore “della R„.  Sperare che questo abbia significato .....

Vedere allegato ......

Status-Report.xls (48 Kb) (tipo di lima particolari) 

Cellule di scatto per controllarle