How is declared "e_MailMessage.Text()"? Declare it as a simple string. Also try to replace "CHR(13)+CHR(10)" with vbCrLf.


>Hi,
>
>When I add + CHR(13)+CHR(10) to the email meassage I get an error.
>
>System.Web.HttpException: Could not access 'CDO.Message' object. ---> System.Reflection.TargetInvocationException: Exception has been thrown by the target of an invocation. ---> System.Runtime.InteropServices.COMException (0x80040212): The transport lost its connection to the server.
>
>Anyone have a solution?
>
>Thanks in advance!!!!!!!!
>
>I'am trying to create formatted lines in the body of the message.
>
>Line 1
>Line 2
>Line 3
>Line 4
>
>most of the code follows:
>If I comment out the +chr(13)+chr(10) IT WORKS!!!!!!
>
> -
> -
> Dim myDataRow As DataRow
> For Each myDataRow In NhD_Xml_Ds1.Listing
> e_MailMessage.Text() = e_MailMessage.Text() + myDataRow("APN") + Chr(13) + Chr(10)
>
> Next
> '= = = = = = = = = = = = = =
> Dim MyEmailMessage As String
> MyEmailMessage = e_MailMessage.Text()
> NhD_Xml_Ds1.WriteXml("C:\NHDXMLFile.xml", XmlWriteMode.WriteSchema)
>
> '===================================================================
> Dim oMsg As MailMessage = New MailMessage()
> ' TODO: Replace with sender e-mail address.
> oMsg.From = "someone@mailserver.com"
> ' TODO: Replace with recipient e-mail address.
> oMsg.To = "someone@mailserver.com"
> oMsg.Subject = "Request for NHD Reports"
> ' SEND IN HTML FORMAT (comment this line to send plain text).
> oMsg.BodyFormat = MailFormat.Html
> 'HTML Body (remove HTML tags for plain text).
> oMsg.Body = MyEmailMessage
> ' ADD AN ATTACHMENT.
> ' TODO: Replace with path to attachment.
> Dim sFile As String = "C:\nhdxmlfile.xml"
> Dim oAttch As MailAttachment = New MailAttachment(sFile, MailEncoding.Base64)
> oMsg.Attachments.Add(oAttch)
> ' TODO: Replace with the name of your remote SMTP server.
> SmtpMail.SmtpServer = "mail.mailsever.com"
> SmtpMail.Send(oMsg)
> oMsg = Nothing
> oAttch = Nothing