outlook - w3toppers.com

Can I iterate through all Outlook emails in a folder including sub-folders?

Something like this … Private Sub processFolder(ByVal oParent As Outlook.MAPIFolder) Dim oFolder As Outlook.MAPIFolder Dim oMail As Outlook.MailItem For Each oMail In oParent.Items ‘Get your data here … Next If (oParent.Folders.Count > 0) Then For Each oFolder In oParent.Folders processFolder oFolder Next End If End Sub

For Each loop: Some items get skipped when looping through Outlook mailbox to delete items

Likely cause: When you do this InboxMsg.Move, all of the messages in your inbox after the one that was moved are bumped up by one position in the list. So you end up skipping some of them. This is a major annoyance with VBA’s For Each construct (and it doesn’t seem to be consistent either). … Read more

Outlook VBA – Run a code every half an hour

http://www.outlookcode.com/threads.aspx?forumid=2&messageid=7964 Place the following code in the ThisOutlookSession module (Tools->Macros->VB Editor): Private Sub Application_Quit() If TimerID <> 0 Then Call DeactivateTimer ‘Turn off timer upon quitting **VERY IMPORTANT** End Sub Private Sub Application_Startup() MsgBox “Activating the Timer.” Call ActivateTimer(1) ‘Set timer to go off every 1 minute End Sub Place the following code in an … Read more

Multipart email with text and calendar: Outlook doesn’t recognize ics

You are missing the iTIP method, both in the content-type: Content-Type: text/calendar; charset=”utf-8″; method=REQUEST and as a VCALENDAR property as well: BEGIN:VCALENDAR VERSION:2.0 METHOD:REQUEST PRODID:-//GourmetPortal//NONSGML rr//DE The method might be PUBLISH or REQUEST (in which case you also miss some ATTENDEE property). Then, some clients are ignoring iMIP in multipart/alternative and are looking only as … Read more

How do I trigger a macro to run after a new mail is received in Outlook?

This code will add an event listener to the default local Inbox, then take some action on incoming emails. You need to add that action in the code below. Private WithEvents Items As Outlook.Items Private Sub Application_Startup() Dim olApp As Outlook.Application Dim objNS As Outlook.NameSpace Set olApp = Outlook.Application Set objNS = olApp.GetNamespace(“MAPI”) ‘ default … Read more

How to copy Outlook mail message into excel using VBA or Macros

Since you have not mentioned what needs to be copied, I have left that section empty in the code below. Also you don’t need to move the email to the folder first and then run the macro in that folder. You can run the macro on the incoming mail and then move it to the … Read more

How to add default signature in Outlook

The code below will create an outlook message & keep the auto signature Dim OApp As Object, OMail As Object, signature As String Set OApp = CreateObject(“Outlook.Application”) Set OMail = OApp.CreateItem(0) With OMail .Display End With signature = OMail.body With OMail ‘.To = “[email protected]” ‘.Subject = “Type your email subject here” ‘.Attachments.Add .body = “Add … Read more

Get reference to additional Inbox

Something like this should do the trick Dim objNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Set objNS = GetNamespace(“MAPI”) Set objFolder = objNS.Folders(“Procurement, Request”) Set objFolder = objFolder.Folders(“Inbox”) This link has some useful code for handling different Inboxes – it may be of interest