I lose text output in email when I link my Signaure Block

[Thompyt]

If I run the code as such and it works:

 
 Dim rs As Dao.Recordset   
 Dim objOutlook As Outlook.application
 Dim objOutlookMsg, objOutlookMsg1, objOutlookMsg2 As Outlook.MailItem
 Dim objOutlookAttach As Outlook.Attachment
 Dim strMsg As String
 Dim CRNum, DateTypes As Variant
  Set rs = CurrentDb.OpenRecordset("SELECT Status,CR_Numbers,[Change Requested]FROM Daily_Actions_Email ORDER BY Status,CR_ID ASC")
  Set objOutlook = CreateObject("Outlook.Application")
  Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
  Set objOutlookMsg1 = objOutlook.CreateItem(olMailItem)
  Set objOutlookMsg2 = objOutlook.CreateItem(olMailItem)
CRNum = DLookup("[CR_Numbers]", "[Daily_Actions_Email]")
If IsNull(CRNum) Then
With objOutlookMsg
    .Subject = "There were no actioned CR's - " & Tod
    .Body = "The email addressing is a living entity.  If there are corrections, additions, or deletions, please notify the sender." & vbCrLf & vbCrLf & _
            "There were no actioned Change Requests for " & Tod & "." & strSigBlock
    .To = "CCB Results"
    .Display
    DoCmd.Close acReport, "Daily Actions"
Exit Sub
End With
Else
End If
rs.MoveFirst
While Not rs.EOF
 strMsg = strMsg & rs!Status & vbCrLf & Chr(9) & "CR  " & rs!CR_Numbers & " - " & rs![Change Requested] & vbCrLf
 rs.MoveNext
Wend
 rs.Close
With objOutlookMsg1
   .Subject = "Today's AORB/ERB/CCB outcome - " & Tod
    .Body = "The email addressing is a living entity.  If there are corrections, additions, or deletions, please notify the sender." & vbCrLf & vbCrLf & _
   "Today's AORB/ERB/CCB outcome." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "V/R" & vbCrLf & vbCrLf & "Name" & vbCrLf & vbCrLf & "Command" & vbCrLf & "Division" & vbCrLf & "Address1" & vbCrLf & "City and Zip" & vbCrLf & "Phone" & vbCrLf & "EMail"
    DoCmd.OutputTo 3, "Daily Actions", acFormatPDF, "C:\Temp\Daily Actions - " & Tod & ".pdf", , 0
    .Attachments.Add ("C:\Temp\Daily Actions - " & Tod & ".pdf")
    .To = "CCB Results"
    .Display
    DoCmd.Close acReport, "Daily Actions"
    Kill "C:\Temp\Daily Actions - " & Format(Date, "dd mmm yyyy") & ".pdf"
 End With
strMsg = ""
If IsNull([CRNum]) Then
End If
With objOutlookMsg2.........

I made changes as shown in Orange Bold letters


Output looks like:

The email addressing is a living entity. If there are corrections, additions, or deletions, please notify the sender.



Today's AORB/ERB/CCB outcome.

Status
CR ### What was requested
Status
CR ### What was requested
Status
CR ### What was requested

Signature block


If I change it to:

With objOutlookMsg1
   .Subject = "Today's AORB/ERB/CCB outcome - " & Tod
     .Body = "The email addressing is a living entity.  If there are  corrections, additions, or deletions, please notify the sender." &  vbCrLf & vbCrLf & _
   "Today's AORB/ERB/CCB outcome." & strSigBlock

I lose my text output on the email.

Output looks like:

The email addressing is a living entity. If there are corrections, additions, or deletions, please notify the sender.

Today's AORB/ERB/CCB outcome.


Signature block


What am I missing here?

Sig Block code =

Option Compare Database
Public Const strSigBlock As String = vbCrLf & vbCrLf & "For your action." &"V/R" & vbCrLf & vbCrLf  & "Name" & vbCrLf & vbCrLf & "Command" & vbCrLf  & "Division" & vbCrLf & "Address1" & vbCrLf & "City  and Zip" & vbCrLf & "Phone" & vbCrLf & "EMail"

[Micron]

A few irregularities that might contribute to the issue.
- do you realize that all of these declarations are variants: objOutlookMsg, objOutlookMsg1, CRNum, because you have not properly declared them.
objOutlookMsg As Outlook.MailItem, objOutlookMsg1 As Outlook.MailItem (etc). Where not explicitly declared, they are variants.
- Also, I don't believe you can pass vbCrLf to html mail and get a paragraph/line feed as html does not recognize the vb equivalent. You need the "<P>" equivalent. It might be even more problematic to start a string with two of the vb references as you are doing.
- suggest you put a debug.print line or check the constructs you think you are concatenating in the immediate window. You will probably find it looks OK in Access, but again, it's been my experience that you can't use vbCrLf in html emails.
edit: suggest you dump the debug output into Notepad, save as Note.htm and open that file. The default handler should be your browser, and you can see how the email body will be interpreted by Outlook (save possibly the formatting may have to be tweaked later).

[Thompyt]

Micron,
How do I properly declare? As for the Email type. I we do not use HTML email as a standard.

I don't get an error, so access is not seeing a fault.

[Micron]

Micron,
How do I properly declare?

The answer to that was given:
Dim objOutlookMsg As Outlook.MailItem, objOutlookMsg1 As Outlook.MailItem

Dim intCount as Integer, intFirst as Integer, intLast as Integer not
Dim intCount, intFirst, intLast as Integer

As for the Email type. I we do not use HTML email as a standard.

Are you saying vbcrlf in plain text email works in Outlook?

I don't get an error, so access is not seeing a fault.

That is a matter of luck that the variant data type can be used by your process. It is often the case, but once in a while it will fail. The important thing is that you realize your syntax makes the undeclared variables become variants.

[Thompyt]

Thanks for the clarification. I gather I have too little of variants and strings to make a difference as I never got any faults the way I was doign it. I changed it to what was provided, so that I could get into the correct pattern on later projects. vbCrlf works for me fine, I didn't know there was any other way to do it. Except Chr(10) Chr(13). I figured out what happened. I dropped the strmsg from the middle of the .body statement. once I added it back in, it was good to go.

[Micron]

Glad you got it solved. Probably most of the time, you would not notice, but certain operations on numeric data that has been assigned to a variant can cause issues, as well as trying to assign a fixed length string to a variant (not allowed). What's important is that you now know that by not declaring a variable explicitly, it is a variant.