Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
HTML in body of an Email
- Thread starter cdms
- Start date
Mike Gagnon
Programmer
Are you trying to send an HTLM type e-mail through Automation?
- Thread starter
- #3
Mike Gagnon
Programmer
What trouble are you having? An what method of Automation are you using? Outlook, MAPI, CDO ? Can you post some code?
Mike Gagnon
Programmer
Here is an example using CDO.DLL
Code:
oMSG = createobject("CDO.Message")
oMSG.To = "jordanbaumgardner@earthlink.net"
oMSG.From = "jordanbaumgardner@earthlink.net"
oMSG.Subject = "Hello Email"
oMSG.HTMLBody = [< b >< P >< FONT COLOR="#CC0000" >Hello In Color< /FONT >< /b >]
oMSG.Send()- Thread starter
- #6
This is the sort of code I am using. I may be going down completly the wrong road. Perhaps you could help.
OAPP = CREATEOBJECT("Outlook.Application"
OMAIL = OAPP.CREATEITEM(0)
OMAIL.TO = "email address"
OMAIL.SUBJECT = "Subject"
OMAIL.BODY = "this is where I want my .htm file"
OMAIL.Send()
RELEASE OAPP
RELEASE OMAIL
Thanks a lot
Chris
OAPP = CREATEOBJECT("Outlook.Application"
OMAIL = OAPP.CREATEITEM(0)
OMAIL.TO = "email address"
OMAIL.SUBJECT = "Subject"
OMAIL.BODY = "this is where I want my .htm file"
OMAIL.Send()
RELEASE OAPP
RELEASE OMAIL
Thanks a lot
Chris
Mike Gagnon
Programmer
Are you trying to attach an HTML file or write HTML code?
If you tryng to attach you would use the attachement Action, like this:
If you tryng to attach you would use the attachement Action, like this:
Code:
#DEFINE MAILITEM 0
#DEFINE IMPORTANCELOW 0
#DEFINE IMPORTANCENORMAL 1
#DEFINE IMPORTANCEHIGH 2
oOutLookObject = CreateObject("Outlook.Application")
oEmailItem = oOutLookObject.CreateItem(MAILITEM)
WITH oEmailItem
.Recipients.Add("moe@3stooges.com")
.Subject = "Automation sample"
.Importance = IMPORTANCENORMAL
.Body = "This is easy!"
.Attachments.Add("c:\mydir\sample.htm")
.Send
ENDWITH
RELEASE oEmailItem
RELEASE oOutLookObject
If you trying to write HTML change the body line above to this
[code]
.Body = [< b >< P >< FONT COLOR="#CC0000" >Hello In Color< /FONT >< /b >]- Thread starter
- #8
Mike Gagnon
Programmer
I did a test using CDO.dll and I was able to send an HTML message to myself using this code:
I think originally I forget the HTML tags and the quatation marks.
Code:
oMSG = createobject("CDO.Message")
oMSG.To = "mike.gagnon@slpcanada.com"
oMSG.From = "mike.gagnon@slpcanada.com"
oMSG.Subject = "Hello Email"
oMSG.HTMLBody = "<html><body><p>Please plan to present your status for the following projects...</p></body></html>"
oMSG.Send()I think originally I forget the HTML tags and the quatation marks.
- Thread starter
- #10
Thanks again mgagnon
Unfortunitly I am dealing with about 12 pages of html from a different file that would be sent to me regularly. I think it would be far to time consuming to convert the code every time.
I have an outlook.h file that I include in the form.
It has lots of useful commands and I know that one of them would sort this problem out.
Unfortunitly I don't know the syntax to be able to call these specific commands from vfp6.
Any advise would be appreciated
Thanks
Chris
Unfortunitly I am dealing with about 12 pages of html from a different file that would be sent to me regularly. I think it would be far to time consuming to convert the code every time.
I have an outlook.h file that I include in the form.
It has lots of useful commands and I know that one of them would sort this problem out.
Unfortunitly I don't know the syntax to be able to call these specific commands from vfp6.
Any advise would be appreciated
Thanks
Chris
- Thread starter
- #11
Thanks again mgagnon
Unfortunitly I am dealing with about 12 pages of html from a different file that would be sent to me regularly. I think it would be far to time consuming to convert the code every time.
I have an outlook.h file that I include in the form.
It has lots of useful commands and I know that one of them would sort this problem out.
Unfortunitly I don't know the syntax to be able to call these specific commands from vfp6.
Any advise would be appreciated
Thanks
Chris
Unfortunitly I am dealing with about 12 pages of html from a different file that would be sent to me regularly. I think it would be far to time consuming to convert the code every time.
I have an outlook.h file that I include in the form.
It has lots of useful commands and I know that one of them would sort this problem out.
Unfortunitly I don't know the syntax to be able to call these specific commands from vfp6.
Any advise would be appreciated
Thanks
Chris
HI Chris,
OAPP = CREATEOBJECT("Outlook.Application"
OMAIL = OAPP.CREATEITEM(0)
OMAIL.TO = "email address"
OMAIL.SUBJECT = "Subject"
[COLOR=/blue]
** OMAIL.BODY = "this is where I want my .htm file"
OMAIL.ATTACHMENTS.ADD(myHTMLFile)
** or **
OMAIL.ATTACHMENTS.ADD(GETFILE())
[COLOR=/]
OMAIL.Send()
RELEASE OAPP
RELEASE OMAIL
Hope his helps you ramani :-9
(Subramanian.G),FoxAcc, ramani_g@yahoo.com
OAPP = CREATEOBJECT("Outlook.Application"
OMAIL = OAPP.CREATEITEM(0)
OMAIL.TO = "email address"
OMAIL.SUBJECT = "Subject"
[COLOR=/blue]
** OMAIL.BODY = "this is where I want my .htm file"
OMAIL.ATTACHMENTS.ADD(myHTMLFile)
** or **
OMAIL.ATTACHMENTS.ADD(GETFILE())
[COLOR=/]
OMAIL.Send()
RELEASE OAPP
RELEASE OMAIL
Hope his helps you
ramani :-9(Subramanian.G),FoxAcc, ramani_g@yahoo.com
- Status
Similar threads
- Locked
- Question
- Question
