Frage : Excel VBA

Ich lasse den folgenden Code verwenden, um ein modernisiertes Arbeitsbuch automatisch zu mailen, jedes Mal wenn es zu einer ernannten Verteilung list.

It ist möglich auf außer, eine Liste der möglichen Empfänger oben zu knallen gespeichert wird, die getickt werden können, oder irgendwie vorgewählt worden für kontrolliertes distribution.

Private VorWorkbook_BeforeSave (ByVal SaveAsUI so Boolesch, Löschen wie Boolesch)
OutApp verdunkeln, während Object
OutMail während Object
gesetztes OutApp = CreateObject („Outlook.Application“)
gesetztes OutMail = OutApp.CreateItem (0)
auf Störungs-Zusammenfassung Next
mit OutMail
verdunkeln. Zu = „[email protected]; john.doe2@hotmail.com "
.CC = ""
.BCC = ""
. Thema = „Bericht- über den derzeitigen Standmitteilung "
. Körper = „das angebrachte Statusblatt ist aktualisiertes "
gewesen. Attachments.Add ActiveWorkbook.FullName
. Send
Ende With
auf Störung Goto- 0
gesetztes OutMail = Nothing
gesetztes OutApp = Nothing
End Sub

Antwort : Excel VBA

Ich entfernte Ihre Checkboxgegenstände.  Die Checkboxgegenstände bilden dieses schwierigere, als es sein muss.

Was ich tat, war verursachen ein Worksheet_SelectionChange Ereignis, das ein „R“ eingibt, wenn es leer ist, oder Eingang die Zelle leert, wenn „R“ bereits dort ist.

Ich änderte dann den Guss der Zellen zu Webdings 2, damit das R als Überprüfungskasten zeigt.   Beugen, wenn Sie die Zelle anklicken, die es entweder sie oder uncheck es überprüft.   Dieses erlaubt mir, zu überprüfen, ob eine eMail hinzugefügt werden muss, indem sie die Spalte für einen Wert von „R“ checkinging.  Hoffen, dass dieses ist sinnvoll .....

Sehen angebracht ......

Status-Report.xls (48 KBs) (Akten-Art Details) 

Klicken-Zellen, zum sie zu überprüfen