Compiling Error/Auto Print Attachments

[thejester]

26815
This code runs, and spits out the email and attachment, but keeps giving this error. Any help is appreciated.

' Script to run with an Outlook rule.
' Open Visual Basic window in Outlook,
' and paste the entirely of this script
' into the ThisOutlokkSession window
' Save the script and close=and=reopen
' Outlook to test.






Sub AttachementPrint(Item As Outlook.MailItem)


On Error GoTo OError


' This script finds the system's Temp folders,
' saves any attachments, and runs the Print
' command for that file.


Dim oFS As FileSystemObject
Dim sTempFolder As String
Set oFS = New FilesSystemObject
sTempFolder = oFS.GetSpecialFolder(TemporaryFolder)


cTmpFld = aTempFolder & "\OETMP" & Format(Now, "yyyymmddhhmmss")
MkDir (cTmpFld)


' in the next few lines, you'll see an entry that says
' FileType = . This line gets the last 4
' characters of he file name, wich we'll use later.


Dim oAtt As Attachements
For Each oAtt In Item.Attachements
FileName = oAtt.FileName
FileType = LCase$(Right$(FileName, 4))
FullFile = cTmpFld & "" & FileName
oAtt.SaveAsFile (FullFile)


' We're using the FileType text. Note that it's the
' last 4 characters of the file name, wich is why
' - the period counts as the fourth character.
' Insert any file extensions you want printed.


Select Case FileType
Case ".pdf", ".xls", "xlsx", ".ppt", "pptx", ".doc", "docx"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
Set objFolderItem = objFolder.ParseName(FullFile)
objFolderItem.InvokeVerbEx ("print")
End Select
Next oAtt


'Cleanup
If Not oFS Is Nothing Then Set oFS = Nothing
If Not objFolder Is Nothing Then Set objFolder = Nothing
If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing
If Not objShell Is Nothing Then Set objShell = Nothing


OError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description
Err.Clear
End If
Exit Sub


End Sub

[gmayor]

You can't make up your own syntax or spell command names incorrectly and expect it to work. Based on your code the following corrects the errors


Sub AttachmentPrint(Item As Outlook.MailItem)
Dim oFS As Object
Dim sTempFolder As String
Dim oAtt As Attachment
Dim sFilename As String
Dim sFileType As String
Dim sFullFile As String
Dim objShell As Object
Dim objFolder As Object
Dim objFolderItem As Object

On Error GoTo OError
' This script finds the system's Temp folders,
' saves any attachments, and runs the Print
' command for that file.

Set oFS = CreateObject("Scripting.FileSystemObject")
sTempFolder = oFS.GetSpecialFolder(TemporaryFolder) & "\OETMP" & Format(Now, "yyyymmddhhmmss") & "\"

MkDir sTempFolder

' in the next few lines, you'll see an entry that says
' sFileType = . This line gets the last 4
' characters of the file name, which we'll use later.

For Each oAtt In Item.Attachments
sFilename = oAtt.fileName
sFileType = LCase$(Right$(sFilename, 4))
sFullFile = sTempFolder & sFilename
oAtt.SaveAsFile sFullFile

' We're using the sFileType text. Note that it's the
' last 4 characters of the file name, wich is why
' - the period counts as the fourth character.
' Insert any file extensions you want printed.

Select Case sFileType
Case ".pdf", ".xls", "xlsx", ".ppt", "pptx", ".doc", "docx"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
Set objFolderItem = objFolder.ParseName(sFullFile)
objFolderItem.InvokeVerbEx ("print")
End Select
Next oAtt

'Cleanup
If Not oFS Is Nothing Then Set oFS = Nothing
If Not objFolder Is Nothing Then Set objFolder = Nothing
If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing
If Not objShell Is Nothing Then Set objShell = Nothing

OError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description
Err.Clear
End If
Exit Sub

End Sub

[thejester]

