Snitz Forums 2000 - Straightening message in email to user

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: General / Classic ASP versions(v3.4.XX)

Straightening message in email to user

New Topic

Topic Locked

Printer Friendly

Author

Topic

zbenggg
Junior Member

Israel
227 Posts

Posted - 17 December 2002 : 17:11:36

Hello,

My Forums to be Hebrew
Hebrew text necessary to come in right - Not left...
Example:

How to make possible email in right ?

Thanks

I love Israel

David K
Junior Member

494 Posts

Posted - 17 December 2002 : 17:16:21

change the body of inc_mail.asp to this:
strTmp = strMessage
strHTMLMsg = "<html DIR=""RTL"">" & vbNewLine & "<head>" & vbNewline & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-8-i"">" & vbNewline & "</head>" & vbNewline & "<body>"
strHTMLMsg = strHTMLMsg & FormatStr(strTmp)
strHTMLMsg = strHTMLMsg & vbNewLine & "</body></html>"

select case lcase(strMailMode)
case "abmailer"
Set objNewMail = Server.CreateObject("ABMailer.Mailman")
objNewMail.ServerAddr = strMailServer
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
objNewMail.SendTo = strRecipients
objNewMail.MailSubject = strSubject
objNewMail.MailMessage = strMessage
on error resume next '## Ignore Errors
objNewMail.SendMail
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "aspemail"
Set objNewMail = Server.CreateObject("Persits.MailSender")
objNewMail.FromName = strFromName
objNewMail.From = strSender
objNewMail.AddReplyTo strSender
objNewMail.Host = strMailServer
objNewMail.AddAddress strRecipients, strRecipientsName
objNewMail.Subject = strSubject
objNewMail.IsHTML = true
objNewMail.Body = strHTMLMsg
'if objNewMail.expires= 9/9/9999 then objNewMail.Charset = "iso-8859-8-i"
on error resume next '## Ignore Errors
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "aspmail"
Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
'objNewMail.AddReplyTo = strSender
objNewMail.RemoteHost = strMailServer
objNewMail.AddRecipient strRecipientsName, strRecipients
objNewMail.Subject = strSubject
objNewMail.ContentType = "text/html"
objNewMail.BodyText = strHTMLMsg
objNewMail.CustomCharset = "iso-8859-8-i"
on error resume next '## Ignore Errors
SendOk = objNewMail.SendMail
If not(SendOk) <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & objNewMail.Response & "</li>"
End if
case "aspqmail"
Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
objNewMail.QMessage = 1
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
objNewMail.RemoteHost = strMailServer
objNewMail.AddRecipient strRecipientsName, strRecipients
objNewMail.Subject = strSubject
objNewMail.ContentType = "text/html"
objNewMail.BodyText = strHTMLMsg
'objNewMail.CustomCharset = "iso-8859-8-i"
on error resume next '## Ignore Errors
objNewMail.SendMail
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä ëøàåé áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "cdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.BodyFormat = 0
objNewMail.MailFormat = 0
'objNewMail.SetLocaleIDs(1037)
on error resume next '## Ignore Errors
objNewMail.Send strSender, strRecipients, strSubject, strHTMLMsg
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
on error resume next '## Ignore Errors
case "chilicdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
on error resume next '## Ignore Errors
objNewMail.Host = strMailServer
objNewMail.BodyFormat = 0
objNewMail.To = strRecipients
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.Body = strHTMLMsg

objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
on error resume next '## Ignore Errors
case "cdosys"
Set iConf = Server.CreateObject ("CDO.Configuration")
Set Flds = iConf.Fields

'Set and update fields properties
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer
'Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
'Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
Flds.Update

Set objNewMail = Server.CreateObject("CDO.Message")
Set objNewMail.Configuration = iConf

'Format and send message
Err.Clear

objNewMail.To = strRecipients
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.TextBody = strMessage
objNewMail.HTMLBody = strHTMLMsg
objNewMail.BodyPart.Charset = "iso-8859-8-i"
On Error Resume Next
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "dkqmail"
Set objNewMail = Server.CreateObject("dkQmail.Qmail")
objNewMail.FromEmail = strSender
objNewMail.ToEmail = strRecipients
objNewMail.Subject = strSubject
objNewMail.Body = strMessage

