Visual FoxPro
Visual FoxPro
Create MIME Containing HTML
See more MIME Examples
Calls SetBodyFromHtml to load HTML into the MIME body. Also sets the Content-Type header to "text/html", and the Content-Transfer-Encoding to an appropriate transfer encoding based on the characters found in the HTML.Chilkat Visual FoxPro Downloads
LOCAL lnSuccess
LOCAL loMime
LOCAL lcHtmlDoc
lnSuccess = 0
* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.
loMime = CreateObject('Chilkat.Mime')
* Add a few header fields:
lnSuccess = loMime.AddHeaderField("Description","this is a test")
lnSuccess = loMime.AddHeaderField("MyId","123")
lcHtmlDoc = "<html><body>Test</body></html>"
* Set the MIME body via SetBodyFromHtml. This also
* has the intended side-effect of adding the Content-Type
* and Content-Transfer-Encoding headers.
lnSuccess = loMime.SetBodyFromHtml(lcHtmlDoc)
? loMime.GetMime()
* The MIME should look like this:
* Description: this is a test
* MyId: 123
* Content-Type: text/html;
* Content-Transfer-Encoding: 7bit
*
* <html><body>Test</body></html>
* Note: The Content-Transfer-Encoding may be changed.
* For example, to use "base64", do this:
loMime.Encoding = "base64"
* Show the MIME again, this time using the base64
* transfer encoding:
? loMime.GetMime()
* It should look like this:
* Description: this is a test
* MyId: 123
* Content-Type: text/html;
* Content-Transfer-Encoding: base64
*
* PGh0bWw+PGJvZHk+VGVzdDwvYm9keT48L2h0bWw+
RELEASE loMime