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
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