NewMailEx event not Triggered

Status
Not open for further replies.
Hello experts,




I am working on a macro to automate the processing of incoming mails using below code:




Code:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 
 
Dim xlApp As New Excel.Application
 
 
Dim xlBook As New Excel.Workbook
 
 
Dim varEntryIDs, objItem
 
 
Dim i As Integer
 
 

 
 
Const OLECMDID_COPY = 12
 
 
Const OLECMDID_SELECTALL = 17
 
 
Const OLECMDEXECOPT_DODEFAULT = 0
 
 
Const OLECMDEXECOPT_PROMPTUSER = 1
 
 
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
 
 
Const OLECMDEXECOPT_SHOWHELP = 3
 
 

 
 
Set ie = CreateObject("internetexplorer.application")
 
 

 
 
varEntryIDs = Split(EntryIDCollection, ",")
   For i = 0 To UBound(varEntryIDs)
       Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
       If Left(objItem.Subject, 7) = "Action:" Then
           ChDir ("C:\Temp")
           TimeStamp = Format(Date, "dd-MM-yyyy") & Format(Time, "_HH_MM_SS")
           OutFile = "Dss" & TimeStamp & ".html"
           objItem.SaveAs "C:\Temp\" & OutFile, olHTML
           url = "file:///C:/Temp/" & OutFile
           Set xlBook = xlApp.Workbooks.Add(1)
               With ie
                   .Top = 1
                   .Left = 1
                   .Height = 400
                   .Width = 500
                   .AddressBar = False
                   .MenuBar = False
                   .Toolbar = False
                   .Visible = True
                   .Navigate url
                   Do While .ReadyState <> 4
                       DoEvents
                   Loop
                   
                   .ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
                   .ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
               End With
               xlApp.Visible = True
               xlApp.Application.DisplayAlerts = False
               xlBook.Activate
               xlApp.ActiveSheet.Paste
               xlApp.Range("1:5").EntireRow.Delete
               xlApp.Range("1:1").EntireRow.Hidden = True
               xlApp.Range(xlApp.Range("A1").End(xlDown).Offset(1, 0).Row & ":" & xlApp.Range("A1").End(xlDown).Offset(1, 0).Row + 3).EntireRow.Hidden = True
               xlApp.Cells.SpecialCells(xlCellTypeVisible).Columns.WrapText = False
               xlApp.Cells.SpecialCells(xlCellTypeVisible).Columns.AutoFit
               xlApp.Cells.EntireRow.Hidden = False
               xlBook.SaveAs FileName:="C:\Temp\Dss" & TimeStamp & ".xls", FileFormat:=xlNormal
               xlBook.Close
               xlApp.Application.DisplayAlerts = True
               xlApp.Quit
               ie.Quit
               Kill "C:\Temp\" & OutFile
               Kill ("C:\Temp\Dss" & TimeStamp & "_files\*.*")
               RmDir ("C:\Temp\Dss" & TimeStamp & "_files")
       End If
   Next
 
 
End Sub





This code is working perfectly on my PC but the same code is not working on my colleague's PC. The NewMailEx event is not getting triggered.


Any ideas?
 
