Checkbox to send email with template

**tomskelly89** · 03-22-2016, 10:21 AM

Hi,

I'm looking for some help writing a macro, I currently have a button that loads up an outlook template ready for me to send as an email. Instead I am looking to click a checkbox to note an email has been sent to that candidate and create the email - I know how to assign this for one checkbox but is there a way that I can add this to all checkboxes in a column with one macro?

Thanks in advance.

Tom

here is my code:

Sub CheckBox42_Click()
Dim oApp As Object, oMail As Object

Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.CreateItemFromTemplate("Z:\GRO\HR\Recruitment\Interview Confirmation.oft")

With oMail
.Display
End With

End Sub

**Tinbendr** · 03-25-2016, 09:02 AM

I assume you have Form control checkboxes on the sheet.

Please Login or Register  to view this content.

The only problem with this is that the macro will not pause at each email, let you fill out the form, and then proceed with next one. If you have 50 checked, it will attempt to create all 50 at once and likely hang Excel.

If you plan to pull data from the sheet and Send instead of Diaplay, then you should be fine.