내가 같은 텍스트 파일이

HTML 형식의 텍스트 파일의 내용을 이메일 :내가 같은 텍스트 파일이

경우 output.txt :

OPERATING SYSTEM  SERVER1 SERVER2 
Windows     1.36  4.42 
Linux     2.78  5.76 
MacOS     3.45  6.39 
Ubuntu     4.12  0.00 
Android     0.00  3.46 
FreePhysicalMemory  30.12  31.65 
TotalVisibleMemorySize 48.00  48.00

내가 몸으로 이메일과 Output.txt의 내용을 보낼

그 형식 (정렬)은 (HTMIL 테이블 형식처럼) 변경되지 않습니다. 아래 코드로 시도하고 있습니다. 메일이 발송되었지만 메일 본문에 아무것도 표시되지 않습니다. 아래 오류가 무엇입니까?

EDIT1 코드를 다음과 같이 내가 이메일을 얻고 아래로

Const ForReading = 1 
Const ForWriting = 2 
Const ForAppending = 8 
Dim objEmail, i 
Set objEmail = CreateObject("CDO.Message") 
objEmail.Textbody = myTextBody 
objEmail.HTMLBody = myHTMLBody 
If IsArray(myAttachment) Then 
For i = 0 To UBound("c:\output.txt") 
.AddAttachment Replace("c:\output.txt" (i), ""),"","" 
Next 
ElseIf myAttachment <> "" Then 
.AddAttachment Replace("c:\output.txt", ""),"","" 
End If 
objEmail.TO ="[email protected]" 
objEmail.From = "[email protected] (CCP Stored Procedure Message)" 
objEmail.Subject = "CCP Stored Procedure" 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration  /sendusing") = 2 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpb.intra.abc.com" 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration /smtpserverport") = 25 
objEmail.Configuration.Fields.Update  
objEmail.Send 
Set objEmail = Nothing

Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Dim fso, f , objCDO1 ,BodyText 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set objCDO1 = CreateObject("CDO.Message") 
BodyText = fso.OpenTextFile("c:\Output.txt",ForReading).ReadAll 
BodyText = "<html><body>" + BodyText + "</body></html>" 
objCDO1.HTMLBody = BodyText 
objCDO1.TO ="[email protected]" 
objCDO1.From = "[email protected] (HFM)" 
objCDO1.Subject = "StatS" 
objCDO1.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objCDO1.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpb.abc.com" 
objCDO1.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objCDO1.Configuration.Fields.Update     
objCDO1.Send 
Set f = Nothing 
Set fso = Nothing

이메일

OPERATING SYSTEM SERVER1 SERVER2 Windows 1.36 4.42 Linux 2.78 5.76 MacOS 3.45 6.39 Ubuntu 4.12 0.00 Android 0.00 3.46 FreePhysicalMemory 30.12 31.65 TotalVisibleMemorySize 48.00 48.00

왜 안 출력으로 이메일을 받고. TXT 형식 ?

EDIT2

내가 작업 EDIT1 ..its 아래 사용하고 있습니다.

BodyText = fso.OpenTextFile("c:\Output.txt",ForReading).ReadAll 
objCDO1.HTMLBody = "<html><body><pre>" & BodyText & "</pre></body></html>"

But..when을 나는 작동하지 EDIT1 ..its 아래 사용하고 있습니다.

BodyText = fso.OpenTextFile("c:\Output.txt",ForReading).ReadAll 
objCDO1.HTMLBody = "<html><body><font size="12"><pre>" & BodyText & "</pre></font></body></html>"

출처

2013-10-24 Sunny

'myTextBody' 및'myHTMLBody'의 값은 무엇입니까? 당신의 코드에'On Error Resume Next'가 있습니까? '.AddAttachment Replace ("c : \ output.txt"(i), ""), "", ""'는 할 수 없기 때문에. 또한 거기에 속하지 않는'sendusing' 필드를위한 스키마 URL에 공백이 있습니다. –

안녕하세요 Ansgar .. 길을 변경했습니다 .. pls 참조 ** EDIT1 ** ... :) – Sunny

'size = "12"를'size = '12 '' 또는'size = ""12 ""로 변경하십시오 '. VBScript 문자열의 큰 따옴표는 두 배로 이스케이프해야합니다. 그러나 HTML 코드에서는 작은 따옴표로 바꾸는 것이 더 간단합니다. –

HTML이 예상대로 작동하지 않습니다. 우선, 파서는

OPERATING SYSTEM  SERVER1 SERVER2 
Windows     1.36  4.42 
Linux     2.78  5.76

같은 모든 연속적인 하나의 공간으로 공백, 그래서 뭔가를 축소 표시 될 때

OPERATING SYSTEM SERVER1 SERVER2 Windows 1.36 4.42 Linux 2.78 5.76

된다.

당신은 공간/보존 줄 바꿈이

BodyText = fso.OpenTextFile("c:\Output.txt",ForReading).ReadAll 
objCDO1.HTMLBody = "<html><body><pre>" & BodyText & "</pre></body></html>"

에

BodyText = fso.OpenTextFile("c:\Output.txt",ForReading).ReadAll 
BodyText = "<html><body>" + BodyText + "</body></html>" 
objCDO1.HTMLBody = BodyText

을 변경하거나 아예 HTML을 삭제하고 일반 텍스트로 메시지를 전송합니다.

출처

2013-10-24 21:12:38

예 .. 출력 형식으로 내 이메일을 받고 있습니다. 감사합니다. 감사합니다. Ansgar .. !! – Sunny

@Sunny 제 제안의 중요한 부분은'

'입니다. –

@ Ansgar..ohh..sorry for typo..pls ** EDIT2 **를 참조하십시오. – Sunny

내가 같은 텍스트 파일이

답변

관련 문제