Hi All
I have some code to open Excel attachments from Outlook. However, I need to be able to open it from Lotus Notes. Does anyone have any code, or can anyone modify the Outlook code to fit Lotus Notes? Code below:
Sub SaveAttachments()
Dim myOlapp As Outlook.Application
Dim myNameSpace As Outlook.Namespace
Dim myFolders
Dim myFolder
Dim myItem
Dim myAttachment As Outlook.Attachment
Set myOlapp = CreateObject(“Outlook.Application”)
Set myNameSpace = myOlapp.GetNamespace(“MAPI”)
For Each myFolders In myNameSpace.Folders
For Each myFolder In myFolders.Folders
For Each myItem In myFolder.Items
If TypeName(myItem) = “MailItem” Then
If myItem.Attachments.Count <> 0 Then
For Each myAttachment In myItem.Attachments
myAttachment.SaveAsFile "C:" & myAttachment.FileName
Next
End If
End If
Next
Next
Next
End Sub