Solved

CDONTS.NewMail Send HTML without the <META> tag

Posted on 2002-06-30
9
354 Views
Last Modified: 2012-05-04
Hi,
I am using the CDONTS.NewMail object to send mail with html format.
My HTMl include the following tag:
<META content="text/html; charset=windows-1255" http-equiv=Content-Type>
The purpose tag is to set the correct encoding in outlook.
When i open the mail in outlook it's contain the html  but the numbers appears opposite instead of 1234 i am getting 4321.
when i view the source of the mail the <META> tag is disapper. The HTML mail is in hebrew language so the content of the mail is written from right to left.
Thanks.
0
Comment
Question by:gali040898
9 Comments
 
LVL 44

Expert Comment

by:bruintje
ID: 7120453
Hi gali,

How do you build the html string?

something like

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>Sample NewMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"

etc..............?

so before you send the mail could you first print the html to see if the tag is in?

HAGD:O)Bruintje
0
 

Author Comment

by:gali040898
ID: 7120628
hi,
Yes it's like your e.g.
How Can i Print the html before sending?
Do u mean to print it with CDONTS.NewMail object ?
I can tell u when i saw the email throug Outlook Web Access the result was good.
Thanks.
0
 
LVL 44

Expert Comment

by:bruintje
ID: 7120636
sorry for the confusion i didn't mean print

i meant something like debug.print HTML to the debug window so you can check if the complete string is in there
0
 

Author Comment

by:gali040898
ID: 7120642
hi,
Thanks for your quick answer.
I am at home so i can try it, but i think this is not the problem, the string is with this tag when i send the new mail. did u try it? did  u get the same result as me?
Thanks.
0
Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

 

Author Comment

by:gali040898
ID: 7120657
hi,
Thanks for your quick answer.
I am at home so i can try it, but i think this is not the problem, the string is with this tag when i send the new mail. did u try it? did  u get the same result as me?
Thanks.
0
 
LVL 44

Expert Comment

by:bruintje
ID: 7120687
you can reload with the link in the upper right of the question

got no way of testing it here, made a simple vbs script but i got no server here to test on since PWS and CDONTS don't work

maybe i can find a way tomorrow
0
 

Author Comment

by:gali040898
ID: 7124037
Hi
bruintje,  Here is my script:

Set objMail = CreateObject("CDONTS.NewMail")

sktovet = "http://Test.com"

HTML = HTML & "<HTML><HEAD>"
HTML = HTML & "<META http-equiv=""Content-Type"" content=""text/html; charset=ISO_8859-8-I"">"
HTML = HTML & "<TITLE>àúø îùàáé àðåù</title></HEAD>"
'HTML = HTML & "<META http-equiv=""Content-Type"" content=""text/html; charset=ISO_8859-8-I""></HEAD>"
HTML = HTML & "<BODY bgColor=#add8e6>"
HTML = HTML & "<div align=""right"" dir=""rtl""><P><STRONG><FONT color=blue face="""" size=5>àúø îùàáé àðåù<FONT></STRONG></P>"
HTML = HTML & "<TABLE border=0 cellPadding=1 cellSpacing=1 >"
HTML = HTML & "<TR>"
HTML = HTML & "<TD><DIV align=""right"" dir=""rtl"">" & "&nbsp;" & "" & "</DIV></TD>"
HTML = HTML & "<TD><DIV align=""right"" dir=""rtl""><FONT face="" Arial (Hebrew)"">" & "&nbsp;" & "ààà  , 54421, ááá" & "</DIV></TD>"
HTML = HTML & "</TR>"
HTML = HTML & "<TR>"
HTML = HTML & "<TD><DIV align=""right"" dir=""rtl"">" & "&nbsp;" & "" & "</DIV></TD>"
HTML = HTML & "<TD><DIV align=right dir=""rtl""><FONT face=""Arial (Hebrew)"">" & sEzer & "</DIV></TD>"
HTML = HTML & "<TD><DIV align=right dir=""ltr""><FONT face=""Arial (Hebrew)"">" & "<A HREF=" & sktovet & ">" & sktovet & "</A>" & "</DIV></TD>"
HTML = HTML & "</TR>"
HTML = HTML & "</TABLE>"
HTML = HTML & "</div></BODY></HTML>"    
   
   
   
   
    objMail.From = "XXXX@YYYY.com"
    objMail.Body = HTML
    objMail.BodyFormat = 0
    objMail.MailFormat = 0
    objMail.To = "XXXX@YYYY.com"
    objMail.Subject = "Subject"
    objMail.send
0
 
LVL 49

Expert Comment

by:DanRollins
ID: 7970916
Hi gali,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will ask a Community Support Moderator to:

    Refund points and save as a 0-pt PAQ.

gali, Please DO NOT accept this comment as an answer.
EXPERTS: Post a comment if you are certain that an expert deserves credit.  Explain why.
==========
DanRollins -- EE database cleanup volunteer
0
 

Accepted Solution

by:
SpideyMod earned 0 total points
ID: 8018463
per recommendation

SpideyMod
Community Support Moderator @Experts Exchange
0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now