I got ONE-click relay dialing from Microsoft Outlook now [Outlook Script]

M

Mark Rejhon

Member
Joined
Oct 5, 2003
Messages
355
Reaction score
10
Hi,

I found out how make Microsoft Outlook 2000 directly launch a
web-based IP RELAY service (similiar to www.relaycall.com
/ www.sprintrelayonline.com / www.ip-relay.com / www.hiprelay.com)
and dial a phone number through a relay service upon one click
inside Microsoft Outlook.

This step requires you to have computer programming skill,
unfortunately -- but fortunately you only need some
BASIC programming experience.

I just modified the existing Outlook form (IPM.Contact)
to add four buttons with names RelayDial1, RelayDial2, RelayDial3, and
RelayDial4 -- alongside the four main phone numbers inside Outlook.

This code was written for Microsoft Outlook 2000
Not tested with Outlook 2002 / XP. This also works great
with a PocketPC or PalmPilot syncing to Outlook. (I had to
switch from Palm Desktop to Outlook, by using Pocket Mirror,
although now I am using a PocketPC.)

Finally ONE-CLICK relay service dialing directly from Outlook!!
(after I've added the script). The code is as follows:

(You will also need to replace the default IPM.Contact
form with one that includes the below snippet of scripting)
(Please note, I leave it up to you as an exercise to learn
how to create Microsoft Outlook scripts -- you need to be
a computer programmer to do this)


Code: 
SUB RelayDial1_Click( )
    Set objOL = CreateObject("Outlook.Application")
    Set objForm = objOL.ActiveInspector.ModifiedFormPages("General")
    LaunchPhone(objForm.Controls("Phone1"))
End Sub

SUB RelayDial2_Click( )
    Set objOL = CreateObject("Outlook.Application")
    Set objForm = objOL.ActiveInspector.ModifiedFormPages("General")
    LaunchPhone(objForm.Controls("Phone2"))
End Sub

SUB RelayDial3_Click( )
    Set objOL = CreateObject("Outlook.Application")
    Set objForm = objOL.ActiveInspector.ModifiedFormPages("General")
    LaunchPhone(objForm.Controls("Phone3"))
End Sub

SUB RelayDial4_Click( )
    Set objOL = CreateObject("Outlook.Application")
    Set objForm = objOL.ActiveInspector.ModifiedFormPages("General")
    LaunchPhone(objForm.Controls("Phone4"))
End Sub

SUB LaunchPhone(PhoneNumber)
    Set objWeb = CreateObject("InternetExplorer.Application")
    '
    ' Delete all characters that's not a digit
    FOR Index = Len(PhoneNumber) TO 1 STEP -1
        Digit = MID(PhoneNumber, Index, 1)
        IF (Digit < "0") OR (Digit > "9") THEN
            PhoneNumber = LEFT(PhoneNumber, Index - 1) & 
                          MID(PhoneNumber, Index + 1)
        END IF
    NEXT
    '
    ' Web address to use
    URL = "https://www.hiprelay.com/cgi-bin/quickcall.exe"
    '
    ' Parameters to use
    Params = "?m=Mark&p=" & PhoneNumber & "&q=N"
    '
    ' Launch web browser
    objWeb.Navigate URL & Params
    objWeb.Visible = True
End Sub


Note: If you want to send me email, please do so via my website. (Spam proof method)

Thanks,
Mark Rejhon
http://www.marky.com/hearing/
 
Unfortunately, I'm only able to automate one-click dialing from Microsoft Outlook via Hamilton's IP relay service, http://www.hiprelay.com .... Please, service providers, modify your websites.
AT&T Relay Call - http://www.relaycall.com
Sprint Relay Online - http://www.sprintrelayonline.com
MCI IP-Relay - http://www.ip-relay.com

Can you add a new feature to your websites so that I can dial a phone number inside a web address such as:
"http://www.relay.call/cgi-bin/dialthis.cgi?Phone=800-555-1212"

Everybody else, please contact these other people:
http://www.consumer.att.com/relay/feedback.html
https://www.ip-relay.com/contact.htm
http://www.relaycall.com/national/national_us.html
When contacting these people, please give them the web address of this post.

PS - if somebody wants to hire me for some services, I'd be happy to write a software installer (i.e. InstallShield) that installs these scripts into Microsoft Outlook in a user-friendly manner without them needing any computer programming know-how.

(Contact me via the email address on my website, since the email address I use for this forum is not used except ONLY for registration forms -- spam proof address)
 
Back
Top