Smart Mailer ASP Support Product Page
Smart mailer
Reported 29 Dec 2014 13:09:23
1
has this problem
29 Dec 2014 13:09:23 johnny odgaard posted:
I have just bought Smart Mailer ASP, but I can not get it to work/sending mails. My Web Hoster have the following Web komponents: w3JMail pro Jmail.NET proI use a test form to send a mail from my website. I got the following error message
SendMail Error: The message was undeliverable. All servers failed to receive the message, code = -2147418113. The code is dec. for 8000ffff
The host of my webpage have no clue at all. I have formlerly used Linecraft email-merge extention. But this does now only work if I send one mail.
Bujt with smart mailer an Jmail I can even not send one single mail
Code looks as follow (I have changed the password - I don't like that it is in plain text)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="ScriptLibrary/incSmartMailer.asp" -->
<%
' Smart Mailer 1.0.13
' Send on submit of form form1
Dim sm1
Set sm1 = new SmartMailer
sm1.checkVersion "1.13"
sm1.contentCharset = "Windows-1252"
sm1.smtpSetup "mail.maarslet.com", "25", " ", "HIDDEN"
sm1.pickup = ""
sm1.component = "jmail"
sm1.tmpFolder = ""
sm1.embedImages = false
sm1.progressBar = ""
sm1.ignore_errors = false
sm1.useQueue = false
if Request.ServerVariables("REQUEST_METHOD"
= "POST" thenIf eval("vartype(MM_abortEdit)"
= 0 or (Not MM_abortEdit) ThenServer.ScriptTimeout = 600
Session.CodePage = sm1.getCodepage()
sm1.setFrom "Kasseren i MCM", " "
sm1.setTo Request.Form("var_name"
, Request.Form("var_name"sm1.setCc "", ""
sm1.setBcc "", ""
sm1.Subject = "Email subsription"
' using static for body
sm1.setBody_Static_text "" & vbCRLF & "" & vbCRLF & "Dette er en testmail. Hvis du modtager den, må du gerne ""besvar""er den." & vbCRLF & "" & vbCRLF & "mvh" & vbCRLF & "" & vbCRLF & "Johnny"
' Attachments none
sm1.sendMail "one"
end if
end if
if eval("vartype(SM_mailAction)"
= 0 then ExecuteGlobal "Dim SM_mailAction"SM_mailAction = getMailAction()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<p> </p>
<form id="form1" name="form1" method="post" action="<%=SM_mailAction%>">
<table border="1" align="center" cellpadding="2" cellspacing="2">
<tr>
<td>Navn</td>
<td>Email</td>
</tr>
<tr>
<td><label for="var_name"></label>
<input type="text" name="var_name" id="var_name" /></td>
<td><label for="var_email"></label>
<input type="text" name="var_email" id="var_email" /></td>
</tr>
</table>
<input type="submit" name="knp_send" id="knp_send" value="Submit" />
<br />
</form>
<p> </p>
</body>
</html>
Replies
Replied 30 Dec 2014 09:59:53
30 Dec 2014 09:59:53 johnny odgaard replied:
I have tried with this simple rutine. It works allthough the server is very slow to send the message
<%
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.From = " "
msg.FromName = "Johnny Odgaard"
msg.AddRecipient " "
msg.Subject = "Dette er en test"
msg.Body = "Dette tester w3 JMail på www.maarslet.com!" & vbCrLf
msg.Send( "mail.maarslet.com" )
if not msg.Send("mail.maarslet.com" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Beskeden er sendt!"
end if
%>
<%
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.From = " "
msg.FromName = "Johnny Odgaard"
msg.AddRecipient " "
msg.Subject = "Dette er en test"
msg.Body = "Dette tester w3 JMail på www.maarslet.com!" & vbCrLf
msg.Send( "mail.maarslet.com" )
if not msg.Send("mail.maarslet.com" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Beskeden er sendt!"
end if
%>