使用asp classic將CDO.Message對象轉換爲字符串

Question

我有以下CDO.Message對象。

dim myMail:set myMail= CreateObject("CDO.Message") 
myMail.Subject="testSubject" 
myMail.From="test@test.com" 
myMail.to="test@test.com" 
myMail.TextBody="testBody" 

我想將此對象轉換爲字符串。如下面的asp.net函數所做的那樣

public static string ConvertCDOtoString(CDO.Message CDOMsg) 
{ 
    string strMessage = ""; 

    //Convert CDO Message to ADO Stream 
    ADODB.Stream objADO = null; 
    objADO = CDOMsg.GetStream(); 
    objADO.Type = ADODB.StreamTypeEnum.adTypeBinary; 
    //Convert ADO Stream to String 
    strMessage = System.Text.Encoding.ASCII.GetString((byte[])objADO.Read()); 
    objADO = null; 
    return strMessage; 
} 

我想在asp classic中做同樣的事情。可以有人幫助請

Answer 1

得到的解決方案。

dim myMail:set myMail= CreateObject("CDO.Message") 
myMail.Subject="test subject" 
myMail.to="test@test.com" 
myMail.TextBody="testing Body message " 
myMail.From="test2@test.com" 

Dim Stream  
Set Stream = myMail.GetStream()  
'read the encoded data As a string 
messageString = Stream.ReadText