Kontakte-Ordner suchen und Verteiler benutzen

E

e.schoen

Hallo Zusammen,

wir brauchen mal eure Hilfe.
Wir möchten per VBA eine Mail versenden. Per Userform kann der User
einen von 2 möglichen Verteiler auswählen und senden. Das Problem ist
jedoch, daß die Verteiler in einem Unterordner des Kontakte-Ordners
der Mailbox_1 liegen, der Unterordner heißt "SMS". Ein weiteres
Problem ist auch, daß einige User die Mailbox_1 als sekundäres
Postfach eingebunden haben und hier natürlich der Kontakte-Ordner
anders aufgebaut sein kann.

Der Anfang unsere Codes ist:
Public Verteiler
Public Text
Public Mail
Public Outl
Public olApp

Private Sub CommandButton1_Click()
User1 = ""
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myDistList As Outlook.DistListItem
Dim myFolderItems As Outlook.Items
Dim y As Integer
Dim iCount As Integer
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
Set myFolderItems = myFolder.Items

Set myDistList = myFolderItems.Item(Verteiler)
For y = 1 To myDistList.MemberCount
User = myDistList.GetMember(y).Name
User1 = User1 & User & ";"
Next y
Text = TextBox1.Text
Set olApp = CreateObject("Outlook.Application")
Set Mail = olApp.CreateItem(olMailItem)
Mail.Body = Text
Mail.To = User1
..
..
..
..

Wie kann ich nun realisieren, daß per VBA zunächst der
Kontakte-Ordner gesucht wird, der den Unterordner "SMS" enthält?
Dann soll aus diesem Unterordner einer der beiden Verteiler ausgewählt
werden können, um daraus den Empfänger einzutragen.

Vielen Dank für eure Hilfe

Gruß

Ergün Schoen
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top