/ Forums / Advansys Formativ / Formativ Runtime / Sending email with different From addresses

  • Creator
  • #3663

    I’m using the Groupwise client as my POP email client. I’d like to be able to change the “From” email address when sending a message. Though I can manually enter the From address in the New Message dialog, the resulting Reply-To address from the recipient is the email address configured in the GW properties. Like the Multiple Signatures applet, could an applet be made to prompt for which FROM address you’d want to send an email from? Is there one (couldn’t find it)?

  • Author
  • #5777
    Support 1a

    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, "")
        end if    
      end if
      set iChkBoxCtl = nothing  
      set iDlg = nothing
    End Sub

    Advansys Support

Viewing 1 replies (of 1 total)
  • You must be logged in to reply to this topic.