SendObject Message Character Limit

[kevins]

Hello,

I have a button to send automatic emails confirming interview times. The action works well, but I've reached the alotted number of characters and I'd like to add more text to the message body. Any ideas on extending the text limit? Code below:

=[First Name] & "," & Chr(13) & Chr(13) & "It was a pleasure speaking with you today. We are confirmed to meet in the Harper Associates office on " & [Date Interviewed @ Harper] & " at " & [Harper Interview Time] & "." & Chr(13) & Chr(13) & Chr(13)

[pbaldy]

What's your actual code behind the button? I've sent emails a lot longer than what you have there.

[kevins]

I actually don't really know VBA at all, it was a macro that I used. In the macro I have:

TO: =[Contact Name] & IIf(Nz([E-mail Address])<>""," [" & [E-mail Address] & "]")
SUBJECT: Meeting Confirmed at Harper Associates
MESSAGE TEXT: =[First Name] & "," & Chr(13) & Chr(13) & "It was a pleasure speaking with you today. We are confirmed to meet in the Harper Associates office on " & [Date Interviewed @ Harper] & " at " & [Harper Interview Time] & "." & Chr(13) & Chr(13) & Chr(13)

It stops me when I try to continue the message text.

Thanks for your help!

[pbaldy]

Sorry, I don't use macros. I assume they have that limitation. Here's a brief code test that got up to 693 characters in the body. You might see if it works for you:

  Dim strBody                 As String
  Dim strTo                   As String

  strBody = "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf _
          & "Testing a really long body here" & vbCrLf

  Debug.Print Len(strBody)
  strTo = [Contact Name] & IIf(Nz([E-mail Address]) <> "", " [" & [E-mail Address] & "]")
  DoCmd.SendObject , , , strTo, , , "Meeting Confirmed at Harper Associates", strBody, True

[kevins]

Thanks Paul,

I applied that code to the button and nothing seems to be happening. Any ideas? Someday I'll figure out VBA lol.

[pbaldy]

Is any VBA code running? The database needs to be in a trusted location or you have to explicitly enable code. Typically there's an option to do so right under the ribbon.

[kevins]

Ok thanks, that got me somewhere, but an error popped up "Compile Error: Argument not Optional"

[pbaldy]

I just copy/pasted your function. Try this:


strTo = [Contact Name] & IIf(Nz([E-mail Address]) <> "", " [" & [E-mail Address] & "]", "")

or simply

strTo = [E-mail Address]

[kevins]

Paul,

Thank you thank you! This works beautifully. Your help is much appreciated!

[pbaldy]

Excellent! Happy to help.