objNewMail.CC = ""
objNewMail.MessageType = "TEXT"
on error resume next '## Ignore Errors
objNewMail.SendMail()
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "dundasmailq"
set objNewMail = Server.CreateObject("Dundas.Mailer")
'objNewMail.BodyCharSet = "iso-8859-8-i"
objNewMail.QuickSend strSender, strRecipients, strSubject, strMessage
on error resume next '##Ignore Errors
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "dundasmails"
set objNewMail = Server.CreateObject("Dundas.Mailer")
objNewMail.TOs.Add strRecipients
objNewMail.FromAddress = strSender
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
objNewMail.HtmlBodyCharSet = "iso-8859-8-i"
objNewMail.HtmlBody = strHTMLMsg
objNewMail.BodyCharSet = "iso-8859-8-i"
on error resume next '##Ignore Errors
objNewMail.SendMail
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "geocel"
set objNewMail = Server.CreateObject("Geocel.Mailer")
objNewMail.AddServer strMailServer, 25
objNewMail.AddRecipient strRecipients, strRecipientsName
objNewMail.FromName = strFromName
objNewMail.FromAddress = strFrom
objNewMail.Subject = strSubject
objNewMail.ContentType = "text/html"
objNewMail.Body = strHTMLMsg
objNewMail.CharSet = "iso-8859-8-i"
on error resume next '## Ignore Errors
objNewMail.Send()
if Err <> 0 then
Response.Write "á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description
else
Response.Write "äãåàø ðùìç áäöìçä..."
end if
case "iismail"
Set objNewMail = Server.CreateObject("iismail.iismail.1")
MailServer = strMailServer
objNewMail.Server = strMailServer
objNewMail.addRecipient(strRecipients)
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.body = strMessage
on error resume next '## Ignore Errors
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "jmail"
Set objNewMail = Server.CreateObject("Jmail.smtpmail")
objNewMail.ServerAddress = strMailServer
objNewMail.AddRecipient strRecipients
objNewMail.Sender = strSender
objNewMail.Subject = strSubject
objNewMail.Message.Charset = "iso-8859-8-i"
objNewMail.body = strMessage
objNewMail.htmlbody = strHTMLMsg
objNewMail.priority = 3
on error resume next '## Ignore Errors
objNewMail.execute
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "jmail4"
Set objNewMail = Server.CreateObject("Jmail.Message")
'objNewMail.MailServerUserName = "myUserName"
'objNewMail.MailServerPassword = "MyPassword"
objNewMail.From = strSender
objNewMail.FromName = strFromName
objNewMail.AddRecipient strRecipients, strRecipientsName
objNewMail.Subject = strSubject
objNewMail.Charset = "iso-8859-8-i"
objNewMail.Body = strMessage
objNewMail.htmlbody = strHTMLMsg
on error resume next '## Ignore Errors
objNewMail.Send(strMailServer)
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "mdaemon"
Set gMDUser = Server.CreateObject("MDUserCom.MDUser")
mbDllLoaded = gMDUser.LoadUserDll
if mbDllLoaded = False then
response.write "ìà äéä ðéúï ìèòåï àú MDUSER.DLL! äúåëðä úéñâø." & "<br />"
else
Set gMDMessageInfo = Server.CreateObject("MDUserCom.MDMessageInfo")
gMDUser.InitMessageInfo gMDMessageInfo
gMDMessageInfo.To = strRecipients
gMDMessageInfo.From = strSender
gMDMessageInfo.Subject = strSubject
gMDMessageInfo.MessageBody = strMessage
gMDMessageInfo.Priority = 0
gMDUser.SpoolMessage gMDMessageInfo
mbDllLoaded = gMDUser.FreeUserDll
end if
if Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
end if
case "ocxmail"
Set objNewMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")
recipient = strRecipients
sender = strSender
subject = strSubject
message = strMessage
mailserver = strMailServer
on error resume next '## Ignore Errors
result = objNewMail.SendMail(mailserver, recipient, sender, subject, message)
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "ocxqmail"
Set objNewMail = Server.CreateObject("ocxQmail.ocxQmailCtrl.1")
mailServer = strMailServer
FromName = strFromName
FromAddress = strSender
priority = ""
returnReceipt = ""
toAddressList = strRecipients
ccAddressList = ""
bccAddressList = ""
attachmentList = ""
messageSubject = strSubject
messageText = strMessage
on error resume next '## Ignore Errors
objNewMail.Q mailServer, _
fromName, _
fromAddress, _
priority, _
returnReceipt, _
toAddressList, _
ccAddressList, _
bccAddressList, _
attachmentList, _
messageSubject, _
messageText
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "sasmtpmail"
Set objNewMail = Server.CreateObject("SoftArtisans.SMTPMail")
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
objNewMail.AddRecipient strRecipientsName, strRecipients
'objNewMail.AddReplyTo strSender
objNewMail.CustomCharSet = "iso-8859-8-i"
objNewMail.HTMLText = strHTMLMsg
objNewMail.BodyText = strMessage
objNewMail.organization = strForumTitle
objNewMail.Subject = strSubject
objNewMail.RemoteHost = strMailServer
on error resume next
SendOk = objNewMail.SendMail
If not(SendOk) <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & objNewMail.Response & "</li>"
End if
case "smtp"
Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1")
objNewMail.MailServer = strMailServer
objNewMail.Recipients = strRecipients
objNewMail.Sender = strSender
objNewMail.Subject = strSubject
objNewMail.Message = strMessage
on error resume next '## Ignore Errors
objNewMail.SendMail2
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
case "vsemail"
Set objNewMail = CreateObject("VSEmail.SMTPSendMail")
objNewMail.Host = strMailServer
objNewMail.From = strSender
objNewMail.SendTo = strRecipients
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
objNewMail.Connect
objNewMail.Send
objNewMail.Disconnect
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>á÷ùúê ìà ðùìçä áâìì äú÷ìä äæå: " & Err.Description & "</li>"
End if
end select

