/ Forums / Advansys Formativ / Formativ Runtime / Sending email with different From addresses / Reply To: Sending email with different From addresses
September 15, 2003 at 1:06 am
#5777
Unfortunately no. GroupWise security stops you from ‘spoofing’ the from address. You can change the ‘FromText’ property, but this doesn’t change the ‘sent from’ email address. Here’s some sample code:
Sub Main(Client, GWEvent)
dim iDlg
dim iAddress
dim iChkBoxCtl
set iDlg = Utilities.NewControlBoxDialog
iDlg.Caption = IDS_CAPTION
iDlg.Title = "Setup From Address"
iDlg.Description = vbcrlf & "This applet will allow you to change the 'From' email address when sending a message."
set iChkBoxCtl = iDlg.AddCheckListControl
iChkBoxCtl.caption = "Select a from address:"
iChkBoxCtl.Options = fchClick
' ===============================================================================
' Add the from addresses in here.
call iChkBoxCtl.AddItem(GroupWise.account.owner.displayname, TRUE)
call iChkBoxCtl.AddItem("Test 1", FALSE)
call iChkBoxCtl.AddItem("Test 2", FALSE)
call iChkBoxCtl.AddItem("Test 3", FALSE)
' ===============================================================================
' Is the [Ok] button pressed?
if (iDlg.execute = btn1) then
iAddress = replace(iChkBoxCtl.CheckedItems.CommaText, """", "")
if (len(iAddress) > 0) then
call GroupWise.FocusSet(fcsFrom, "")
GroupWise.TypeText(iAddress)
end if
end if
set iChkBoxCtl = nothing
set iDlg = nothing
End Sub
Advansys Support