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

  • Creator
    Topic
  • #3663
    bkeadle
    Participant

      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
      Replies
    • #5777
      Support 1a
      Participant

        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

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