VBA Outlook Profil vorgeben

20/02/2009 - 15:51 von Josef Zins | Report spam
Hallo zusammen

ich schreibe aus Access Kontakte in Öffentliche Ordner von Outlokk/Exchange.
Das funktioniert mit diesem Code tadellos:
Public Function AddPublicContact(loFirmenFortlaufendeNummer As Long,_
strFolder As String) As Boolean
On Error GoTo Err_AddPublicContact
Dim myOlApp As Outlook.Application
Dim myNamespace As Outlook.NameSpace
Dim objContact As Outlook.ContactItem
Dim myFolderParent, myFolderContact As Outlook.MAPIFolder

' prüfen ob exchange vorhanden
If boExchangeEnable = False Then
Exit Function
End If

Rem Anbindung an Exchange
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolderParent = myNamespace.Folders(strPublicFolderExchange(0))
Set myFolderParent = myFolderParent.Folders_
(strPublicFolderExchange(1))
Set myFolderParent = myFolderParent._
Folders(strPublicFolderExchange(2))
Set myFolderContact = myFolderParent.Folders(strFolder)


Ich habe nun das Problem, daß ich unterschiedliche Profile einsetzen
muss, aber da wird in der Code-Zeile
Set myFolderParent = myNamespace.Folders(strPublicFolderExchange(0))
das Fenster mit der Abfrage des zu verwendenen Profils eingeblendet.
Das möchte ich vermeiden und das Profil im Code vorgeben.

Làsst sich das machen und wie müsste der Code dann ausschauen ?

Danke für die Hilfe

Grüsse
Josef Zins



Teile dein Wissen mit anderen. Dies ist eine gute Möglichkeit,
Unsterblichkeit zu erlangen (Dalai Lama)
 

Lesen sie die antworten

#1 Peter Marchert
20/02/2009 - 15:59 | Warnen spam
On 20 Feb., 15:51, Josef Zins wrote:
Hallo zusammen



Guten Tag Josef Zins,

ich schreibe aus Access Kontakte in Öffentliche Ordner von Outlokk/Exchange.



Sollte mit der Logon-Methode funktionieren (Auszug aus der Hilfe):

Sub Logon([Profile], [Password], [ShowDialog], [NewSession])
Element von Outlook.NameSpace

Freundlicher Gruß
Peter Marchert

Infos, Workshops & Software für
Outlook®: www.outlook-stuff.com

Ähnliche fragen