Persist asp mailer problem
An Error1 has occurred sending the mail, please advise the webmaster: 503 5.5.2 Need Rcpt command. An Error2 has occurred sending the mail, please advise the webmaster: 503 5.5.2 Need Rcpt command.Sub SendPassEmail
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "domæne.dk" ' Specify a valid SMTP server
If Err.Number = 0 Then
Mail.From = "web@xxxxxx.xx" ' Specify sender's address
'### Put the email address and name where indicated on the next line ###
Mail.AddAddress = sEmailAddress
'# You can send a file attachment if you wish with the following line...
'Mail.AddAttachment FileAttach
'# Customize the subject line below between the " and " only...
Mail.Subject = " Registration"
s_Mail_Body = "" ' Start to build the mail body here
s_Mail_Body = s_Mail_Body & "Your account as an "&sEmpStatus&" is now ready for you to setup. We have opened an
account with the name and UserID that you provided:" &vbcrlf&vbcrlf
s_Mail_Body = s_Mail_Body & "Your UserID is: "& sUserID &vbcrlf
s_Mail_Body = s_Mail_Body & "Your Password is: "& sPassword &vbcrlf&vbcrlf
s_Mail_Body = s_Mail_Body & "Go here to login: http://jobs.iamplace.com/login.asp"&vbcrlf&vbcrlf
s_Mail_Body = s_Mail_Body & "When you login the first time, please complete the registration form with your details
to finish setting up your account. Once this is done your account will be open. If you have any difficulty with this process
please do not hesitate to email support@"&vbcrlf&vbcrlf
s_Mail_Body = s_Mail_Body & "Our unique service allows employers and job seekers to connect. This is a free service
and it is not currently our intent to charge for this service, however we reserve the right to charge a fee at a later
time."&vbcrlf&vbcrlf
s_Mail_Body = s_Mail_Body & "Thank you for using iAmJobs, We appreciate you as a valued customer. iAmJobs is owned and
operated by iAmPlace.com Inc., Calgary, Alberta."&vbcrlf&vbcrlf
s_Mail_Body = s_Mail_Body & "The Support Team - support@"
Mail.Body = s_Mail_Body
Mail.Send
Set Mail = Nothing
END IF
If Err <> 0 Then
Response.Write"<P>An Error1 has occurred sending the mail, please advise the webmaster: "& Err.Description
Response.Write"<BR>" & FileAttach
End If
Call SendNoticeEmail
End Sub
