outlook vba withevents, automating attachment saveas

**jassievon** · 05-25-2014, 10:36 PM

i can't get this to work for the life of me. i'm trying to automate saving an attachment when specific emails come in. I haven't even added the boolean language yet.... sheesh. any guidance with this would definitely be helpful.

Option Explicit
Private WithEvents olInboxItems As Items
Private Sub Application_NewMail()
Dim objNS As Outlook.NameSpace
Dim X As Integer
 
Set objNS = GetNamespace("MAPI")
Set olInboxItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
Dim NS As NameSpace
Dim MYINBOX As mapifolder
Dim MYITEM As MailItem

Set NS = GetNamespace("MAPI")
Set MYINBOX = NS.GetDefaultFolder(olFolderInbox)

If TypeOf Item Is MailItem Then
Set MYITEM = Item
If MYITEM.Attachments.Count = 1 Then
MYITEM.Attachments.Item(1).SaveAsFile "C:\Users\jvaughn\Desktop\Test\" & MYITEM.Attachments.Item(1).DisplayName
End If
End If
Set NS = Nothing
Set MYINBOX = Nothing
End Sub

**skatonni** · 07-21-2014, 05:01 PM

Do not use both NewMailEx and ItemAdd. It is one or the other.
See an example of NewMailEx here.
http://msdn.microsoft.com/en-us/libr...ffice.12).aspx

This is untested code.

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim varEntryIDs
    Dim objItem
    Dim i As Integer
    varEntryIDs = Split(EntryIDCollection, ",")
    For i = 0 To UBound(varEntryIDs)
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
        Debug.Print "NewMailEx " & objItem.Subject

        If TypeOf objItem Is MailItem Then
            Set MYITEM = objItem
                If MYITEM.Attachments.Count = 1 Then
                    MYITEM.Attachments.Item(1).SaveAsFile "C:\Users\jvaughn\Desktop\Test\" & _
                      MYITEM.Attachments.Item(1).DisplayName
                End If
        End If
    Next
End Sub