ABMailer Problems in body text

[ModicaR]

Hi all,

i am using AB Mailer (so this may not be place to write this is!?) to senf automated email messages to subscribers.

the problem is the meails are getting sent fine bu the message body is not appearing. Now if i sent it to something like hotmail then it puts the body as an attachement. to other email programs there is just no body at all?

Code:

<%LANGUAGE=VBScript%>
<%
'-- Global Variables
Dim sFrom ' email address of sender
Dim sTo ' email address of primary recipient(s)
Dim sCc ' email address(es) of CC recipient(s)
Dim sBcc ' email address(es) od blind CC recipients
Dim sSubject ' email subject line
Dim sMessage ' email message-text body
Dim sPriority ' priority of message
Dim sMT ' message type (text or HTML)
Dim sBadDataField ' field containing bad data

'---- Mailman Error Constants ----
Const mmeNone = 0 ' Mail delivered successfully to SMTP server
Const mmeUndefined = 1 ' Undefined (internal) error, out-of-memory, etc...
Const mmeWinsock = 2 ' Network, TCP/IP, or general socket error
Const mmeReplyTo = 3 ' Error in &quot;ReplyTo&quot; line. For version 2.0 no longer used (see mmeRecipient).
Const mmeSendTo = 4 ' Error in &quot;SendTo&quot; line. For version 2.0 no longer used (see mmeRecipient).
Const mmeSendCc = 5 ' Error in &quot;SendCc&quot; line. For version 2.0 no longer used (see mmeRecipient).
Const mmeServerAddr = 6 ' Error in &quot;ServerAddr&quot; line, Server not found, etc...
Const mmeServerPort = 7 ' Invalid Server Port ID (default SMTP is 25)
Const mmeAttachment = 8 ' Could not find one of the attachments. Refer to &quot;ErrorMsg&quot;.
Const mmeAuthentication = 9 ' Error authenticating with SMTP server.
Const mmeRecipient = 10 ' Could not find one of the recipients. Refer to &quot;ErrorMsg&quot;.
Const mmeEvaluationExpired = 11 ' Evaluation copy of ABMailer has expired. Please register your copy of ABMailer.

'---- Default Constants ----
Const mmdServerPort = 25 ' Default SMTP Server Port ID

'---- Mailman Error Code Strings ----
ReDim mmeMessage(11)
mmeMessage(0) = &quot;Mail delivered successfully to SMTP server&quot;
mmeMessage(1) = &quot;Undefined (internal) error, out-of-memory, etc...&quot;
mmeMessage(2) = &quot;Network, TCP/IP, or general WinSock error&quot;
mmeMessage(3) = &quot;Error in 'ReplyTo' line. For version 2.0 no longer used (see mmeRecipient).&quot;
mmeMessage(4) = &quot;Error in 'SendTo' line. For version 2.0 no longer used (see mmeRecipient).&quot;
mmeMessage(5) = &quot;Error in 'SendCc' line. For version 2.0 no longer used (see mmeRecipient).&quot;
mmeMessage(6) = &quot;Error in 'ServerAddr' line, Server not found, etc...&quot;
mmeMessage(7) = &quot;Invalid Server Port ID (default SMTP is 25)&quot;
mmeMessage(8) = &quot;Could not find one of the attachments. Refer to 'ErrorMsg'.&quot;
mmeMessage(9) = &quot;Error authenticating with SMTP server.&quot;
mmeMessage(10) = &quot;Could not find one of the recipients. Refer to 'ErrorMsg'.&quot;
mmeMessage(11) = &quot;Evaluation copy of ABMailer has expired. Please register your copy of ABMailer.&quot;

'-- Set a few default values
sPriority = 2
sMT = 0
sSubject = &quot;Results from form on website&quot;

'-- now get user defined details
%>
<!--#include file=&quot;./user.inc&quot;-->
<%
'-- Define functions
'----SendTheMail()--------------------------------------------------------------------

Function SendTheMail()

'-- Allocate Variables
Dim objMail

'-- Set Error Trapping
On Error Resume Next
Err.Number = 0

'-- Create the Mailman Object
Set objMail = Server.CreateObject(&quot;ABMailer.Mailman&quot

'-- Set the Mail Properties
objMail.Clear
objMail.MailSubject = sSubject
objMail.FromAddress = sFrom
objMail.ReplyTo = sFrom
objMail.SendTo = sTo
objMail.SendCc = sCC
objMail.SendBcc = sBcc
objMail.ServerAddr = &quot;mailhost.somwhere.co.uk&quot;
objMail.ServerPort = &quot;25&quot;
objMail.MailMessage = sMessage
objMail.XPriority = sPriority
objMail.MessageType = 0

'-- Send email message
objMail.SendMail

'-- Set return value to error-code value (mmeNone = Success)
SendTheMail = objMail.ErrorCode

End Function


'----FillGlobalVars()------------------------------------------------------------
Function FillGlobalVars()

'-- Set Error Trapping
On Error Resume Next

'-- Initialize Return Code
FillGlobalVars = False

'--Get Variables

'--Get Subject
sSubject = &quot;Registration&quot;
'--Get From Address
sFrom = &quot;webmaster@somewhere.com&quot;
'--Get Recipient
sTo = &quot;me@somwhere.com&quot; 'Request(&quot;Email&quot

'Useless Fields For Harbrine
sCC = &quot;&quot;
sBcc = &quot;&quot;

'Message
sMessage = &quot;&quot;
sMessage = sMessage & &quot;Thank you for registering with&quot; & chr(13) & chr(10)
sMessage = sMessage & &quot;This is an automated message. Replies will go unanswered.&quot;
'& vbCrLf & vbCrLf
'sMessage = sMessage & &quot;Your login details are below&quot; & vbCrLf & vbCrLf
'sMessage = sMessage & &quot;Username : TEST&quot; & vbCrLf '& Email & vbCrLf
'sMessage = sMessage & &quot;Password : TEST&quot; & vbCrLf '& PWord & vbCrLf

'--Trim fields
sFrom = Trim(sFrom)
sTo = Trim(sTo)
sCc = Trim(sCC)
sBcc = Trim(sBcc)

'-- Set Return Code
FillGlobalVars = True

End Function

'-- Now process the form-----------------------------------------------------------------------

Dim iResult
Dim bVarsOK

'-- fill the global variables
bVarsOK = FillGlobalVars()
If bVarsOK Then
' send the email
iResult = SendTheMail()
End If

'----Response Page-----
%>
<HTML>
<HEAD><TITLE>Form To Email ASP</TITLE></HEAD>

<BODY>
<H2>Form To Email ASP</H2>
<HR>

<P>
<%If bVarsOK Then%>
<%If iResult = mmeNone Then%>
<!--Mail sent successfully-->
The mail message was sent successfully.

<%Else%>
<!--Mail not sent successfully-->
The mail message could not be sent.<BR>
Error Code: <%= CStr( iResult ) %><BR>
Error Message: <%= mmeMessage(iResult) %>
<%End If%>
<%Else%>
<!--Mail could not be sent, required fields left blank-->
You had some bad data, in the field <%= sBadDataField %><BR>
Your mail was not sent.
<%End If%>
<P>

<HR>


</BODY>
</HTML>


Please Help!

Roberto