Home-›Foren-›Outlook-›Outlook VBA-›Mail erstellen aus Verteilerliste eines andern Benutzers
- Dieses Thema hat 0 Antworten sowie 1 Stimme und wurde zuletzt vor 16:13 um 12. Januar 2009 von Unbekannt aktualisiert.
- AutorBeitrag
- 12. Januar 2009 um 16:13 #47716UnbekanntTeilnehmer
Hallihallo,
ich möchte gerne in Outlook 2007 die Standardfunktionalität in VBA nutzen und erweitern.
Ich öffne manuell den den Kontaktordner eines andern Benutzers: Datei öffnen… Ordner eines andern Benutzers. Danach möchte ich mehrere Verteilerlisten markieren und per Vba ein Mail mit Attachment und als BCC an die ausgewählten Verteiler senden.Sub CreateMail()
Dim myOlApp As New Outlook.Application
Dim olFolder As MAPIFolder
Dim olselection As Selection
Dim myRecipients As Object
Dim myTempItem As Object
Set myTempItem = myOlApp.CreateItem(olMailItem)
Set myRecipients = myTempItem.Recipients
Set olFolder = Application.ActiveExplorer.CurrentFolder
Dim emailadresse As StringIf olFolder.DefaultItemType = olContactItem Then
Set olselection = Application.ActiveExplorer.Selection
If olselection.Count = 0 Then GoTo FehlerSet myRecipients = myTempItem.Recipients.Add(\”xxx@yyy.zz\”)
myRecipients.Type = olTo\’Markierte Teilnehmer hinzufügen
For x = 1 To olselection.Count
GoTo weiter2file = olselection.Item(x).FileAs
If Not olselection.Item(x).Email1Address = \”\” Then GoTo weiter
If Not olselection.Item(x).Email2Address = \”\” Then GoTo ohne
If olselection.Item(x).Email3Address = \”\” Then GoTo ohneweiter:
With myTempItem
emailadresse = olselection.Item(x).Email1Address
Set myRecipients = .Recipients.Add(emailadresse)
myRecipients.Type = olBCC \’Adressiere: BCC
.Recipients.ResolveAllEnd With
weiter2:
With myTempItem
emailadresse = olselection.Item(x).DLName
Set myRecipients = .Recipients.Add(emailadresse)
myRecipients.Type = olBCC \’Adressiere: BCC
.Recipients.ResolveAllEnd With
ohne:
Next xmyTempItem.Display \’Für das Anzeigen der Mail
Else
MsgBox \”Sie sind nicht im Kontakteordner!\”
End If
Exit SubFehler:
MsgBox \”Es sind keine Kontakte markiert!\”, vbInformation + vbOKOnly, _
\”Es ist ein Fehler aufgetreten!\”End Sub
Mit diesem Code funktioniert das nur mit der eigenen Verteilerliste nicht aber mit einer eines andern Benutzers. Die Verteilerliste wird nicht als solches erkannt sondern es stehen nur der Namen der Verteilerliste im BCC Feld.
Kann mir bitte jemand helfen. Vielen Dank
Mary\’O - AutorBeitrag