I had just tested below code to see if the events are gettings triggered but nothing happens when I recieve an email :-(




Code:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 
 
MsgBox "New mail !"
 
 
End Sub





It should atleast show the msgbox but nothing happens :-( any IDEAS ??
 
K

Ken Slovak - [MVP - Outlook]

If VBA code is running on one machine and not another you need to check the

VBA and security settings for your versions of Outlook, which you don't

mention.

"savindrasingh" <savindrasingh.48boda@invalid> wrote in message

news:savindrasingh.48boda@invalid...

> I had just tested below code to see if the events are gettings triggered
> but nothing happens when I recieve an email :-(

> Code:
> ------------------> Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
> MsgBox "New mail !"
> End Sub

> ------------------
> It should atleast show the msgbox but nothing happens :-( any IDEAS ??

> > savindrasingh

> THANKS AND REGARDS,
> SavindraSingh
> >
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
A The EntryID in NewMailEx Event Outlook VBA and Custom Forms 1
G NewMailEx in 2010 Outlook Wishlist 1
A NewMailEx issue Outlook VBA and Custom Forms 3
B NewMailEx Only provides First e-mail in inbox Outlook VBA and Custom Forms 2
G Event when creating task from mailitem Outlook VBA and Custom Forms 2
diver864 vba for a rule to automatically accept meeting requests with 'vacation' in subject, change to all-day event, change to free, don't send reply Outlook VBA and Custom Forms 1
J Outlook 2010 Outlook/Win7 Client logging Event ID 36887 Using Outlook 0
K Recurring all day annual event Using Outlook 3
P Restore an individual all-day recurring event Using Outlook 2
K VBA BeforeItemMove event create rule to always move to its folder. Outlook VBA and Custom Forms 4
K Working with Explorer.Close event Outlook VBA and Custom Forms 3
F Outlook 2016 call to Stop Timer Event Outlook VBA and Custom Forms 4
D Event ID issues Exchange Server Administration 2
J ItemChange event Outlook VBA and Custom Forms 11
T Outlook 2016 Calendar multiday event display Using Outlook 4
oliv- Treat once an email with the ItemAdd event in a shared mailbox Outlook VBA and Custom Forms 2
M Automatically create event in calendar when task is created Outlook VBA and Custom Forms 1
A UID field in iCal files - unique per-event or per-user or both? Using Outlook 2
D help with Item/Inspector close event Outlook VBA and Custom Forms 1
B on flag message event - create task Outlook VBA and Custom Forms 22
Diane Poremsky Change the All Day Event Default Free/Busy to "Busy" Using Outlook 3
C Calendar - Centering an event in Outlook? Using Outlook 1
J Outlook calendar...How to add an event or appointment without a border around it? Using Outlook 9
J Create Calendar Alert Event form Mail Subject line? Using Outlook 4
S Item Add Event fires intermittently Outlook VBA and Custom Forms 3
R Why is a meeting organizer me and not the creator of the event? Using Outlook 1
V Calendar event acting odd Using Outlook 7
G Capture "forward event" ? Outlook VBA and Custom Forms 11
P Change the Outlook.com "from" address for calendar event invites Using Outlook 9
20 Ton Squirrel Detect Application_Startup event completion Outlook VBA and Custom Forms 1
L Outlook 2007 All Day Event Using Outlook 27
I Event listener for deleted items Using Outlook 6
M Save Attachments Event? Using Outlook 0
Commodore Calendar Folder property is missing - Event 27 Using Outlook 11
G Quit event code - 2007 Using Outlook 3
J Capturing forward event when multiple items are selected Using Outlook 0
P Trying to get 'Calendar Name' to appear like 'Subject' and 'Location' in event Using Outlook 0
G What event happens when you open 2 copies of your inbox? Using Outlook 5
D Adding a participant automatically to a calendar event Using Outlook 1
H Changing Organizer of event (for single to total calendar move; long way ) Exchange Server Administration 4
N Combobox in outlook add ons toolbar not firing event on main window resized Using Outlook 3
D Extracting Location info from All Day Event in mailboxes into webpage Exchange Server Administration 3
H Conflicts with other event in calendar ( outlook 2007 &amp; 2010) Using Outlook 0
B Restoring Deleted Recurring Event AND Notes Using Outlook 8
Q Looking for Outlook 2010 Close Event Id Exchange Server Administration 1
S Outlook Recurring event Using Outlook 1
D Task and Event View in Outlook 2010? Using Outlook 3
G item_send event Outlook VBA and Custom Forms 4
B ItemAdd event not functioning - not triggering. Outlook VBA and Custom Forms 2
L Event trigers only first two times from FromRegion. Outlook VBA and Custom Forms 4

Similar threads

Top