Configure Lookout to email you reminders

    This is useful if you want to send Lookout reminders to your phone via an SMS email gateway.

    Create the VB script to do it:

    1. Press ALT+F11 to open the VB Window.
    2. Double-click Project1, click Microsoft Outlook Object, and click ThisOutlookSession.
    3. Enter the code below in the code window, modifying the "To" portion of the message.
    4. On the File menu, click Save VbaProject.otm.
    5. Close the Visual Basic Editor and quit Outlook.

     

    Make sure the macro can run
    Restart Outlook. When prompted with a security warning, click "Enable Macros".

    -- or --

    Lower your security settings by clicking Tools -> Macros -> Security. Make the
    changes and click "OK".

    -- or --

    (Outlook 2010) From the File menu, go to "Trust Center" then click "Trust Center Settings" and choose "Macros" then enable all macros.

     

     
    # ---- begin codePrivate Sub Application_Reminder(ByVal Item As Object)
    
    Dim objMsg As MailItem
    
    ' create new outgoing message
    
    Set objMsg = Application.CreateItem(olMailItem)
    
    ' your reminder notification address
    
    objMsg.To = "This email address is being protected from spambots. You need JavaScript enabled to view it."
    
    objMsg.Subject = "Reminder: " & Item.Subject
    
    ' must handle all 4 types of items that can generate reminders
    
    Select Case Item.Class
    
    Case olAppointment '26
    
    objMsg.Body = _
    
    "Start: " & Item.Start & vbCrLf & _
    
    "End: " & Item.End & vbCrLf & _
    
    "Location: " & Item.Location & vbCrLf & _
    
    "Details: " & vbCrLf & Item.Body
    
    Case olContact '40
    
    objMsg.Body = _
    
    "Contact: " & Item.FullName & vbCrLf & _
    
    "Phone: " & Item.BusinessTelephoneNumber & vbCrLf & _
    
    "Contact Details: " & vbCrLf & Item.Body
    
    Case olMail '43
    
    objMsg.Body = _
    
    "Due: " & Item.FlagDueBy & vbCrLf & _
    
    "Details: " & vbCrLf & Item.Body
    
    Case olTask '48
    
    objMsg.Body = _
    
    "Start: " & Item.StartDate & vbCrLf & _
    
    "End: " & Item.DueDate & vbCrLf & _
    
    "Details: " & vbCrLf & Item.Body
    
    End Select
    
    ' send the message
    
    objMsg.Send
    
    Set objMsg = Nothing
    
    End Sub
    
    

     

    No questions yet.