neuer Kontakt in Outlook 2007 und Unterordner per VBA

12/06/2011 - 11:04 von Lupus Goebel | Report spam
Hallöschen,

Da dies VBA von Access betrifft, ich aber glaube die Outlook Menschen
hier auch helfen können ein Followup an <de.comp.datenbanken.ms-access>
gesetzt.

In Access 2007 habe ich für Outlook 2007 folgenden Beispielcode:

\\\
Dim olApp As Outlook.Application
Dim olContact As ContactItem
Dim Ns As NameSpace
Dim fld As Folder
Dim myItems As Items
Dim rs As Recordset

Set olApp = CreateObject("Outlook.Application")
Set Ns = olApp.GetNamespace("MAPI")
Set fld = Ns.GetDefaultFolder(olFolderContacts).Folders("Manager")
Set myItems = fld.Items

Set rs = CurrentDb.OpenRecordset("SELECT * " & _
" From tblKontakteNeu ORDER BY ID;")
Do While Not rs.EOF
Set olContact = olApp.CreateItem(olContactItem)
With olContact
olContact.Title = Nz(rs("Title"))
olContact.MiddleName = Nz(rs("MiddleName"))
olContact.FirstName = Nz(rs("FirstName"))
olContact.LastName = Nz(rs("LastName"))
olContact.Suffix = Nz(rs("Suffix"))
..
End With
rs.MoveNext
Loop
rs.Close
...
///

Jedoch werden alle Kontakte dennoch im Hauptordner abgelegt, nicht im
Unterorder.

Was mache ich hier denn falsch?

MfG - Lupus Goebel
Der Sumpf- Morasthobbybastler und Anfaenger mit
Wissensdurst (http://www.lupusdw.de http://foto.lupusdw.de)
Urlaub macht man in Irland: http://www.eaglesnest-bb.com/
 

Lesen sie die antworten

#1 Lupus Goebel
13/06/2011 - 18:54 | Warnen spam
Tach auch,

habe es raus gefunden.

Am 12.06.2011 11:04 schrieb Lupus Goebel:
Hallöschen,

Da dies VBA von Access betrifft, ich aber glaube die Outlook Menschen
hier auch helfen können ein Followup an <de.comp.datenbanken.ms-access>
gesetzt.

In Access 2007 habe ich für Outlook 2007 folgenden Beispielcode:

\\\
Dim olApp As Outlook.Application
Dim olContact As ContactItem
Dim Ns As NameSpace
Dim fld As Folder
Dim myItems As Items
Dim rs As Recordset

Set olApp = CreateObject("Outlook.Application")
Set Ns = olApp.GetNamespace("MAPI")
Set fld = Ns.GetDefaultFolder(olFolderContacts).Folders("Manager")
Set myItems = fld.Items

Set rs = CurrentDb.OpenRecordset("SELECT * " & _
" From tblKontakteNeu ORDER BY ID;")
Do While Not rs.EOF
Set olContact = olApp.CreateItem(olContactItem)
With olContact
olContact.Title = Nz(rs("Title"))
olContact.MiddleName = Nz(rs("MiddleName"))
olContact.FirstName = Nz(rs("FirstName"))
olContact.LastName = Nz(rs("LastName"))
olContact.Suffix = Nz(rs("Suffix"))
..
End With
rs.MoveNext
Loop
rs.Close
...
///

Jedoch werden alle Kontakte dennoch im Hauptordner abgelegt, nicht im
Unterorder.

Was mache ich hier denn falsch?



ich habe aus:
\\\
Do While Not rs.EOF
Set olContact = olApp.CreateItem(olContactItem)
With olContact
///

ein

\\\
Do While Not rs.EOF
Set olContact = fld.Items.Add
With olContact
///

gemacht und schon ging es. Eigendeich ganz logisch ;-)

MfG - Lupus Goebel
Der Sumpf- Morasthobbybastler und Anfaenger mit
Wissensdurst (http://www.lupusdw.de http://foto.lupusdw.de)
Urlaub macht man in Irland: http://www.eaglesnest-bb.com/

Ähnliche fragen