26817http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAdMAAAD3CAYAAABGtL45AAAgAElEQVR4Ae2d3XMc 15mf5yaVvdu/wVXeS1 pfMMqV0qbi6yq8mVFqUSSa8W1tSxLXnO1K8lrp6Jl7LVoy7YUrCpybZzNLm2XI3upj0i2GEsWSZ EQv0mAAAkCJEB8ECABgiIJSda3pTf168E7ONPoxvSgMZjunodVw5npOd19 jm/7qfP6Z5B7fqbb9sbS2/ZtZtv2tXrN 3q9Rs2f 26Xb56zWbnr9qlKws2M3fFpueu2NTsZZu8NGcXZ2ZtYvqSTUzN2PjkdPS4cHHKeMCADJABMkAGy pQBd5h8Jq/Jb3KdnDdzed5mryzY5YXFyIly48IbNyJXLt5Yirwpf8qjNRepPlChK4tv2NzCYrSQqUtzNrkszg uT03b 4pSNTUza2PhFG70wYefOj9vI2IXocXb0vPGAARkgA2SADJQpA 4w UxeG5u4GLlufGraLk5fsunZy1Gncm7 ql25ei3qbCYJtaYeqYt0flmkMrLsHMlz/KKNnB 3M6Pn7cy5MRseGbWhs fs9JkRGxw awNDZ6LHqdPDxgMGZIAMkAEyUNQMnDw9ZP7wOrrD5DN5bWjkXOQ6SVYdR/VYp2bnog7mWkJdkeny0K66tRLpn311Ow8YkAEyQAbIQE9nQL1V9VI1UqvLnhq51WVQH/JdvH7Trt1YstrVq1dtfn7eLlbJcuXbKLFy/a2NiYfeUrXzH QQACEIAABHqVgDw4NDRko6OjNj4 blNTU5EnZ2dnbW5uzq5cuRL5Ux6tLSwsRBP0wczMjE1MTNi5c eQaa mh 2GAAQgAIGIgGQ6MDBgZ8 etfPnz0edzenp6ciVEqo6oRKqPFrzXqk kHVlX81Iz5Q0QQACEIBALxOQB0 ePGnDw8NNvVN1PDWSq06ohCqP1mRVTdAHk5OTkX01IzLt5Qix7RCAAAQgIA8eO3bMBgcHbWRkpN E7VcdTQg2He2uyqg/x6nqpxoY1RoxMCRIEIAABCPQyAXnwyJEjjaFe3U k0Vt1PDXcG/ZOI5nKrvrAr5eePn0amfZygth2CEAAAhCIPHjo0KHGUK/uJ7pw4UJ07TTsnapTWvMhXr9eqq6sLrhm7Znu2rXL9u/f33js27ffvvPY4/bee /RFBCAAAQgAIHSEpAH /v77fjx46ZOpg/1JvVOa qVqqsqmcq4uvno1KlTbcnUSb377nt251132c7Hn7KbN2/6ZJ4hAAEIQAACpSMgmR48eLBx3VR 1KXQpN5pJFNdSPWbj86cORN1advpmT766KP28suv2B133GGfv NOe iRx5Fp6WJDhSEAAQhAICQgDx44cMCOHj0adTLlR8lUX5PRZVG/dqpOaU29UsnUf6xBd/KeOHGirZ7psePH7VOf pT9 /9wp 0//ZZ98c8fQ6Zhi/AaAhCAQIEI6OseWR4FqnJUlVqtFtU7rV7aJpXZqH S6WuvvRbdhKQRW/lR102TbkSKZOo3H/mdvBofbqdn ta7n9hzLx2w/QPX7Lkj79rnv7gzh0z32LZaLQIiKHps25MFjebbYn3jWcqmlBnvsy1tL2O99U2pA5MhAAEIdJiA pNPqX5YyrZax0Z rTv/sn/9eolDX my99ZAH9 3bZ34Tkr7pouum4VCv39WbW6aHDx 2//LIf7MdO/vsv367z772yGP21Ye/aS8dGrcn/89B4/7LW/ dGr9sgPX7G/evJle/CJPXbbn 5c4walmBT3bLNabZu19mlsvvXSa3u bq237YoyAwQgAIGIQBZRZinTDZxJ0kyathF1k0z37t0byVQjtroJKe26aU1DvH4nr2yrwvqSajs 90/BuXr3W3bzHxpbswPAN 3/H37DdBxds18tX7IcvztmXv/28/ck3/tcaPde4nOLv0xBlLZc2/3qnd2u9660v80EAAr1OIIsos5TpFsdQnuHrja6PPPjqq6/a66 /Ht3Rqx9vkEw11OvXTf0rMrll szzv7RP9uyx dtus0/OnbMbn/ucfffxp5ZFes12H7waifSpF fsOz87b9986kX7 hPPZZepeqZb qw ehsXV/g fG1m0ZCtDxd7z3bc rb4tKTh43AZy6/71DOuz7MlcQw5nCdsyvr0bdu2LPes4 /jdQzr01w2XCqvIQABCOQlkEWUWcrkrUee V2iacO eZbt826aTD/GP74T/8IlrvJ3fcYdO///s2/PfPRnfz/vhXA/YXP3jRtj7yc7v7G0/bf/ra0/bFv/65vXpywb72 PMtZLoivFrTBdO4uML3aa/NbM82i0QoMTctz5H5c3wZtZXyqcPNmieob2NIuj59RcDJ7xvVabpeGy/r9eMZAhAoGgE/2W71XKR6ZxFlljLd3KZKyfRXrx62//G/n7dPhoft h/8gc3d86c28C//tX3hz75nD//gRfvyN3fbPd/4md354E/sC1/7sT3wveftxcNv2OfvX urMxLJ8o1EkWC8V6lmCz6LWjF8H7xu6pUui07WWp6 Irh4FIJlrLmucL5wnrWmx8qt2jY533unsbLhYnkNAQhAICeBLKLMUiZnNdY9u4tUz HrdS8wZcZN65n zd 9ZP/9R7vtykt77eTuV63/zDs2/NiP7N/9yU77853P2b2P/Nz 8J7v27/4wmP2r770fXvi6XP2cN9v7O9/stvef//9lOo3i2S8b0u9VxmVbv6sWa7BZwmiClemZSbfJRwsA5mGyHgNAQhUiEAWUWYp0w0kSfJMmrYRdW tLprp4qi f6nszurCqnxLUD/vef//9Levywr5BO3d wh5/8n/af773Ibv9j//SbrvjfvvcbfdEIv039/2tPffatD2z/7Jtf wle/Qn5 zOB/rs vXr9sknn6QsPxSaioTv69c8G0Oj0dCrfx0mLKfXtUDCq1fVLGn/PL4MX3a8Hl6 nenhsn0 74n69VPvhcfLhuvjNQQgAIF8BLKIMkuZfLVof 61pLnWZ 2vqT6HPPjKK69EP9wgL q7pvp6TPwmJP14Q21xcTH6W2z6BQeJVVJV4e3bt7dc///dO2g33/7IFm9 aGPTS3b3Q39n//a v7U/uveJ6Pm5/dP27GuX7R9fmrb7vv2CffGvf2EvvPQbCDD9ZY9mqRRD1JvwkpEqgP3W5bGRJukq7LKbiWKQOH8z aubYZVCdcdvlaZ HufT9OD9TQkHi8ffx vYxZx zp5hgAEILB AhJPlsf619CZOTWiqHqn/dNnKrNR/ RB/TavvhYjL obL/7LR/omjH7bXn/LVB7NJdNnfzNg8zc tOmF92zs0jt26sKS9Q9fs98cX7BfHZq3Z167Yj/eM2NPPTNhX9rxjH3pr/psaWlpo7aT5UAAAhCAAAQ6RmDTZPrQ9562rz/xjD38/d32l4/9kz3w3X yrz76C/vyt562Lz3yM/vjb/zU7nz4x/Yf/ If7Q/vecwOHz1hH330Ucc2nAVDAAIQgAAENorApslUf2ZNfx0m64M/y7ZRTcxyIAABCECg0wQ2Taad3hCWDwEIQAACEOgWAWTaLfKsFwIQgAAEKkMAmVamKdkQCEAAAhD oFgFk2i3yrBcCEIAABCpDAJlWpinZEAhAAAIQ6BYBZNot8qwXAhCAAAQqQwCZVqYp2RAIQAACEO gWAWTaLfKsFwIQgAAEKkNgw2Sqn/7jAQMyQAbIABnoxQwgU04COAkiA2SADJCBnBlApjkB9uIZGNtMz4MMkAEy0JwBZIpMOSMlA2SAD JCBnBlApjkBcnbWfHYGD3iQATLQixlApsiUM1IyQAbIABnImQFkmhNgL56Bsc30PMgAGSADzRlA psiUM1IyQAbIABnImQFkmhMgZ2fNZ2fwgAcZIAO9mAFkikw5IyUDZIAMkIGcGUCmOQH24hkY20z PgwyQATLQnIGuyPRb3 kzHjAgA2SADJCBomcg60lD12RamV83ZkMgAAEIQKCSBCR6ZFrJpmWjeoXA5cuXe2VT2U4IFJYAM i1s01AxCGQjgEyzcaIUBDpJAJl2ki7LhsAmEECmmwCZVUCgBQFk2gIQH0Og6ASQadFbiPr1AgFk 2gutzDZWmgAyrXTzsnElIYBMS9JQVBMCaQSQaRoZpkNg8wgg081jzZog0BECyLQjWFkoBNoigEz bwkVhCBSPADItXptQo94jUAGZ7rFttZrVgse2PVkaUvNtsb7xLGUpA4HiElhbpuvdP4q7vdQMAk UkUBGZBlLcs81qtW3W2qfItIiBpE7tE2gt02D/aH/xzAEBCGQgUD2ZmiTpMo0LM3wfvhYpvV/u4Wbr2mbASxEIdJ7A mRaz/ 2bVustqXPxqP8b7GV96p3sE80jeLE5 38NrIGCBSdQOVkOt7nBwehr /0K0O54fvwtdmebTWrO3Tc rZwJl/04FK/FQKtZRpeBglPNGu2pbFzaH8I39f3icbnGvGJpOv7VXPZldrwCgK9SaAiMg0OFk29ymZhNss1/Kx IGn/umtvhoatLhaB1jJNOjkM86/taed9vGyxeFAbCHSDQEVk6gcL9Sq9hymc8Z0 fJ/2uhvNwDohsH4CyHT97JgTAhtFoGIyNbPxPtvSuGYak2t0c5KLN5RpvVxjSGuj6LIcCGwCgc7ItN Uwr 9Hm7CBrAICJSBQPZlGPg2um0YC9RuLtgVfhwll6hL24WK/rlSCFqSKPU gtUw91/Xn kljLP rRnGEVWV83lCe8Xl7vgkAAAGrgExpRQj0NoG1ZdrbbNh6CGwWAWS6WaRZDwQ6RACZdggsi4VAGw SQaRuwKAqBIhJApkVsFerUawSQaa 1ONtbOQLItHJNygaVkAAyLWGjUWUIhASQaUiD1xDoDgFk2h3urBUCG0YAmW4YShYEgXUTQKbrRs eMECgGAWRajHagFr1NAJn2dvuz9RUggEwr0IhsQukJlEamPx1YMh4wIANkgAyQgaJlQGcCyBRJc 5JCBsgAGSADOTKATHPAK9qZEfXhbJ0MkAEy0J0MIFNkytkoGSADZIAM5MwAMs0JkLPA7pwFwh3u ZIAMFCkDyLQoMn1hp336MzvtB0WpD/Wo9pl6CfP2gwc/a7Xbd9tDt9fs0w8OWPx96oF1M7ZV66httYfYb9rbb1q1TavPC8S7MjL9dOPPROnPRaWEOkvDpJX R9MY6lpefqazq81m7 4UWZ5FpyypQWFIPVtSxvQPIpvEasLs/438 rfn507dv3fyTtywZX6vMk1sjmUqitz65ZD Nv0/jutYy0 Zpd3q4jvB1u8sJy7daTqvPw2W1ep11WVnLtVqff 7L82ef7s9p0/3zAj1XR6Zhr047Wfi HeBrNV78s/h7X098ut6nCT5tHp/Oc0FF1eLkqGjtlpTJ9e4jndy2eD3DdT25tdEjdZl6DzV6H5YNX6 1zLBcrte77VbnuSnrW7KfbtZ6cnFpsZ 02oZWn3eybm0uu5oyHdhtt0peyw1x9 3LvVVvmKbp9TP2 s7YfCavHbWpN bzR5DXKNtUTmFaro/mi3/m7/3ZyzR6wRl6tW02etM2MW9zG1eVR5gvz9hndlp93wj3geWMtshfNMTqZVwiUc5XesC3Pli/dJG8/221W4Nec6b9r5220fZ6/fTsdWyaHoxgNU1f2edWbecyx0RuUf3WOC4490a9fD06PtSHrqN9M6rLZ 3uJ1cu/ayqx0A762keSWu0R8hzebt0mWn1ugIherk0DlHdA67Bsa9puT5aF1tedJkrWsZKjhptF9a3gK8r KdOo0bTzLDdK46w1bLharT5UpEYJe7JeJqmx4p/F3/s88elrLd/L nMQvsaO5QcCXz7PvSHAjWznRr6WD4x6n7gPBCd Wn98Pp8WjLQ8dLsOnvWDe2Nfa5QL9jNfVrRuF8ny/ufL8zK5tr0up0ZdGstsnh4dJ27f3Xyy6/VuHD9WxBBtZ1T3YJvCfdvr3FhfIKHoszXYRst1jstsfDmNz rLq/NOaZvGelbq2NjOaDkr05tOqlutK75t8WUFHHRNu8Fe0yPGMRY PVxvdJxrbqPE/HldCvZcHZk2zvZiZ6GhiFY1XHBg8XJeJqmh4p/F3/s8mp5UH30en8ffh8/hvNHrlR26aQfw9fGMXFtlwPPl5dLea3rL/NUPeE33JsSXp/XEp/l7f/a6RCeQMYE0PosdhLNMjy/f3/uzL0PvfQQrcZszbGd8mVp20jSfnrie jZ6z60xItZYTkI9fHl 3PJtSpoebmdS aZ5Utbly/c6 XN8ut67KAeW7KHbg5OmqB6xHqcvJ/6ctFyfVtDn6sg0KSTeQA7f3/tzfLrexz/zMkmfpZUNp u1n3WvtQyfx5/D9fIaWebNQDxXae/j09dcb3DgTZovPs3f 3Nj2VpOl2WadPxoqp8ksHLpqHHX/aptWeMYklS2sQ7voceGe5vqFfDWfGnLi0/X 6S6h uOz9MYso dyHs5f/ZlNL3XKIXmi11H9jYO6 7zxZ8Tl7uOEytfziY8I9OwYf11KL wEbzBfZreJ5WNl9OZmpeLzdM0JB3tOPUdpjFM4uviGaHmyUA8k6nvM TvhZ12a N Ah04JcKUYd5QBr5Of/bt0f7h5fSZ7yv edvPgZz9GmDCvtUY/lwWx6p9Lmk7g uYqZdhUrdhLbb6bFlALh3nlFQPfTsg43oa2 nLS Lpn6Wty cJyjV9lc nL5fTOm/VHeOek4TPozb36f4cjlI0td1a21sMySJTNX6jIeuNojH/WnhDgJdpDNGsnK2llvWDQxAu/4pMFO7lZTW ohDWQa8b6wqGrZeXxVBvMXaeUrVDmC/Pc5jR8POW atLQftI034Sm89vQFrVi4uVa5xoLuc7cZ9qN/vRCexy/cKvATWte2U/roupXj7arkC Tdup dO4BXVM3Yam9fu HZOsn3w31pXCOxpGjbWB16FpPcvb2Vhewv7T Cx9XU0nD43yy8tKeh87KXImUWa8TXw f1b912y7oM18WwvyXBmZlurAVpDGh1nCQYW26fwIQHjghHfnecN4UxgjU4K2KUFD3Ii7kQFkyj5 XweMuMq1gozYOWmwbBy0yQAbIwKZkAJkStE0JGoKnZ0oGyECVM4BMkSkyJQNkgAyQgZwZKJVMVV n QQACEIAABIpI4Fvf6bOlpaVMj 3bt1t/f7 dOHHChoaGbHR01CYmJmxyctJmZmZsbm7O5ufnbXFx0Wr6T29mZ2dtamrKxsbGopm0kKwrVDlVkH 8QgAAEIACBIhNApkVuHeoGAQhAAAKlIIBMS9FMVBICEIAABIpMAJkWuXWoGwQgAAEIlIIAMi1FM 1FJCEAAAhAoMgFkWuTWoW4QgAAEIFAKAsi0FM1EJSEAAQhAoMgEkGmRW4e6QQACEIBAKQgg01I0 E5WEAAQgAIEiE0CmRW4d6gYBCEAAAqUggExL0UxUEgIQgAAEikwAmRa5dagbBCAAAQiUggAyLUU zUUkIQAACECgyAWRa5NahbhCAAAQgUAoCyLQUzUQlIQABCECgyASQaZFbh7pBAAIQgEApCHRMpo ODg3bq1Ck7duyYHTp0yPbv32 //vWv7d577 XvmZYiGlQSAhCAAASyEmhHpvLgs88 a7/85S/t5Zdftn379tnBgwcjVx45csSOHz9uJ0 etIGBAf44eNYGoBwEIAABCJSfQDsy3b59u/X399uJEydsaGjIRkdHbWJiwiYnJ21mZsbm5uZsfn7eFhcXkWn5o8EWQAACEIBAVgLINCspykEAA hCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVgLINCspykEA AhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVgLINCspykE AAhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVgLINCspyk EAAhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVgLINCspy kEAAhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVgLINCsp ykEAAhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVgLINCs pykEAAhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVgLINC spykEAAhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVgLIN CspykEAAhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVgLI NCspykEAAhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVgL INCspykEAAhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIUAMk0Bw2QIQAACEIBAVg LINCspykEAAhCAAARSCCDTFDBMhgAEIAABCGQlgEyzkqIcBCAAAQhAIIVAaWS6tLRkeR nTp0yHjDotQzk3W YP/ xB4bVZii/IlMEywlGxTPAgbzaB3Lat/vti0wrfhDttR4Y25s86sDBtvsHW9qg2m2ATJEpvdIeyAAH8mofyGnf7rdvpWS6detW80dauOi5J Pdc4FJtLmn7A9O7fxCmDYrbBu4TPbdqp8rINOtGI41qS4P2TW7fVgcCPi/uAZ226W7bZHVLJWSadWMVSg62yQdbuFSbCwfk7h6Q4V9u/lkcU3qZZtnIMMhIo9rSoH2T2zfcB3hd7gM77ded9mvlmtLLVMFqtZFh DjYJh9s4VJtLuE wOvuHIzhXl7uWRxTCZkqpFk2VuWQRrWlQfsmty8H8vIeyGm77rZdVrdURqZZhcrBNvlgC5dqc GA3N0DMvzLyT rSNW lZJplsAijWpLg/ZNbt8s wZlynnAp92K0W7ItAe sI9gkgXTS1w44BbjgEs7VLcdkCky5TpyD2SAg3h1D K0bTHaFpn2wIG0l3pgbGtyL5wDbjEOuLRDdduh52RKmKsbZtqWtiUDZKBbGSiVTFVZ/kEAAhCAAASKSKAUf89UleQBAzJABsgAGShyBrL2jLdv3279/f124sQJGxoastHRUZuYmLDJyUmbmZmxubk5m5 ft8XFRavpP72ZnZ21qakpGxsbi2bSQrKukHIM25ABMkAGyEDVMoBMlwh11ULN9pBpMkAGNjsDyB SZMqpABsgAGSADOTOATHMC3OyzH9bHGTcZIANkoHgZaEumFy5ciK6Tnj171gYHB 348eN28OBBuzirQcpkgAyQATLQsxmQB/fs2WN79 6NbkQ6evRo9AM6cuXw8LCNjIxENyXJozVkWryzIc5QaRMyQAbIQPczgEw5k zZM0kOQN0/ANEGtEFVMoBMkSkyJQNkgAyQgZwZQKY5AVblrIrtoIdABsgAGVh/BpApMuWMlAyQATJABnJmAJnmBMiZ3PrP5GAHOzJABqqSAWSKTDkjJQNkgAyQgZwZQKY5AVblrIr toIdABsgAGVh/BpApMuWMlAyQATJABnJmAJnmBMiZ3PrP5GAHOzJABqqSAWSKTDkjJQNkgAyQgZwZQKY5AVblrIr toIdABsgAGVh/BpApMuWMlAyQATJABnJmAJnmBMiZ3PrP5MrKrvb1UeOxNoOyti317r39eaPaHJkiU85I28wAIl1 bpOKzUQcoloPcypIBZNrmgbQsDUs9O3cQcpnOzMwYj2YGzob8dS5/sC0mW2SKTOlFtJkBFwYibRapeDgbDvjFPODTLp1rF2Ta5oGUMHYujGVh68JApsi0LJmlnp0/biFTZErPtM0MINPVEvUTC2fDwbvzB28YF4sxMm3zQEqAixXgbrSHC8MFwvOKXJ1NN9qFdbJvdjM DyBSZ0jNtMwMujI5JdNddVqvVGo9bdhywmZlddlftFttxYEVcHVt/jhurnE03D2qsG6l2IwPItM0DaTcaiXUW6 DgwuiIzCKR3mW7VgkNmbIfFGs/oD2a2wOZIlN6pm1moHMyPWA7bknrfcZlqvfee22e58COW5Z7taGUg/J37erYV3qcDQfa5gMtPKrPA5m2eSBlp6j TtGqjV0YG94zPbDDbrllhx1Y1SvV0G6zTHfdVbP68O Mzag325hP5UKJ1oeFVf6uXXq9lrDzDyE7m1YM Zz9qGoZaEumN2/etDfeeMMWFhZsdnbWLl68aCMjI/bAAw/Qu0HKPZMBF0b3ZNos1mbRSpY1qzX1PoNe6XJvti7W/PKMM3A2VTtQsj3Iv1UG5MEjR47Y4OBg5MXx8XGbnp6OXHnlyhW7evWqXbt2zW7cuGE1ZEqgWgWq Fz53YcRFkv99XJKh7MLPwtcqE38/Y/WhXu hrv48f13Duq28dja9kAO2keNhmAFkSo yZ3qUYfDzvHZhdEJIkQQbQ7Z1Ue5IuJs3fZjXxRYO59Z7q41h4cRhZJ8v37OzycOXeZFUGTOATJ EpMm0zAy6MTshUy1y5gUg3GKX1LtXbTLoBKZgeDvXqemyjvC8znziTtt/ZlPFgSJ2ReJ4MINM2D6R5YDNvNXZWF0aSTHp9mrMh69XIOu2YvR2RKTKlZ9pmBlwYvS7OpO13Nh yEsx EYVUNVsi0zQMpwa9G8PO0owsjSSa9Ps3Z5OHLvOxjZcwAMkWm9EzbzIALo9fFmbT9zqaMB0PqjM TzZACZtnkgzQObeauxs7oweB5t/P3SOAuyXo2s047Z2xGZIlN6pm1mIC4O3q WKgfh7AdhWFWDFTJt80BK8KsRfNqRdiQDZGAjM4BMkSk9UzJABsgAGciZAWSaE BGntmwLGNawuEAAAYQSURBVM6UyQAZIAPlzAAyRaackZIBMkAGyEDODCDTnAA5iyznWSTtRruRA TKwkRnILdOzZ8/yJ9gQMme1ZIAMkIGezkBcphcuXLCpqalsf4JtYmLCkClndxt5dseyyBMZIANlzIBkevjwYRsYGI i86DK9dOmSrfp7pvqjpuEfB0emhL6MoafO5JYMkIGNzkBWmV6/fn31HwdHpgRyowPJ8sgUGSADZcxAVpmqU1q7efNmU8/04sWLDPNynaSnr5OUcaenzsiKDGx8BnJdM5VMR0ZGuAEJoSJUMkAGyEBPZyAu0/HxcZuenk6/AUnjvVevXo0KINONP7vhjBGmZIAMkIHyZUAyPXr0qJ0 fdrOnTtnugwqmc7Nzdn8/LwtLi5GI7vRMK8aOC5TzaSF0Pjla3zajDYjA2SADGxMBuTBY8eO2dDQkI2Ojpo6m/ozhXGZ6nJpTdBlVRlWBSYnJ6OZkOnGNAahhiMZIANkoJwZkAdPnDhhw8PDNjY2FvlRX4u5fPmyL Sws2LVr16LOaCTTN998syFTFVAXVjMh03I2Pjst7UYGyAAZ2JgMyIMnT560M2fO2Pnz5xN/sEEju Jdk0z9jl6NAasLqy mItONaQxCDUcyQAbIQDkzIA/qBxtaXS NZPrWW29FVpVd1W2dnZ2NLrIi03I2Pjst7UYGyAAZ2JgMyIO6XqrRWl0v9V8 ig/xqlNak0zDoV79RJKGerUQHjAgA2SADJCBXs6AvirqPyOozmb8Ll6duMijDZlqqFcXU1VQM hGJI0Rq3ur8WLdGqzursaPdUFWdzjplmH9buGhQ4fs9ddft/7 fh4wIANkgAyQgVJkQN6Sv Qx Uxek99OnToVOU /Uy8P l28fuORbtjVaK68qc5oJNO33347eiO76kMVcqHq1/H1vRpZWbcFy9BauO5sklwHBwejlWrFLllVhAcMyAAZIANkoOgZkLfkLz3kM3lNfpPr5Dy5z0Ua/zqMvgUjb0qm8mjtt7/9bWRVTZBlQ6FqZo0RS6paoH79QQvX LF6rFqheq16qAIaW YBAzJABsgAGShDBuQtd5h8Jq/Jb3KdOpIaofXvlYZ/JSbeK5VHa8805kVb8Rye/sVQ9VF1m1AA37Sqq6lqqFh2JVF1grl8V5wIAMkAEyQAaKmgHJ0h9eR/lLHlNHURKV39SBlO/kPe R6lcCwV rVS9Url0dq7774bvdCEUKgyr2bUAjTsK6lqoRKrTK0VaYUuV1lcFeEBAzJABsgAGShDBuQtyVMe c4HKb/KcfCfvyX tRCqP1t577z3TC3VTk4Sqv3XqvdS4VGVtF6vLVRXiAQMyQAbIABkoegbkLT3kMfksLlGNzsp/8qAP7YY9UnlT/pRHa//370Qt1UF6qun2oGXWDVAlyosrMW7lLVnU2yt/dYVREeMCADZIAMkIEiZkDC9IfXzx0mn3lPVJ6T70KRxm84ki/lTYlUHm3I1Id740LVNdRQqhr61QpCsbpcVREeMCADZIAMkIGyZED 0iMUqDznvVH5Tx4M79x1kXqvNJLpBx98EFnVh3vDHqquoXovNUmqLlaXqwTLAwZkgAyQATJQlgz IX3rIZ2tJVD7UpdAkkcqjtQ8//NBCobpUvYfqQk2Sqg8By BeEZ7rDQIHOJABMkAGip8B ct7oXJavCcq94Ui9d6oD /Kn/Jo7aOPPopeuFD9Gmp82FcLc7Gqu6uHeqveY1UFeMCADJABMkAGipwBF2ZYR3eZu80FGkpUo7YuU nlSDxepPBrJNBSqS9V7qHGp h2/Llat1HutXhGeN ZHluEIRzJABshAZzPgDosLND6kG4pUngxFGsn0d7/7nemFCzUc9g17qS5Vv6bqw8BaYShY78HyXO/JwwEOZIAMkIHiZsAd5vL0a6LeEw0lGvZG5Up3pzxa03/ 8A9cqN5LdamGvdVQrqFgVREeMCADZIAMkIEyZED 8oe85g/5zq LukTjvVF3ZyTTjz/ 2PTwiaFQJdUksYZy9RV6BXheaQxYwIIMkAEyUOwMuMP8WX7zRzic6z50R7oz3aH/Hy3u/DJ6X0RdAAAAAElFTkSuQmCC now it runs and I get this after

