Solved

CDONTS.NewMail Send HTML without the <META> tag

Posted on 2002-06-30
9
358 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
U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

 

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
 

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

The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Reading the Contents of a Directory In Access VBA 5 68
to transfer string from C lanaguage to VBA 4 65
Excel Automation VBA 19 70
VB6 - Scroll Mouse wheel on Picturebox 13 44
When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
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…

773 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