Sorry I'm a little more confused and the .doc is actually xxxx.thedate.rp.doc and I need to keep that rp in the save file. I'm just not sure how to use your reference above.
Wow! that worked - duh! but if I wanted to add another file type to that would I write it like this:
Dim objAtt As Outlook.Attachment
For Each objAtt In Item.Attachments
If InStr(objAtt.DisplayName, ".xml", "*.doc") Then
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Else...
I have a script in place:
Private Declare Sub AppSleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Public Sub PauseApp(PauseInSeconds As Long)
Call AppSleep(PauseInSeconds * 1000)
End Sub
Public Sub saveAttachtoDisk(Item As Outlook.MailItem)
Dim saveFolder As String...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.