Download outlook attachments with vba according to subject does not work on other computers.

[Angel Carvajal]

I have a code that downloads attachments according to the subject, this subject is extracted line by line from excel to outlook. On my pc it works perfectly, but when checking it on another computer it doesn't throw an error message, but it doesn't download the files either.

sub download()
Dim olApp As Outlook.Application
Dim olNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim olItem As Object
Dim mailitem As Outlook.mailitem
Dim olAtt As Outlook.Attachment

Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(olFolderInbox)

For Each olItem In olFolder.Items
If olItem.Class = olMail Then
Set mailitem = olItem
For i = 1 To X
If InStr(1, mailitem.Subject, Cells(i, 1)) Then
Debug.Print mailitem.Subject
For Each olAtt In mailitem.Attachments
olAtt.SaveAsFile (ThisWorkbook.Sheets(1).Cells(3, 5) & "\" & olAtt.Filename)
Next olAtt
End If
Next
End If
Next olItem
End Sub

Thanx!!

 

[JEC]

You work with early binding, make sure the libraries are active on all pc's then.
Also the filepath is important if you use multiple pc's.

Where is the "X" variable?

 

[JEC]

Late binding:

Sub jec()
 Dim it, at As Variant, i As Long
 For Each it In CreateObject("outlook.application").GetNameSpace("MAPI").GetDefaultFolder(6).Items
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
       If InStr(it.Subject, Cells(i, 1)) Then
         For Each at In it.attachments
            at.SaveAsFile Environ("temp") & "\" & at.DisplayName    'specify your path
         Next
       End If
    Next
 Next
End Sub

 

[Angel Carvajal]

Trabaja con enlace temprano, asegúrese de que las bibliotecas estén activas en todas las PC en ese momento.
Además, la ruta del archivo es importante si usa varias PC.

¿Dónde está la variable "X"?

Certain! I forgot to mention it, the path is a variable, but in the post I put it as seen from that variable, to avoid confusion.
On the other hand, X represents the number of rows that I am comparing, since I need to read X number of cells, by the variable i that is defined in the for loop.

 

[JEC]

One more thing, are you sure that the macro will always run at the correct sheet?

 

[Angel Carvajal]

One more thing, are you sure that the macro will always run at the correct sheet?

Yes i'm sure

 

[Angel Carvajal]

Late binding:

Sub jec()
 Dim it, at As Variant, i As Long
 For Each it In CreateObject("outlook.application").GetNameSpace("MAPI").GetDefaultFolder(6).Items
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
       If InStr(it.Subject, Cells(i, 1)) Then
         For Each at In it.attachments
            at.SaveAsFile Environ("temp") & "\" & at.DisplayName    'specify your path
         Next
       End If
    Next
 Next
End Sub

This code works on my computer, not on my colleagues .

 

[JEC]

How did you specify your path?