/ 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.