Writing macros in Outlook

[akhendre88]

Can we write macros directly into Outlook or do we have to write the same in excel and then activate the reference to the Outlook object library?

Thank you,

Akshay

 

[wideboydixon]

You can write macros in Outlook. Just press [Alt]+[F11] in Outlook to bring up the VBA editor there.

WBD

 

[akhendre88]

Thank you for your reply.

Actually I am aware of that. But I saw some macros of reading the content of mail from outlook. In which the person had asked to write the macro in excel and then refer it using outlook library.

So if we can do it directly in the outlook, where can we save the content of an email?

Thank you

 

[wideboydixon]

Anywhere you like. To a file. To Word. To Excel. To the clipboard. The choices are many!

WBD

 

[akhendre88]

Thanks...!!

 

[akhendre88]

Here is what I am trying to do.

Every hour I am getting an email alerts which have number of failure of some process. So I want to read an email using macro and if the number of failures are greater than some threshold value, I want to generate the msgbox in outlook stating that an email received at [whatever the time] have this much of failures. So any idea how can I do this.

Thank you,

Akshay

 

[wideboydixon]

I don't think you're in the right place. This is the Mr. Excel forum; you need some Outlook experts. Not sure you'll find many here.

WBD

 

[wideboydixon]

This might get you started:

https://stackoverflow.com/questions/8005713/using-vba-to-read-new-outlook-email

WBD

 

[akhendre88]

Below is what I tried and it is working for me.

Sub chnageFolder()
    Dim ns As Outlook.NameSpace
    Dim exp As Outlook.Explorer
    Dim myInbox As Folder, folder1 As Folder, folder2 As Folder
    Dim myOlItems As Outlook.Items
    Dim mItem As Outlook.mailItem
    Dim strBody As String
        
    Set ns = Application.GetNamespace("MAPI")
    Set exp = Application.ActiveExplorer
    
    'Accessing the Inbox
    Set myInbox = ns.GetDefaultFolder(olFolderInbox)
    
    'Changing the current folder from inbox to File Size
    Set folder1 = myInbox.Folders.Item("Alerts").Folders.Item("File Size")
    Set exp.CurrentFolder = folder1

    If (folder1.Items(1).UnRead = True) Then
        With folder1.Items(1)
            MsgBox .Body
        End With
    End If
                        
End Sub