使用asp经典将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的经典版中做同样的事。有人能帮忙吗？

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