Re: In Outlook add a folder then move a message to it.

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Dorian Chalom (DChalom_at_Comcast.net)
Date: 01/03/05 

Date: Sun, 2 Jan 2005 20:56:51 -0500

Hi Mike!

Glad to hear from you. Since I can no longer log into Tek-Tips.

I am recieving an error message of "unknown COM error code" on the Move
statement of the following code. Is there a way for me to determine the
folder number of a folder?

Thanks for any insight you can give and
A Happy New Year!

loMSend = oOutLookObject.CreateItem(0)
m.Emp_eMail = tdbDoc.Emp_eMail
loMSend.Recipients.Add(m.Emp_eMail)
loMSend.Subject = tdbDoc.Subject
loMSend.Body = tdbDoc.DocText
 DO WHILE tdbDoc.Emp_eMail = m.Emp_eMail .AND. .NOT. EOF("tdbDoc")
          IF lFwdDoc
               IF .NOT. ISBLANK(tdbDoc.DocFile)
                   loMSend.Attachments.Add(tdbDoc.DocFile)
               ENDIF
          ENDIF
          SKIP IN tdbDoc
ENDDO
loMSend.Send()
IF lOLSave
       * Find Folder
       lFound = .F.
       oFolders =thisform.OLGetFolder(cOLSaveFldr)
       oFolders =oFolders.folders
       FOR EACH oFolder IN oFolders
            IF cCase = oFolder.Name
                 oFldr = oFolder
                 lFound = .T.
                 EXIT
            ENDIF
       ENDFOR
       IF .NOT. lFound
            oFldr=oFolders.Add(cCase)
       ENDIF
       loMRead.Move(oFldr)
ENDIF
loMRead.unRead = .F.
IF lDelete
       loMRead.Delete()
ENDIF
RELEASE loMRead, loMSend

"Mike Gagnon" <mgagnon23@hotmail.com> wrote in message
news:eMqzxnN8EHA.3820@TK2MSFTNGP11.phx.gbl...
> It may be just a case of your syntax, but I have had success with this
> (After having determined the index number of the folder I want the message
> to be to)
> This example moves the unread message to the folder that has an index of
> 12.
>
>
> Local oOutlookObject,olNameSpace
> #Define olFolderInBox 6
> oOutlookObject = Createobject('Outlook.Application')
> olNameSpace = oOutlookObject.GetNameSpace('MAPI')
> oItems= olNameSpace.GetDefaultFolder(olFolderInBox).Items
> For Each loItem In oItems
> If !loItem.unRead
> loitem.Move(olNameSpace.Folders(1).Folders(12))
> Endif
> Next
>
> "Dorian Chalom" <DChalom@Comcast.net> wrote in message
> news:uRvEGS47EHA.3856@tk2msftngp13.phx.gbl...
>>I am trying to figure out how to determine if a folder exists in Outlook.
>> If it does not exist then create it.
>> And either way then move the current message to that folder.
>>
>> Currently i have it workuing through the creating a folder if needed, but
>> i cannot get the Move to work.
>>
>> Please,
>>
>
>

Relevant Pages

  • RE: Switch from Power User to User
    ... they got an error message regarding Folder ... The SBS\\Users on SBS is the folder that is attempting to sync. ... All the workstations that have users that have been changed from Power User ... > Synchronize, how many offline folders you can see in the Items to ...
    (microsoft.public.windows.server.sbs)
  • RE: Offline Address Book error on send/receive
    ... address book can not be download error message after you joined the SBS ... navigate to the server entry. ... Please rebuild Offline Address Lists to see if it helps. ... Storage Group -> Public Folder Store, Does the store is mounted properly? ...
    (microsoft.public.windows.server.sbs)
  • Re: Help with VBA for document formatting.
    ... but nothing changed - the result was the same error message. ... Applications Folder. ... Python, b. ... ...will put 1 tab stops in Body Regions;A01 ...
    (microsoft.public.mac.office.word)
  • Re: File problems
    ... original message, the response from Daave, my response to him, the response ... error message, but now it is 6 or more times A DAY. ... only to find that XP has ANOTHER glitch Windows 98 SE ... "Cannot remove folder: It is being used by another ...
    (microsoft.public.windowsxp.general)
  • Re: "Undeletable" File
    ... I hadn't tried FileASSASSAIN but, ... of its three deletion methods elicited the error message ... Open your backup program and restore the file you created to ... the folder where the undeletable file is, ...
    (microsoft.public.windowsxp.general)