|
Hallo zusammen,
ich habe mir schon einen Wolf gegoogelt und rumprobiert, aber ich bin halt ein totaler VBA Anfänger. Ich habe eine Exceltabelle, welche wie folgt aufegabut ist
A Status
B Namen
C Emailempfänger
D Titel einer Weiterbildung
E Email an TN versendet (Eintragung "Email an TN versendet")
F (Eintragung des Datums, an dem die Email versendet wird)
Und noch viele weitere Spalten, welche aber für das Problem nicht wichtig sind.
| Zeile |
Status |
Namen |
Email |
Titel |
Mail verschickt |
Datum |
| 1 |
Zertifikat fehlt |
max.mustermann |
max@mustermann.de |
VBA für Anfägner |
|
|
| 2 |
Zertifkat anfordern |
Heidi Test |
test@test.de |
Irgendwas lernen |
|
|
Ich bekomme schon hin, dass ich eine Mail immer aus Zeile 3 erstellen kann.
Ich möchte aber gerne eine Abfrage haben, welche Werte genutzt werden sollen. Beispielsweise möchte ich eine Email an Heidi test senden. Es soll ein Abfragefenster erscheinen, in dem ich eingeben kann, dass die Werte aus Zeile 2 für die Email genutzt werden soll. Vielleicht stelle ich mir das auch zu einfach vor oder es geht gar nicht.
Mein Code sieht aktuell so aus
Sub EmailManuellAbsenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.GetInspector
.To = Range("B3")
.Subject = "Ihr Antrag auf Förderung einer Weiterbildungsmaßnahme"
.HTMLBody = "<font style=""font-family: Arial; font-size: 11pt;""> Hallo liebe Kollegin/lieber Kollege, <br><br> </font> " & _
"<font style=""font-family: Arial; font-size: 11pt;"">wir haben den freigegebenen Antrag zur Förderung der Weiterbildung - </font>" & Range("E3") & "<font style=""font-family: Arial; font-size: 11pt;""> - erhalten. <br><br></font>" & _
"<font style=""font-family: Arial; font-size: 11pt;"">Wir wünschen Ihnen viel Spaß bei der Teilnahme und bitten Sie daran zu denken, uns im Anschluss Ihre Teilnahmebescheinigung digital zukommen zu lassen. <br><br></font>" & _
"<font style=""font-family: Arial; font-size: 11pt;"">Ihnen eine schöne Restwoche. </font>" & .HTMLBody & "</p>"
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
VBA.SendKeys "^{END}", True
Cells(3, 6) = "Email an TN versendet"
End With
End Sub
|