naar een andere inbox copieren

Status
Niet open voor verdere reacties.
T

tepke

Gebruiker
Lid geworden
3 okt 2004
Berichten
231
Hoi

hieronder heb ik een code staan waarmee ik een mail in map inbox\Logistix_gelezen kan stoppen.
echter wil ik hem in een andere mailbox (account) stoppen welke ook op mijn outlook draait. mailbox heet "sales"
ik ben geen programmeur maar ben VBA het aan het leren.

al vast bedankt voor de hulp

volgens mij moet het aan de regel set myinbox liggen? getdefaultfolder


Code: 
    Dim myNameSpace As Outlook.NameSpace
    Dim myInbox As Outlook.Folder
    Dim FolderJacob As Outlook.Folder

    Set myNameSpace = Application.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set folderlogistix = myInbox.Folders("Logistix_gelezen")


   'voor het opslaan in een map inbox Logistix gelezen
   objMsg.Move folderlogistix
 
Dat zou zo moeten lukken:
Code: 
    Dim FolderLogistix As Outlook.Folder
    Dim BoxID as String

    BoxID = ""0000000074DAB329BC3CBB47B94716705C3EBD8282800000""
    Set FolderLogistix = Application.GetNamespace("MAPI").GetFolderFromID(BoxID).Items

   'voor het opslaan in een map inbox Logistix gelezen
   objMsg.Move FolderLogistix


   Private Sub GetOutlookFolderID()
       Dim olfolder As Outlook.MAPIFolder
       Dim olApp As Outlook.Application
       Set olApp = CreateObject("Outlook.Application")
       Set olfolder = olApp.GetNamespace("MAPI").PickFolder
       ' olfolder.Display
       Debug.Print olfolder.EntryID
       Set olfolder = Nothing
       Set olApp = Nothing
   End Sub

Dat lange nummer achter BoxID kun je ophalen door in de routine GetOutlookFolderID() te gaan staan en op F5 te drukken. Dubbelklik in het dan verschenen scherm op de Logistix folder. Het ID verschijnt dan in je Direct venster. Daar kan je het dan kopiëren om vervolgens te plakken achter BoxID.

Dit nummer verschilt echter per Outlook installatie en per gebruiker. Als het om 1 PC onder dezelfde gebruiker blijft heb je daar uiteraard verder geen omkijken meer naar.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan