Problem with DTS and VB Email

[lyric0n]

What I have is a DTS package set to run everynight, query a table, put the results into something called strRecord, then use the script below to email it.

Unfortunately, strRecord goes over 1024 characters (which it can do fine), the .HTMLBody ends up truncating it. How do I extend the length of .HTMLBody?

Dim oMsg
Set oMsg = CreateObject("CDO.Message")
With oMsg
.From = "lyric0n@yahoo.com"
.To = "lyric0n@yahoo.com"
.Subject = "Outdated Information"
.HTMLBody = strRecord
.Configuration.Fields("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "smtp.server.com"
.Configuration.Fields("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
.Configuration.Fields.Update
.Send
End With
Set oMsg = Nothing
end if