email body from txt file

[GraeagleBill]

In using DoCmd.SendObj to send emails, I'm accustom to simply supplying a text string as the body text. Are there any methods available where one can specify a text (txt) file instead of a string?

I could simply read a text file line-by-line and build a string with line breaks (vbnewline) inserted so as to retain the simple formtting, but I thought perhaps I'd just missed something in my search.

[orange]

Bill,

I have not done similar for years.
I suggest you look at TextStream and ReadAll method.

[Micron]

If you could have a file to read from you could just as easily use a table field for body texts?

[GraeagleBill]

The online documentation doesn't indicate if the resulting text string retains the simple line formatting. I.e., if one were to ReadAll and then Write the string to a file whether the resulting txt file would retain the same line-by-line formatting.

My need is to ReadAll, Replace(InString, "LINK:", MyURL) and then use the InString and the body text of an email. Where the input txt file is a user email prototype.

[GraeagleBill]

Yes, that was my initial thought. However, the user in the current case will fair better using a simple prototype text file (Notepad) where they place the "LINK:" keyword among the text and the app will replace that with a URL taken from the app's driving form.

[orange]

Bill,
I just tried this:

Sub GetTextInTXT()
      Dim oFSO As FileSystemObject
      Dim tsin As TextStream, RequiredText As String
      Const ForReading = 1, ForWriting = 2, ForAppending = 3
10    Set oFSO = CreateObject("Scripting.FileSystemObject")
20     Set tsin = oFSO.OpenTextFile("C:\Users\jp\Documents\Documents_Lenovo\Documents\BillBenson_OnActivate.txt", ForReading)
      Dim X As String

30    X = tsin.ReadAll
40    RequiredText = X 
50    Debug.Print RequiredText
End Sub

Format retained on the attached file.

[GraeagleBill]

I mimicked your test with total success.
Thanks,
Bill