Conditional Function

[alexfwalker81]

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

 

[plog]

You would test Query12345 with a DCount (https://www.techonthenet.com/access/functions/domain/dcount.php). I would put that test around whatever code calls SendEmailAWALKE(), not in SendEmailAWALKE itself:

Public Function CallingFunction()
  ...
  If (Dcount(...)>0) Then SendEmailAWALKE()
 ...

End Function

 

[alexfwalker81]

You would test Query12345 with a DCount (https://www.techonthenet.com/access/functions/domain/dcount.php). I would put that test around whatever code calls SendEmailAWALKE(), not in SendEmailAWALKE itself:

Public Function CallingFunction()
  ...
  If (Dcount(...)>0) Then SendEmailAWALKE()
...

End Function

Nice one. I think I can slot that in somewhere!

 

[alexfwalker81]

You would test Query12345 with a DCount (https://www.techonthenet.com/access/functions/domain/dcount.php). I would put that test around whatever code calls SendEmailAWALKE(), not in SendEmailAWALKE itself:

Public Function CallingFunction()
  ...
  If (Dcount(...)>0) Then SendEmailAWALKE()
...

End Function

Yep, I give up... https://alexfwalker.tinytake.com/tt/NDYyMjI2Ml8xNDY0OTU4NA

Tried Googling the syntax, but I have hit the wall of talent.

 

[Gasman]

Put the >0 outside of the DCount() function.

FWIW you can just copy an paste a picture here now.

To save others having to use the link

 

[arnelgp]

Public Function SendEmailAWALKE()


    Dim mail As CDO.MESSAGE
    Dim config As CDO.Configuration

    If DCount("1", "Query12345") > 0 Then
    
        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 If
End Function

 

[alexfwalker81]

Public Function SendEmailAWALKE()


    Dim mail As CDO.MESSAGE
    Dim config As CDO.Configuration

    If DCount("1", "Query12345") > 0 Then
   
        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 If
End Function

So simple - thank you, this worked brilliantly. Also just tried wrapping the .AddAttachment in an If statement to see if I could conditionally turn the attachments on and off. Also worked!