VB.NET에서 iMsg를 사용하여 HTML 본문을 HTML 본문으로 사용하려고 시도했습니다

Question

SQL 쿼리를 기반으로 HTML 파일을 만드는 스크립트를 작성했습니다 .... 해당 HTML을 전자 메일로 보낼 필요가있었습니다. 임원 대부분은 블랙 베리를 사용하며 HTML 파일을 본문으로 보내려고합니다. WebBrowser를 추가하고 웹 브라우저에서 파일을로드 한 다음 아래 코드를 사용하여 보낼 수있는 방법을 발견했습니다. 내가 직면하고있는 문제는 코드를 완전히 자동화하면 HTML 문서의 일부만 전자 메일로 보내고 버튼을 추가하고 전자 메일 기능을 수행하면 올바르게 전송된다는 것입니다. 저는 여러 다른 위치에 대기 함수를 추가했습니다. 전자 메일을 보내기 전에 HTML이 완전히 작성되지 않은 문제 일 수 있다고 생각합니다. 이 100 % 자동화해야합니다. .HTMLBody를 사용하여 C :(실제 경로는 C : \ Turnover.html)에 저장된 실제 HTML 파일에 연결할 수있는 방법이 있습니까? 어떤 도움을 주셔서 감사합니다.

공공 서브 이메일() 희미한 strdate

strdate = Date.Today.TimeOfDay 

    iCfg = CreateObject("CDO.Configuration") 
    iMsg = CreateObject("CDO.Message") 

    With iCfg.Fields 
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxxx.com" 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
     .Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = """Turnover Report"" <TurnoverReports@xxxxx.com>" 
     .Update() 
    End With 

    With iMsg 
     .Configuration = iCfg 
     .Subject = "Turnover Report" 
     .To = "xxxxx@xxxxx.com" 
     '.Cc = "" 

     .HTMLBody = WebBrowserReportView.DocumentText 


     .Send() 
    End With 



    iMsg = Nothing 
    iCfg = Nothing 


End Sub 

Answer 1

로컬 HTML 파일에서 읽을 수있는 아래의 기능을 사용하는 객체 희미한 iMsg으로 개체로 희미한 iCfg. 다음

TextBox2.Text = getHTML("C:\Turnover2.html")

및 .HTMLBody = TextBox2.Text

Private Function getHTML(ByVal address As String) As String 
    Dim rt As String = "" 

    Dim wRequest As WebRequest 
    Dim wResponse As WebResponse 

    Dim SR As StreamReader 

    wrequest = WebRequest.Create(address) 
    wResponse = wrequest.GetResponse 
    SR = New StreamReader(wResponse.GetResponseStream) 

    rt = SR.ReadToEnd 
    SR.Close() 

    Return rt 

End Function