Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Outlook - byt mailbox - LÖST!

Postades av 2002-04-17 10:47:59 - Emma Magnusson, i forum visual basic - allmänt, Tråden har 6 Kommentarer och lästs av 508 personer

<code>
Hej

Jag ska leta igenom de postlådor/mailboxar som finns inlagda i Outlook.
Jag har inga som helst problem med att söka igenom den inloggades
mailbox, problemet kommer när jag ska byta och söka igenom den
andra mailboxen i Outlook.

Jag har testat nedanstående:

Dim myNameSpace As NameSpace

Set myNameSpace = myOlApp.GetNamespace("Mailbox2")
Set myNameSpace = myOlApp.GetNamespace("MAPI").Folders("Mailbox2")

/Emma

</code>


Svara

Sv: Outlook - byt mailbox

Postades av 2002-04-17 11:39:01 - Raderat konto

Emma,

<code>
Sub TestaDennaKod()

Set myNameSpace = Application.GetNameSpace("MAPI")

for i = 1 to 2
set objFolder = myNameSpace("Mailbox" & i)
set colFolders = objfolder.Folders
Msgbox colFolders.Count & " " & objFolder.Name
next i

End Sub
</code>

Har ej haft tid att testa utan skrivit direkt ur minnet. Förhoppningsvis kan det ge dig en start :-)

Mvh
XL-Dennis


Svara

Sv: Outlook - byt mailbox

Postades av 2002-04-17 12:46:57 - Emma Magnusson

Will do - tack så mycket.

Återkommer med resultatet.

/Emma


Svara

Sv: Outlook - byt mailbox - Lösning

Postades av 2002-04-17 13:16:56 - Emma Magnusson

Hej hej

Tack för knuffen i rätt riktning XL. det var inte riktigt så men nästan. =)

Min kod blev så här:
<code>

Sub testa2(myOlApp As Outlook.Application, wild As String)
Dim myNameSpace As NameSpace
Dim myFolders As Folders
Dim folder As MAPIFolder, mapp As MAPIFolder

Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolders = myNameSpace.Folders

'går igenom de foldrar som finns
For Each mapp In myFolders
If InStr(1, myFolders(i).Name, "Namn på mailbox", vbTextCompare) <> 0 Then
Set folder = mapp
End If
Next

'Gå igenom de subfoldrar som finns i den mailboxen
For Each mapp In folder.Folders
'sök igenom foldern efter filer med extension wild
Call SearchInFolder(mapp, wild)
Next

MsgBox "You are " & myNameSpace.CurrentUser & " at " & folder.Name
End Sub

</code>

/Emma


Svara

Sv: Outlook - byt mailbox - Lösning

Postades av 2002-04-17 16:17:42 - Raderat konto

Emma,

Tack för att du presenterar lösningen i sin helhet och att du kunde av egen kraft ta dig i "mål" :-)

Alltid lika roligt att få denna typ av feedback!

Mvh
XL-Dennis


Svara

Sv: Outlook - byt mailbox - Lösning

Postades av 2002-04-17 23:01:28 - Andreas Hillqvist

Tycker den se lite skum ut ska det inte vara:
<code>
For Each mapp In myFolders
If InStr(1, mapp.Name, "Namn på mailbox", vbTextCompare) <> 0 Then
Set folder = mapp
Exit For
End If
Next
</code>


Svara

Sv: Outlook - byt mailbox - Lösning

Postades av 2002-04-18 08:58:48 - Emma Magnusson

Helt rätt Andreas =)

Fast det förståss... en metod som tom heter test2(..) är inte helt klar...

Var mest avsedd att testa och se att det fungerade - men tack för ditt
påpekande, alltid lika intressant att se om du är vaken... ;)

/E


Svara

Nyligen

  • 14:24 CBD regelbundet?
  • 14:23 CBD regelbundet?
  • 14:22 Har du märkt några verkliga fördel
  • 09:09 Vill du köpa medicinska tester?
  • 12:47 Vem beviljar assistansen – kommune
  • 14:17 Någon med erfarenhet av hemstädnin
  • 14:14 Bör man använda sig av en båtförme
  • 14:12 Finns det någon intressant hundblo

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 569 645
27 953
271 710
1 101
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies