email - Visual basic - txt 作为电子邮件脚本的字符串

Question

我正在尝试修复邮件脚本。

我非常需要类似的东西

cmBody = "c:\body.txt"

这不是那么简单，但你明白了。

txt 文件是电子邮件的内容。

我希望你们能帮助我。

Answer 1

你可以这样做：

    Dim fso As Object
    Dim contents As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    contents = fso.OpenTextFile("c:\temp\test.txt", ForReading).ReadAll()

Answer 2

我得到了它。

这是我最终使用的代码。（如果你们中的任何一个人甚至理解这个问题）

Open "C:\body.txt" For Input As #intFile
strFile = Input$(LOF(intFile), #intFile)
Close #intFile
cmBody = strFile