Using Outlook to run a script

Hi guys,

I wrote a VBA on outlook which basically saves an attachment into a folder and then runs a vba code in another excel file that is saved in that folder also. However, it only runs the first vba in the second excel file. For simplicity, i have two codes in the second excel file, first is output Test in cell and then second code is create a new excel workbook and save it in the folder also.

here is the outlook code:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\KARMAO2\Desktop"
     For Each objAtt In itm.Attachments
         objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
        Set objAtt = Nothing
     Next
     Call Application_Startup
End Sub

Private Sub Application_Startup()
Dim ExApp As Excel.Application
Dim ExWbk As Workbook
Set ExApp = New Excel.Application
Set ExWbk = ExApp.Workbooks.Open("C:\Users\KARMAO2\Desktop\TESTING MACRO.xlsm")
ExApp.Visible = True
ExWbk.Application.Run "Module1.Test_Open()"
ExWbk.Application.Run "Module1.AddNewWorkbook2()"
ExWbk.Close SaveChanges:=True
End Sub

Here is the code for second excel file

Sub Test_Open()

Range("A1").Value = "Testing"

End Sub



 Sub AddNewWorkbook2()

    Dim wkb As Workbook

    Set wkb = Workbooks.Add
    
    wkb.SaveAs "C:\Users\KARMAO2\Desktop\WorkbookName.xlsm", FileFormat:=52
    '52 = xlOpenXMLWorkbookMacroEnabled = xlsm (with macro's in 2007-2013)
    
    wkb.Close SaveChanges:=True
    
End Sub

Why doesnt my outlook code run both these macros?

Double posted.

You'll need to put your code in [Code] tags to meet forum standards.

In the meantime though, why are you calling AddNewWorkbook2 twice? You're calling it in the Outlook code but also at the end of the TestOpen sub

It's also double posted, see my post above yours.

Originally Posted by pjwhitfield

You'll need to put your code in [Code] tags to meet forum standards.

In the meantime though, why are you calling AddNewWorkbook2 twice? You're calling it in the Outlook code but also at the end of the TestOpen sub

I have added the code tags and i edited the other posts and said solved. Sorry new to the forum.

Thanks.

I don't see anything obvious. Have you tried putting the word stop in your code so it will stop it and then stepping through it line by line to see what's happening.

I'm also curious are you calling this:
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
from some other code not shown? I ask because you have a parameter in between the () but I don't see you calling this procedure in the code you posted. I'll admit I have no experience with Outlook code but in the Sub Application_StartUp() I would put a Stop in there to see what happens on the lines where you are using Application.Run and then step through the code.

If you want help then you need to be specific. Stepping through code without errors means the VBA did run.
So where are you starting, what happens at each step, when you call a sub does it jump to that other sub, do all the lines in the other sub run?
You also didn't answer the question I asked you in my last post.