Results 1 to 7 of 7
  1. #1
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    A Bit of a Challenge (maybe) (Outlook 2000)

    How can I program Outook to send my cell phone a text message when an appointment notification event fires?
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: A Bit of a Challenge (maybe) (Outlook 2000)

    Does your text messaging service accept e-mail? For example, 8881234567@cellprovider.net? That would take care of part of the problem.

    Next, how to detect a notification event firing? Might need to troll the Outlook board for advice on that part.

  3. #3
    WS Lounge VIP rory's Avatar
    Join Date
    Dec 2000
    Location
    Burwash, East Sussex, United Kingdom
    Posts
    6,280
    Thanks
    3
    Thanked 191 Times in 177 Posts

    Re: A Bit of a Challenge (maybe) (Outlook 2000)

    There is an Application_Reminder event that might do it.
    Regards,
    Rory

    Microsoft MVP - Excel

  4. #4
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: A Bit of a Challenge (maybe) (Outlook 2000)

    Yes. My cell phone has text messaging service enabled. That part I know. And righto, it's the Outlook event for a particular appointment that I need to code up.

    I see Rory has posted the event name, but I still need to know the "appointment" name.

    A trolling we will go.
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  5. #5
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: A Bit of a Challenge (maybe) (Outlook 2000)

    Thanks. Any idea how to indicate the appointment's application_reminder event?
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  6. #6
    WS Lounge VIP rory's Avatar
    Join Date
    Dec 2000
    Location
    Burwash, East Sussex, United Kingdom
    Posts
    6,280
    Thanks
    3
    Thanked 191 Times in 177 Posts

    Re: A Bit of a Challenge (maybe) (Outlook 2000)

    It's actually an application level event.
    For example:
    <pre>Private Sub Application_Reminder(ByVal Item As Object)
    MsgBox Item.Subject
    End Sub
    </pre>

    Will flash up a messagebox with the appointment's subject just before the normal reminder appears. Obviously you'd want to test what sort of item it was somewhere in your code too.
    Any use?
    Regards,
    Rory

    Microsoft MVP - Excel

  7. #7
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: A Bit of a Challenge (maybe) (Outlook 2000)

    Rory,
    Thanks for pointing me in the right direction. Your reward is
    a nice little mod that actually works. Put the routine in the
    ThisOutlookSession object of the VBAProject.otm file.

    I noticed: MS did Outlook 2000 application events right! The
    event sub fires BEFORE the built-in appointmentitem
    notification pops up. Send_item fires before Outlook sends
    an item, etc. -- a breath of fresh air, finally!

    Const cWirelessDevice = "yourdevice@yourdeviceisp.com"

    Private Sub Application_Reminder(ByVal Item As Object)
    Dim aEmail As Outlook.MailItem
    Dim strMsg As String

    If TypeName(Item) = "AppointmentItem" Then
    If Item.Categories Like "*Wireless Notify*" Then
    strMsg = "At: " & Item.Start
    strMsg = IIf(Item.Location <> "", strMsg & " In: " & Item.Location & " - ", "")
    strMsg = strMsg & Item.Subject
    Set aEmail = CreateItem(olMailItem)
    With aEmail
    .Recipients.Add (cWirelessDevice)
    .Subject = strMsg
    .Send
    End With
    End If
    End If
    Set aEmail = Nothing
    End Sub

    Oh, I should mention how to make this work: Create a
    Category called "Wireless Notify". If you want an
    appointment reminder add this category to the
    appointment categories list. Make sure you check the
    Reminder box. The cWirelessDevice constant can hold any valid email address.
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •