email-Empfänger aus Kürzel ableiten
29.06.2016 08:00:45
Rookie
ich hab da ein kleines Problem und komm selber nicht auf die Lösung:
Ich möchte, dass Excel bei Betätigung eines CommandButtons automatisch eine email versendet. Funktioniert alles soweit ganz gut.
Jetzt ist es so: Excel hinterlegt je nachdem, wer gerade mit dem Sheet arbeitet, ein Namenskürzel in einer Zelle. Den Kürzeln möchte ich jetzt email-Adressen zuordnen, damit in Outlook die email-Adresse des Bearbeiters als Empfänger erscheint.
Ich wollte das folgendermaßen lösen, aber leider funktioniert es so nicht:
Sub emailsend()
Dim OutApp As Object
Dim objOLMail As Object
Dim BL As String
Dim KJ As String
Dim KS As String
BL = "Ludwig.Brenner@gig.com"
KJ = "Juergen.Kobald@gig.com"
KS = "stefan.kneitz@gig.com"
Set OutApp = CreateObject("Outlook.Application")
Set objOLMail = OutApp.CreateItem(0)
With objOLMail
.To = Range("V6") 'In dieser Zelle steht das Kürzel z.B. BL
.Subject = "BETREFF!"
.Body = "TEXT!"
.Send
End With
Set objOLMail = Nothing
Set OutApp = Nothing
End Sub
Ich bin mir sicher, dass das für euch keine große Sache ist.
Vielen Dank schon mal für die Unterstützung,
Viele Grüße
Stefan