(PowerBuilder) Explaining the Email FromName, FromAddress, and From Properties

This example explains the email object's FromName, FromAddress, and From properties.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Email1
oleobject loo_Email2

// The email's FROM name and address can be set in several ways.
// It can include an optional friendly name (which is just a description),
// and it must include an address.

// For example:
loo_Email1 = create oleobject
// Use "Chilkat_9_5_0.Email" for versions of Chilkat < 10.0.0
li_rc = loo_Email1.ConnectToNewObject("Chilkat.Email")
if li_rc < 0 then
    destroy loo_Email1
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Email1.Subject = "test"
loo_Email1.Body = "test"

loo_Email1.FromName = "Joe Sample"
loo_Email1.FromAddress = "joe.sample@example.com"

// the From property contains both the FromName and FromAddress
// This produces the following output:
// From: "Joe Sample" <joe.sample@example.com>
Write-Debug "From: " + loo_Email1.From
Write-Debug "--------------------------------------------------"

// Examine the MIME of the email:
Write-Debug loo_Email1.GetMime()
Write-Debug "--------------------------------------------------"

// Output is:

// 	MIME-Version: 1.0
// 	Date: Wed, 16 Nov 2016 12:32:13 -0600
// 	Message-ID: <02B461C6D12FA6686C3151A649ED8D5BBFBE0721@CHILKAT13>
// 	Content-Type: text/plain
// 	Content-Transfer-Encoding: 7bit
// 	X-Priority: 3 (Normal)
// 	Subject: test
// 	From: "Joe Sample" <joe.sample@example.com>
// 	CKX-Bounce-Address: joe.sample@example.com
// 
// 	test

// --------------------------------------------
// Alternatively, the From property can be set, and this 
// implicitly sets the FromName and FromAddress properties.

loo_Email2 = create oleobject
// Use "Chilkat_9_5_0.Email" for versions of Chilkat < 10.0.0
li_rc = loo_Email2.ConnectToNewObject("Chilkat.Email")

loo_Email2.From = "Joe Sample <joe.sample@example.com>"

Write-Debug "FromName: " + loo_Email2.FromName
Write-Debug "FromAddress: " + loo_Email2.FromAddress
Write-Debug "--------------------------------------------------"

Write-Debug loo_Email2.GetMime()


destroy loo_Email1
destroy loo_Email2