how can you send html format e-mail through mapi in powerbuilder

MAPI = Simple MAPI and not the extended version (PB supports Simple MAPI)

TRY  http://www.funcky.com to send HTML email.

Smtp.Server = "mymailserver.com"
Smtp.ToName = "A B C D"
Smtp.ToAddress = ABC@w.com
Smtp.FromName = "X Y Z"
Smtp.FromAddress = dont@spam.me
Smtp.Subject = "HTML "
Smtp.Html = "hello.html"          // HTML page

Smtp.Message = "If you can read this you can't read HTML!" // Plain text in case HTML reader not available

If( Smtp.Send()) Then

    // Sent ok

Else

    // Error

Endif

One way you can send html mail from PB using MAPI is by saving upu report as a HTML and then attaching it to your mail.
A eg:

mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mAttach

ls_path = "C:\" + dw_report.title +".HTML"

ls_attachment=dw_report.title +".HTML"

dw_report.Saveas(ls_path,HTMLTable! ,FALSE)



mSes = CREATE mailSession


mRet = mSes.mailLogon("User", "f", mailNewSession!)

IF mRet <> mailReturnSuccess! THEN
    MessageBox("Mail", 'Logon Failure.')
    RETURN
END IF

mAttach.FileType = mailAttach!
mAttach.PathName = ls_path
mAttach.FileName = ls_attachment


mAttach.Position = len(mMsg.notetext) - 1 //attachment at end of message

mMsg.AttachmentFile[1] = mAttach



mRet = mSes.mailSend(mMsg)

IF mRet <> mailreturnsuccess! THEN
    MessageBox("Mail", 'Failure.')
    RETURN
END IF

mSes.mailLogoff()
DESTROY mSes


The drawbacks to this method would be:
1.> It requires that the mail application you are using is up and running at the time you connect to the mail client.
2> If this application is running on a server that does not have an active mail session running
then your mail will not be forwarded off the server.

Try powercube at http://www.beta2alpha.com  . Using powercube you can send emails items with advanced features turned on including HTML based emails.

Hi,
Here is the sample code. It is using PowerBuilder's Mail Session Object.
The logic is:

1) Delete Attachment File
2) Create Mail Session
3) Prepare HTML Format for your report
4) Preapre Message and Attachment
5) Send Mail
6) Destroy Mail Session
7) Delete Attachment File

// DeleteFileA is the Local External Funtion
//FUNCTION boolean DeleteFileA(ref string filename) LIBRARY "Kernel32.dll"

String      ls_attach_name='c:\report.html'

// Delete old attachment file if any
DeleteFileA(ls_attach_name)

mailsession lms_MAPISession
mailmessage lmm_Message
mailFileDescription mAttach
mailReturnCode lmr_ret

lms_MAPISession = CREATE mailsession
IF lms_MAPISession.MailLogon() = MailReturnSuccess! THEN
      String            ls_text
      String ls_address

      // Prepare HTML Format for your report
      wf_generate_html()

      lmm_message.NoteText= message.stringparm
      lmm_Message.Subject =s_report.report_title
      
      ls_address = 'abc@hotmail.com'

      lmm_Message.Recipient[ 1 ].address = ls_address
      lmm_Message.Recipient[ 1 ].Name = lmm_Message.Recipient[ 1 ].address

      lms_MAPISession.mailAddress ( lmm_Message )
      
      mAttach.FileType = mailAttach!
      mAttach.PathName = ls_attach_name
      mAttach.FileName = ls_attach_name
      mAttach.Position = len(lmm_Message.notetext) - 1            
      lmm_Message.AttachmentFile[1] = mAttach
      lmr_ret = lms_MAPISession.MailSend( lmm_Message )
      If lmr_ret = MailReturnSuccess!  Then
            Messagebox( 'Mail', 'Message  sent.' )
      Else
            Messagebox( 'Mail', 'Message  not Sent' )
      End If
      lms_MAPISession.MailLogoff()
END IF

DESTROY lms_MAPISession

// Delete the attachment file from hard disk
DeleteFileA(ls_attach_name)

Regards
-sandeep

what i am looking for is how can we add a html formated body with the mail.


thanks

TRY  http://www.funcky.com to send HTML email