I am using the below code to email a worksheet from a macro using email addresses in cells chosen from a dropdrown list. The last cell reference is to allow the user to enter email address not available on the dropdown lists, an "ad hoc" address that the code then changes the cell entry back to "ENTER EMAIL ADDRESS".
I would like the macro to test the value of cell [f14] and if "ENTER EMAIL ADDRESS" ignore and do not add to the recipient list along with cell [I6]
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.to = [i6].Value & ";" & [F14].Value
.CC = [i10].Value
.BCC = ""
.Subject = "Incident Report"
.Body = "Incident Report Attached"
.Attachments.Add Destwb.FullName
'.Send
.DISPLAY
any assistance appreciated. Rgds....
Bookmarks