Reply to thread

Message: [QUOTE="e.schoen, post: 4858306"] 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 [/QUOTE]

Verification