E
Ed
I'm trying to use vba to write a macro that will goto the undeliverables
folder and open each item in it and search for a string.
I can't seem to connect to the undeliverables folder.
Here is a snippet of the code I am using:
---------------
Sub SearchUndelsFolder()
' Dim objRsts As Results
'establish two variables
Dim n As Integer
n = 0
Dim address As String
'create output file system object
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\FailedAddresses.txt", True)
'call the Outlook application MAPI interface
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
'Address the Undeliverables folder
Set myFolder = myNamespace.GetFolder("undeliverables")
'count entries in undeliverables folder
Set filecount = myFolder.Items.Count
'for each message body in the MAPI undeliverables subdirectiry
'address the message body of the nth entry in MyFolder
------------------
the code is failing at the MAPI call. Am I missing somethiing? The macro
crashed when it gets to the MAPI call.
I get this error message:
runtime error 1163395067 (baa80005)
the progrrm for the attachment may not have been installed lproperly or may
have been moved or deleted. reinstall the hprogram in hhich the attachment
was created.
I don't think I'm calling access to the undeliverables folder properly, but
can't figure out the proper call. Can you help?
Ed
folder and open each item in it and search for a string.
I can't seem to connect to the undeliverables folder.
Here is a snippet of the code I am using:
---------------
Sub SearchUndelsFolder()
' Dim objRsts As Results
'establish two variables
Dim n As Integer
n = 0
Dim address As String
'create output file system object
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\FailedAddresses.txt", True)
'call the Outlook application MAPI interface
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
'Address the Undeliverables folder
Set myFolder = myNamespace.GetFolder("undeliverables")
'count entries in undeliverables folder
Set filecount = myFolder.Items.Count
'for each message body in the MAPI undeliverables subdirectiry
'address the message body of the nth entry in MyFolder
------------------
the code is failing at the MAPI call. Am I missing somethiing? The macro
crashed when it gets to the MAPI call.
I get this error message:
runtime error 1163395067 (baa80005)
the progrrm for the attachment may not have been installed lproperly or may
have been moved or deleted. reinstall the hprogram in hhich the attachment
was created.
I don't think I'm calling access to the undeliverables folder properly, but
can't figure out the proper call. Can you help?
Ed