[gmayor]

The macro should go in an ordinary module (not ThisOutlookSession)
The following revised version includes more error handling but both this and the previous version of the macro should both work. Use the test macro to test it on a message with attachments
I suspect the problem is with your rule. I assume that you have scripts in rules enabled and that you have actually selected the name of the script in the rule.

Option Explicit

Sub Test()
Dim olMsg As MailItem
On Error Resume Next
Select Case Outlook.Application.ActiveWindow.Class
Case olInspector
Set olMsg = ActiveInspector.currentItem
Case olExplorer
Set olMsg = Application.ActiveExplorer.Selection.Item(1)
End Select
AttachmentPrint olMsg
lbl_exit:
Exit Sub
End Sub

Sub AttachmentPrint(Item As Outlook.MailItem)
Dim sTempFolder As String
Dim oAtt As Attachment
Dim sFilename As String
Dim sFileType As String
Dim sFullFile As String
Dim objShell As Object
Dim objFolder As Object
Dim objFolderItem As Object

On Error GoTo OError
' This script finds the User's Temp folder,
' saves any attachments, and runs the Print
' command for that file.

If Not TypeName(Item) = "MailItem" Then Exit Sub
If Item.Attachments.Count = 0 Then Exit Sub

sTempFolder = Environ("TEMP") & "\"


' in the next few lines, you'll see an entry that says
' sFileType = . This line gets the last 4
' characters of the file name, which we'll use later.

For Each oAtt In Item.Attachments
sFilename = oAtt.fileName
sFileType = LCase$(Right$(sFilename, 4))
sFullFile = sTempFolder & sFilename
oAtt.SaveAsFile sFullFile

' We're using the sFileType text. Note that it's the
' last 4 characters of the file name, wich is why
' - the period counts as the fourth character.
' Insert any file extensions you want printed.

Select Case sFileType
Case ".pdf", ".xls", "xlsx", ".ppt", "pptx", ".doc", "docx"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
Set objFolderItem = objFolder.ParseName(sFullFile)
objFolderItem.InvokeVerbEx ("print")
End Select
Next oAtt

lbl_exit:
'Cleanup
If Not objFolder Is Nothing Then Set objFolder = Nothing
If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing
If Not objShell Is Nothing Then Set objShell = Nothing
Exit Sub
OError:
If Err <> 0 Then
MsgBox Err.Number & " - " & Err.Description
Err.Clear
End If
GoTo lbl_exit
End Sub