Office: variabler Email-Empfänger

Hallo zusammen,

ist es möglich den Email-Empfänger in dem folgenden VBA-Code variabel zu gestalten, so dass wenn ich in einem Dropwdown eine Mail auswähle, diese automatisch verwendet wird.
Nehmen wir an der Dropdown wäre in Zelle U1 in dem Tabellenblatt Mail-Index.

PHP:

         Sub einzelnes_Blatt_senden()
'** Das aktive Tabellenblatt wird über Outlook versendet
'** Dimensionierung der Variablen
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'** Pfad für temporäre Zwischenspeicherung angeben
strPfad = "C:Temp" 'entsprechend anpassen
'** Aktuelles aktives Blatt in neue Arbeitsmappe kopieren
strBlatt = "Mail-Verteiler"
'** Gewähltes Tabellenblatt kopieren
Sheets(strBlatt).Copy
'** Blatt temporär in vorgegebenes Verzeichnis abspeichern
ActiveWorkbook.SaveAs strPfad & "" & ActiveSheet.Name

'** Pfad und Dateiname der neuen Datei zwischenspeichern
strDatei = ActiveWorkbook.FullName

'** Mail erzeugen
With Mail
.To = ""
'.CC = ""
.Subject = "geplante Touren" 'Betreff
.BodyFormat = 2 '2 = HTML, 1 = Text
.Attachments.Add strDatei 'Anhang
.Body = strBodyText 'Bodytext / Signatur
End With

'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close

'** Erzeugte Datei wieder löschen
Kill (strDatei)

** E-Mail anzeigen
Mail.Display
End Sub


:)

 

Hallo Felix,

ja, ist möglich!

Gruß
rastrans Code:

 

Danke dir hat geklappt!

Grüße

Felix