Free for PREMIUM members
[Webinar] Streamline your web hosting managementRegister Today
The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim emailTo As String
If Target.Column = 11 Then
'Column K is 11th. A=1, J=10 etc
If UCase(Target.Value) = "0" Then
emailTo = Target.Offset(0, -3).Value 'address is 3 columns to left
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
.To = "email@example.com"
.CC = ""
.Subject = "Notification"
.Body = "Cell A1 Changed."
Set OutMail = Nothing
Set OutApp = Nothing
On Error GoTo 0
Open in new window
.To = emailTo '/// not "firstname.lastname@example.org"
.To = emailTo
Author Closing Comment
Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!