Docmd.sendObject Sending email to specific folder

[JeroenMioch]

Hey guys,



I have a Docmd.sendobject feature in my database that generates an email with attachement.
User has only to click the send button and the email is sent.
A copy of this email is send as BCC to our own emailaddress

What i want is that the incomming email or the outgoing email automatically is moved to a specific Outlook folder of our own email account. (Outlook 2010)

I know i can create rules in Outlook itself but that is not an option.

Any help would be appreciated

Greetings, Jeroen

[June7]

Bing: Outlook VBA move message to folder

http://answers.microsoft.com/en-us/o...9-c5fb387b63d7

Adapting code to run from Access may or may not be possible.

[JeroenMioch]

Hi June,

I think the code is close to what im looking for.
I am getting errors though, but im confident that if i resolve them it might work.

Im getting the error at the point im defining the destination folder wich i marked bold.
I also tryed the subfolder variant as the destination folder is a subfolder.

The destination folder is something like this : \\My personal account\Inbox\Archive\notices
Maybe the problem is that its a shared account. But then again i tried it with a non shared account as well. And it still doesnt work.

Sub Test()
Dim MAPI As NameSpace
Dim Source As Folder, Dest As Folder
Dim Mail As MailItem

Set MAPI = GetNamespace("MAPI")

'Get the inbox folder
Set Source = MAPI.GetDefaultFolder(olFolderInbox)
'Set the destination folder (main folder)
Set Dest = MAPI.Folders("Test")

'Use this for a sub folder
'Set Dest = MAPI.Folders("test").Folders("MySubFolder")

'Visit each mail
For Each Mail In Source.Items
'Match with our criteria?
If Mail.Subject = "test" Then
'Move it to the other folder
Mail.Move Dest
End If
Next
End Sub

[June7]

For code in Access to manipulate Outlook features, will probably first have to declare and set Outlook application object.

Review examples that set Outlook objects for purpose of sending email. https://www.accessforums.net/access/...ect-17713.html

[JeroenMioch]

Im really stuck with this
Any other suggestions ?

Im not trying to get some easy code. Ive tried a lot of things..

[June7]

Did you revise code to declare Outlook objects? Post attempted code.

This is entirely new frontier for me.

[JeroenMioch]

Its kind of new to me too. I can send mails through the docmd.Sendobject and stuff but thats it.

ill give it another try in an hour or so and let you know how i progress

[ItsMe]

It's been a while since I have played around with that stuff. I am going to guess you are going to need a folder named "Test" in order for the following to work.
Set Dest = MAPI.Folders("Test")

Perhaps you can create a folder named 'Test' or 'ItemsWereMoved' and then give it another go. Just make sure the folder you create is not a subfolder. Right click the main account so it is at the root.

[JeroenMioch]

Hi itsMe. Thanks for your comment. Im gonna give it a go right away. Perhaps the test folder not being in the root was the problem all along.

[JeroenMioch]

Right im a bit closer to solving this.
With this code :

Set Dest = MAPI.Folders("<my personal account name>").Folders("Test")

i got through it without errors.
The sad thing is the mails were not moved haha.

At least now i know where the "test" folder should be located.
And i know which piece of code to use, the one with the subfolder.

Now to figure out why mails are not moving.

[ItsMe]

You are going to have to search for something that exists within your Inbox. Maybe something like the following will help to determine how ...

On Error Resume Next
'Visit each mail
For Each Mail In Source.Items

    Debug.Print "**********************************"
    Debug.Print "Subject = " & Mail.Subject
    Debug.Print "CC = " & Mail.CC
    Debug.Print "BCC = " & Mail.BCC
    Debug.Print "Importance = " & Mail.Importance
    
Next

[JeroenMioch]

Hi ItsMe,

Im not sure how to use debug.print.
Ive read up on it. I just get no results wich can either mean i dont know how to use it OR there are no results.
I think the latter is the case.

After a night (i work the graveyard shift) of trying im just about to give it up.
When i use this code to identify the destination folder i get no error.

'Set Dest = MAPI.Folders("<my account name>").Folders("Test")

But nothing else happens after the code, not even if i create a simple msgbox "hello"

When i use that line in another Outlook code grabbed from the internet that seem to work for others, it doesnt work for me.
The error i get is that the object is not there basicly.

Is there any other suggestion you can give me in solving this problem ?

[ItsMe]

debug.print will produce results in the Immediate Window within the Visual Basic Editor. You can view the Immediate Window using the keyboard shortcut Ctrl + G or you can use the toolbar; View > Immediate Window

[JeroenMioch]

Ive got the following code alongside two functions

The error im now getting is 'Object variable or With block variable not set'
Any clues ?

Sub MoveAllMessages_Click()
     
     Dim olApp As Object
     Dim Mapi As NameSpace
     Dim olkSource As Outlook.MAPIfolder
     Dim olkDestination As Outlook.MAPIfolder
     Dim olkMsg As Outlook.MailItem
     Dim intIndex As Integer
     Dim Mail As MailItem
     
     Set olkSource = OpenOutlookFolder(olFolderInbox)
     Set olkDestination = OpenOutlookFolder("<My account name>").Folders("Test")
     
     For intIndex = olkSource.Items.Count To 1 Step -1
     olkSource.Items.Item(intIndex).Move olkDestination
     Next


     Mail.Move olkDestination
     
    Set olkSource = Nothing
    Set olkDestination = Nothing
    Set olkMsg = Nothing
    MsgBox "Finished!", vbInformation + vbOKOnly, "Move All Messages"
End Sub

Function IsNothing(obj)
  If TypeName(obj) = "Nothing" Then
    IsNothing = True
  Else
    IsNothing = False
  End If
End Function

Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIfolder
    Dim arrFolders As Variant, _
        varFolder As Variant, _
        olkFolder As Outlook.MAPIfolder
    On Error GoTo ehOpenOutlookFolder
    If strFolderPath = "" Then
        Set OpenOutlookFolder = Nothing
    Else
        If Left(strFolderPath, 1) = "\" Then
            strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
        End If
        arrFolders = Split(strFolderPath, "\")
        For Each varFolder In arrFolders
            If IsNothing(olkFolder) Then
                Set olkFolder = Session.Folders(varFolder)
            Else
                Set olkFolder = olkFolder.Folders(varFolder)
            End If
        Next
        Set OpenOutlookFolder = olkFolder
    End If
    On Error GoTo 0
    Exit Function
ehOpenOutlookFolder:
    Set OpenOutlookFolder = Nothing
    On Error GoTo 0
End Function

Thanks for looking into this guys, really appreciate it !

[ItsMe]

The error im now getting is 'Object variable or With block variable not set'
Any clues ?...

Which line is it halting on, you posted a lot of code there? When the exception is thrown, click on Debug to see where the code is halting. Maybe you did not make a reference to Outlook or you tried to use the Dot notation to access members of a variable before instantiating it as an Object.