Outlook VBA

[Johndinho]

Hi,

Not sure if this is better suited here or the main forum, but here goes

I have the code below that is supposed to save an email attachment to a defined location on receipt in Outlook.

Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
  Dim olApp As Outlook.Application
  Dim objNS As Outlook.NameSpace
  Dim objAtt As Outlook.Attachment
  Set olApp = Outlook.Application
  Set objNS = olApp.GetNamespace("MAPI")
  Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub Items_ItemAdd(ByVal item As Object)


  Dim Msg As Outlook.MailItem
  Dim saveFolder As String
  If TypeName(item) = "MailItem" Then
    Set Msg = item
    ' ******************
    saveFolder = "C:\Automation"
    objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName        '<-------Error Here
    ' ******************
  Else
  End If
ProgramExit:
  Exit Sub
End Sub

When the email is received I get error "424-Object required" but it is defined above??

Anyone tell me where I am going wrong please?

Thanks,

John

 

[ranman256]

you declared it, but i dont see where you assigned (created) it.


Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.createitem(olMailItem)

msgbox oMail.Attachments.count

 

[Johndinho]

Thanks ranman,

I've tried adding your lines in several different places, restarting outlook each time and i still get the same error message..

I've changed what I'm looking for now - All I want is to open the attachment. Everything else I can do in Excel VBA. I'll start a new thread

Thanks

 

[Johndinho]

Outlook VBA - Open Attachment

Hi,

I'm sure this is a lot easier than it appears to be..

I'm looking for some code to open a .xlsm attachment on receipt into Outlook. I have seen lots of examples, some using Shell, some using rules, some I swear are written in Martian but I cannot get a single one to work

HELP!!

Once the xlsm is open, I can load everything else I do into Excel VBA (where I am much more comfortable).

I don't understand why this has to be so hard!!!

On Receipt of email with attachment
Open the attachment