<?xml version="1.0" standalone="yes" ?><script uid="{5A7ABB85-527D-4E41-8B2D-2B5F019CAC1A}" shared="f" desc="Go to sender's web page" help="Get the domain name from the sender's address, and lookup their web site in Internet Explorer" imglib="editButton.dli" imgid="111" fav="f" inten="t" vbe="f" created="20020220T232749" smod="20020416T161155" pmod="20020415T164751" lfdn="" rm="t" ver="" author="" amail="" aurl="" acom="" aphone="" comex="f" dxwrn="f"><integrations><integration type="ngw_toolbar" context="GW.MESSAGE.MAIL" event="" seq="b" otherid="" menu="" before="" anchor="an_under"></integration></integrations><source><primary><![CDATA['-------------------------------------------------------------------------------
' Formativ Solutions for GroupWise
' DWS Go to sender's web page
' Designed by: Dave Strickler (dstrickler@emailsolutions.com)
' DWS Inc. (www.emailsolutions.com)
' Version 1.0
'
' Description:
' Allows you to look at a sender's web page from their Domain name
' Created by Dave Strickler (dstrickler@emailsolutions.com) www.emailsolutions.com
' 
' Note: This code provides only basic functionality and makes the following assumptions:
'
' 1) the domain name is the entire text to the right of the "@" message in the
'    sender's email address;
'
' 2) Internet Explorer, which is required, is installed in C:\program files\Internet Explorer\.
'
' INTEGRATIONS: Mail view toolbar.
'-------------------------------------------------------------------------------
'-->Flexalock
Sub Main(Client, GWEvent)

Dim Msg               ' The object that will contain the message
Dim DomainName        ' The Internet domain name of the sender
Dim SenderAddress     ' The sender's email address
Dim fso               ' File System Object

const IEPath = "C:\program files\Internet Explorer\iexplore.exe"

  'Check if Internet Explorer is installed on C: and exit if not found
  set fso = CreateObject("Scripting.FileSystemObject")
  if not (fso.FileExists(IEPath)) then
    Call MsgBox("Sorry, the applet could not find Internet Explorer on your C: drive. You may need" &_
           " to install Internet Explorer or change the IEPath constant in the applet.",0,"DWS Go to sender's web page applet")
    exit sub
  end if

  on error resume next
  Set Msg = Client.ClientState.CommandMessage
  if Msg is Nothing then
    MsgBox("No items were available")
  else
    ' Formativ can read the message OK - proceed...
    
    ' Get the data we need form the email message
    SenderAddress = Msg.Sender
    DomainName = Mid(SenderAddress,InStr(SenderAddress,"@")+1,255)
    
    ' Call IE and pass in the parameters
    Call GroupWise.RunProgram(IEPath, "http://www." & DomainName)

  end if
  Set Msg = nothing
  Set fso = nothing
  
End Sub
]]></primary><backup/></source></script>