Run Macro when an Email is received

Status
Not open for further replies.

Hudas

Member
Outlook version
Email Account
Exchange Server
Hello...

My outlook profile set up, but aside from that I have another profile which is a Group Mail Box added to me. My question is how do I run a macro when we received an email to the group mailbox. We are using an exchange server.

I've tried the Application_NewMailEx but its just firing when I received an email into my own profile.

Thank you

Hudas
 
Hi Diane,

Again Thank you very much! You've been a great help!!!

Kindly see below working code:

It fires whenever a new email is received in our Group MailBox.

Code:
Private WithEvents olInboxItems As Items 
 
Private Sub Application_Startup()
 Dim objNS As NameSpace
 Set objNS = Application.Session
 Set olInboxItems = GetFolderPath("My Outlook name here\Inbox").Items
 Set objNS = Nothing 
 
End Sub 
 
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
 'On Error Resume Next
 Dim strID As String
   Dim objMail As Outlook.MailItem
  
   strID = Item.EntryID
   Set objMail = Application.Session.GetItemFromID(strID)
 
   MsgBox "Email Received" 
 
'   If objMail.CC = "alias" Then 
 
'      objMail.Move Session.GetDefaultFolder(olFolderInbox).Folders("Inbox") 
 
'   End If 
 
Set objMail = Nothing 
 
End Sub 
 
Function GetFolderPath(ByVal FolderPath As String) As Outlook.Folder
   Dim oFolder As Outlook.Folder
   Dim FoldersArray As Variant
   Dim i As Integer
      
   On Error GoTo GetFolderPath_Error
   If Left(FolderPath, 2) = "\\" Then
       FolderPath = Right(FolderPath, Len(FolderPath) - 2)
   End If
   'Convert folderpath to array
   FoldersArray = Split(FolderPath, "\")
   Set oFolder = Application.Session.Folders.Item(FoldersArray(0))
   If Not oFolder Is Nothing Then
       For i = 1 To UBound(FoldersArray, 1)
           Dim SubFolders As Outlook.Folders
           Set SubFolders = oFolder.Folders
           Set oFolder = SubFolders.Item(FoldersArray(i))
           If oFolder Is Nothing Then
               Set GetFolderPath = Nothing
           End If
       Next
   End If
   'Return the oFolder
   Set GetFolderPath = oFolder
   Exit Function
       
 
GetFolderPath_Error:
   Set GetFolderPath = Nothing
   Exit Function 
 
End Function

I have one more question though.. will the code run if I have my outlook close?

Thank you very much!!!
 
No, macros only run when outlook is open.
 
Dang forum. :( It keep reposting my messages. ;( ;(
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
O Run macro automatically at sending an email Using Outlook 11
D Trigger macro to run when selected email is opened Using Outlook 3
X Run macro automatically when a mail appears in the sent folder Using Outlook 5
Dave A Run macro on existing appointment when it changes Outlook VBA and Custom Forms 1
S VBA Macro - Run-time error '424': object required - Help Please Outlook VBA and Custom Forms 3
B Can't run macro from QAT when emailing from Acrobat Outlook VBA and Custom Forms 0
P Vba script including macro appears in rules but wont run Outlook VBA and Custom Forms 6
L Outlook 2007 Macro to Run a Script From a Contact Form Using Outlook 41
Z Trigger macro to run after a new mail is received in Outlook? Using Outlook 3
D Create a macro in Outlook to run a rule Outlook VBA and Custom Forms 32
J Can't run macro Outlook 2007 that was created in Word 2007 Outlook VBA and Custom Forms 1
M Run external program from Outlook VBA macro Outlook VBA and Custom Forms 5
J Macro to run on Open Outlook VBA and Custom Forms 2
B Run a macro Outlook VBA and Custom Forms 1
K Macro to Run Rules Outlook VBA and Custom Forms 5
V Outlook macros no longer run until VB editor is opened Outlook VBA and Custom Forms 0
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
J Outlook Rules VBA Run a Script - Multiple Rules Outlook VBA and Custom Forms 0
N Outlook 2021 'Run Script" Rules? Outlook VBA and Custom Forms 4
T Outlook 2010 Errore run-time -2147417851 (80010105) Metodo delete ContactItem non riuscito Outlook VBA and Custom Forms 0
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
G Save attachment run a script rule Outlook VBA and Custom Forms 0
U Outlook 2019 VBA run-time error 424 Outlook VBA and Custom Forms 2
D Outlook 2013 Macros only run in VB editor, not in drop down or button Outlook VBA and Custom Forms 14
D We're sorry but outlook has run into an error Using Outlook 6
M White square in body of Outlook Messages (O2016 Version 2012 32bit Click To Run) Using Outlook 4
E Having some trouble with a run-a-script rule (moving mail based on file type) Outlook VBA and Custom Forms 5
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
Aussie Rules Run a Script on an Incoming Email OK and then the Email reverts Outlook VBA and Custom Forms 0
A Apply Selected Emails to outlook rules and Run Rules Using Outlook 5
B VBScript doesn't run on Recipient Email Outlook VBA and Custom Forms 2
A Run-time error '430' on certain emails when trying to set "Outlook.mailitem" as "ActiveExplorer.Selection.Item" Outlook VBA and Custom Forms 2
S Outlook Custom Form Scripting only working when clicking on "Run this form" Outlook VBA and Custom Forms 2
Y Outlook 2013 Run A Script Outlook VBA and Custom Forms 4
O Outlook 2016 This rule will only run when you check your email in Outlook.... Using Outlook 4
B run scripts Using Outlook 1
A Run time error 424. object required in outlook 2013 Outlook VBA and Custom Forms 10
P errors appear every time I run SCANPST Using Outlook 3
B Outlook rule run a Script doesn't work Outlook VBA and Custom Forms 1
B Wanting to run a script that will filter any body that has a russian link in it. Outlook VBA and Custom Forms 5
P Run Time Error 91 when linking contact to task in VBA Outlook VBA and Custom Forms 1
O Having rules run on old mails noved to inbox Outlook VBA and Custom Forms 8
Bri the Tech Guy Registry Tweak to make "Run a Script" Action Available Outlook VBA and Custom Forms 2
Bri the Tech Guy Run Script rule not running for newly arriving messages Outlook VBA and Custom Forms 25
J Custom form code doesn't run Outlook VBA and Custom Forms 2
J VBA Run When Reply Outlook VBA and Custom Forms 4
Vijay Error in rule- Run a script Using Outlook 1
Vijay Run script doesn't work in outlook Using Outlook 1
O VBA to Run Font Change on Outlook Startup Outlook VBA and Custom Forms 4
D Creating an outlook session from Access vba but run silently. With A specific profile Outlook VBA and Custom Forms 1

Similar threads

Back
Top