Set objNewMail = Nothing

on error goto 0
%>

zbenggg
Junior Member

Israel
227 Posts

Posted - 17 December 2002 : 17:25:44

Thank you very much...

I love Israel

Edited by - zbenggg on 17 December 2002 17:26:09

Gremlin
General Help Moderator

New Zealand
7528 Posts

Posted - 17 December 2002 : 17:42:51

Daivd could you please in future post a link to a copy of the file in text or zip format instead of posting the entire file into a topic.

Kiwihosting.Net - The Forum Hosting Specialists

David K
Junior Member

494 Posts

Posted - 17 December 2002 : 19:39:16

i know that, i usally do, but it's a reletively small file (or so I thought)

ruirib
Snitz Forums Admin

Portugal
26364 Posts

Posted - 17 December 2002 : 19:47:32

quote:
Originally posted by David K

i know that, i usally do, but it's a reletively small file (or so I thought)

Even so, posting that much code decreases the forum readability. If you want to post more than just a few lines, post it as a link to a text file.

Snitz 3.4 Readme | Like the support? Support Snitz too

zbenggg
Junior Member

Israel
227 Posts

Posted - 17 December 2002 : 21:33:51

What is subject to contention ?

I love Israel

ruirib
Snitz Forums Admin

Portugal
26364 Posts

Posted - 17 December 2002 : 22:07:35

quote:
Originally posted by zbenggg

What is subject to contention ?

No contention, just some advice to stick to Snitz recommended posting practices. Anyway, nothing related to your own posting, so no reason to worry about it.

Snitz 3.4 Readme | Like the support? Support Snitz too

zbenggg
Junior Member

Israel
227 Posts

Posted - 17 December 2002 : 22:14:37

Ahhhh...
Highlight is my email in forums Good !
Thanks David

I love Israel

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.48 seconds.