outlook message recieved macro 
Author Message
 outlook message recieved macro

I am trying to write a macro that will send a reply back to someone
that emails me when i haven't checked their mail with in 10 minutes of
getting it.  This is what i have so far:

Public Sub test()
    Dim oApp As Outlook.Application
    Dim oCtl As Office.CommandBarControl
    Dim oPop As Office.CommandBarPopup
    Dim oCB As Office.CommandBar
    Dim oNS As Outlook.NameSpace
    Dim oItem As MailItem 'Object
    Dim counter As Integer

    Set oApp = CreateObject("Outlook.Application")
    Set oNS = oApp.GetNamespace("MAPI")
    On Error Resume Next
    Set oItem = oApp.ActiveInspector.CurrentItem
    Set counter = 0

    If Application.ActiveExplorer.Selection.Count > 0 Then

            Set oItem =
            If oItem.UnRead 'and time reciev more then 10 minutes ago
                'Rpley here
            End If

            Set counter = counter + 1

        Loop While counter <

    End If

End Sub

Can this be done?


Tue, 06 Dec 2005 03:07:36 GMT  
 [ 1 post ] 

 Relevant Pages 

1. Mark messages as read after recieving them from a pop3 server

2. udp send anf recieve message

3. Recieving UDP messages

4. Recieving WM_PAINT message in an usercontrol in VB

5. Recieving queued messages from COM+ using LCE's in order

6. how to recieve and send ldap compliant messages in VB

7. DirectPlay Not Recieving Messages

8. How do I recieve messages from net send

9. How to get header information of recieved letter in outlook express

10. MSComm does not recieve data when Hyper Terminal recieves data OK

11. Need Outlook macro to recurse outlook folders and create PDF file of each email

12. enable macros in outlook when outlook starts


Powered by phpBB® Forum Software