Outlook Email Message Body

[Parra]

I have a command button on a form , that gets a report and puts it in the body of an email message. There is no problem with this, but the problem is that the report in the message part of the email comes out weird. The data gets cut off, and it seems like there is a paragraph mark on every 2nd row. Any suggestions? Thanks

Network: Any Network

Shipping .E. Engineer
Shipping Jimmy Welch

Shipping Street 280 S. Elm Street
Shipping rady

Shipping A
Shipping Zip 90018

Shipping Phone: 10-123-4872
Shipping 310-123-4872

FedEx Shipment Type: Ground

 

[Parra]

No one has replied, just in case, here is the code...

Private Sub Command67_Click()
Dim olApp As Outlook.Application, olMailitem As Outlook.MailItem
Dim FSTextStream As Scripting.TextStream, FSObj As Scripting.FileSystemObject
Dim strHTMLFile As String

'Name of the temporary data file used to store the
'report in HTML format - change as desired
strHTMLFile = "C:\temp\rpt.txt"

'Output the report in HTML format
DoCmd.OutputTo acOutputReport, "rpt fibersat", acFormatTXT, strHTMLFile

'Open the text file that we've just created
Set FSObj = CreateObject("Scripting.FilesystemObject")
Set FSTextStream = FSObj.OpenTextFile(strHTMLFile, ForReading)

'Create an Outlook message and set its HTMLBody property to what we created above
Set olApp = New Outlook.Application
Set olMailitem = olApp.CreateItem(0)

With olMailitem
.Body = FSTextStream.ReadAll

'You can set all sorts of properties of your email e.g.
.Subject =
.To =
.Importance = olImportanceHigh

'Use .Send to send the email automatically, or .Display to show it
olMailitem.Display

End With

'Clear up
Set FSTextStream = Nothing: Set FSObj = Nothing

End Sub

 

[Parra]

We'll I solved my problem and in case you are interested how I did it.

We'll it took some minor formatting of the fields in the report and change the following line

DoCmd.OutputTo acOutputReport, "rpt fibersat", acFormatTXT, strHTMLFile

I changed acFormatTXT to acFormatRTF.

Parra