alexfwalker81
Member
- Local time
- Today, 15:15
- Joined
- Feb 26, 2016
- Messages
- 93
I'm using the function below to send email messages internally, and it works really well. However, I don't know the syntax to add into this which would operate like; IF Query12345 is empty THEN don't send the email ELSE send the email.
How would I amend this?
Public Function SendEmailAWALKE()
Dim mail As CDO.MESSAGE
Dim config As CDO.Configuration
Set mail = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")
config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort
config.Fields(cdoSMTPServer).Value = "10.0.0.XXX"
config.Fields(cdoSMTPServerPort).Value = 25
config.Fields.Update
Set mail.Configuration = config
With mail
.To = "aXXXXXXr@vXXXXXXd.com"
.From = "pipeline@vXXXXXXd.com"
.Subject = "AWALKE Your Callbacks for Today"
.TextBody = "Callback list attached."
.AddAttachment "\\XXXXX\databases\PipeLine\Emails\AWALKE.xlsx"
.Send
End With
Set config = Nothing
Set mail = Nothing
End Function
How would I amend this?
Public Function SendEmailAWALKE()
Dim mail As CDO.MESSAGE
Dim config As CDO.Configuration
Set mail = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")
config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort
config.Fields(cdoSMTPServer).Value = "10.0.0.XXX"
config.Fields(cdoSMTPServerPort).Value = 25
config.Fields.Update
Set mail.Configuration = config
With mail
.To = "aXXXXXXr@vXXXXXXd.com"
.From = "pipeline@vXXXXXXd.com"
.Subject = "AWALKE Your Callbacks for Today"
.TextBody = "Callback list attached."
.AddAttachment "\\XXXXX\databases\PipeLine\Emails\AWALKE.xlsx"
.Send
End With
Set config = Nothing
Set mail = Nothing
End Function