Event Procedure for email

[Naja]

Hello!

I have the below question. Thanks in advance.

[Micron]

The certificate url is part of the data set (recordsource) of your form? Then concatenate that field also.
So little info...

I would think you'd want that in the body, not subject line. Email app might not like that.
If you expect the url to be clickable, you should specify the output format unless you know for a fact that the default would be html, which I would not expect.

[pbaldy]

Presuming it's on the form somewhere, this type of thing:

"Your certificate..." & Me.TextboxName & " more text here if desired"

[Naja]

Yes is part of the database.

[Naja]

Presuming it's on the form somewhere, this type of thing:

"Your certificate..." & Me.TextboxName & " more text here if desired"

Thank you for your input. I was able to put it on the email body text. This is how I did it.

Private Sub Command33_Click()
DoCmd.SendObject acSendNoObject, , , Me.Combo36.Value, , , "Your Certificate Is Coming Up For Renewal " & [EndDate], "Please let me know if you are renewing your certificate " & [CommonName], True
End Sub

But I also want to add this statement on a separate line:

Please provide the CSR to proceed with the renewal.

Thanks
Naja

How do I add that statement on a separate line.

[Naja]

Presuming it's on the form somewhere, this type of thing:

"Your certificate..." & Me.TextboxName & " more text here if desired"

Thank you for your input. I was able to put it on the email body text. This is how I did it.

Private Sub Command33_Click()
DoCmd.SendObject acSendNoObject, , , Me.Combo36.Value, , , "Your Certificate Is Coming Up For Renewal " & [EndDate], "Please let me know if you are renewing your certificate " & [CommonName], True
End Sub

But I also want to add this statement on a separate line:

Please provide the CSR to proceed with the renewal.

Thanks
Naja

How do I add that statement on a separate line.

[Naja]

I apologized for duplicating the message. I tried to remove it, but don't know how.

[pbaldy]

You can concatenate vbCrLf outside the quotes and then the text you want on the next line.

[Naja]

You can concatenate vbCrLf outside the quotes and then the text you want on the next line.

I'll try and let you know how did it go.

Thanks

[pbaldy]

No problem. I wasn't on a computer then, it would look like:

"some text here" & vbCrLf & "this text will be on the next line"

[Naja]

Pbaldy,

This is what I did and is giving me an error. Let me know what I'm doing wrong. Thanks

Private Sub Command33_Click()
DoCmd.SendObject acSendNoObject, , , Me.Combo36.Value, , , "Your Certificate Is Coming Up For Renewal " & [EndDate], "Please let me know if you are renewing your certificate " & [CommonName], vbCrLf & "Please provide the CSR to proceed with the renewal.", True
End Sub

[pbaldy]

The comma is telling Access you're moving on to the next argument, EditMessage. Try replacing it with &:

DoCmd.SendObject acSendNoObject, , , Me.Combo36.Value, , , "Your Certificate Is Coming Up For Renewal " & [EndDate], "Please let me know if you are renewing your certificate " & [CommonName] & vbCrLf & "Please provide the CSR to proceed with the renewal.", True

When your arguments start getting complicated, I'd use a variable:

Dim strBody As String

strBody = "Please let me know if you are renewing your certificate " &  [CommonName] & vbCrLf & "Please provide the CSR to proceed with the  renewal."

DoCmd.SendObject acSendNoObject, , , Me.Combo36.Value, , , "Your Certificate Is Coming Up For Renewal " & [EndDate], strBody, True

That makes for better readability (for me anyway) and easier debugging.

[Naja]

The comma is telling Access you're moving on to the next argument, EditMessage. Try replacing it with &:

DoCmd.SendObject acSendNoObject, , , Me.Combo36.Value, , , "Your Certificate Is Coming Up For Renewal " & [EndDate], "Please let me know if you are renewing your certificate " & [CommonName] & vbCrLf & "Please provide the CSR to proceed with the renewal.", True

When your arguments start getting complicated, I'd use a variable:

Dim strBody As String

strBody = "Please let me know if you are renewing your certificate " &  [CommonName] & vbCrLf & "Please provide the CSR to proceed with the  renewal."

DoCmd.SendObject acSendNoObject, , , Me.Combo36.Value, , , "Your Certificate Is Coming Up For Renewal " & [EndDate], strBody, True

That makes for better readability (for me anyway) and easier debugging.

Thank you, I will put it to the text and let you know. Thank you for taking the time to help me out. Much appreciated.

[Naja]

Thank you, I will put it to the text and let you know. Thank you for taking the time to help me out. Much appreciated.

Just tested and it worked. Thanks

[pbaldy]

Happy to help!