Email-Verteiler aus dem 'An-Bereich' erstellen
Claudius Schulz
ich habe eine Email bekommen, worin sehr vielen Email-Adressen im 'An'
Bereich stehen.
Frage 1:
Gibt es eine Möglichkeit aus allen Email-Adressen einen Email-Verteiler zu
generieren ohne jede Adresse manuell anzufassen?
Frage 2:
Gibt es auch einen Trick um aus zwei (oder mehr) Email-Verteilern einen
Verteiler zu machen?
Gruß
Claudius
Michael Bauer
> ich habe eine Email bekommen, worin sehr vielen Email-Adressen im 'An'
> Bereich stehen.
>
> Frage 1:
> Gibt es eine Möglichkeit aus allen Email-Adressen einen
Email-Verteiler zu
> generieren ohne jede Adresse manuell anzufassen?
Per VBA ist das ganz einfach möglich. Du kannst folgendes Beispiel
benutzen. Zum Aufruf einer Funktion oder zum Erstellen einer eigenen
Schaltfläche in der Symbolleiste findest Du in der NG bereits
ausreichend Material.
<Beispiel>
Public Sub CreateNewDLFromMailTo()
On Error GoTo ERR_HANDLER
Dim olApp As Outlook.Application
Dim olSel As Outlook.Selection
Dim olMail As Outlook.MailItem
Dim olDl As Outlook.DistListItem
Dim obj As Object
Set olApp = GetObject(, "outlook.application")
Set olSel = olApp.ActiveExplorer.Selection
If olSel.Count Then
Set obj = olSel.Item(1)
If TypeOf obj Is Outlook.MailItem Then
Set olMail = obj
Set olDl = olApp.CreateItem(olDistributionListItem)
With olDl
.AddMembers olMail.Recipients
.DLName = olMail.Subject
.Subject = olMail.Subject
.Display
End With
End If
Else
Err.Raise 1001, , "Keine Mail ausgewählt"
End If
GoTo AUSGANG
ERR_HANDLER:
MsgBox Err.Description, vbExclamation
AUSGANG:
On Error GoTo 0
End Sub
</Beispiel>
--
Viele Grüße
Michael Bauer
Claudius Schulz
Das Makro funktionier Super
Gruß
CLaudius
"Michael Bauer" <mi...@t-online.de> schrieb im Newsbeitrag
news:OU7Z6rJP...@TK2MSFTNGP09.phx.gbl...
Claudius Schulz
Danke für den Hinweis.
bye Claudius