01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 |
|
Sub EmailManuellAbsenden()
Dim sErg As String, iZeile As Long
sErg = Application.InputBox("Aus welcher Zeile sollen die Daten für die eMail kommen?" & vbLf & "Bitte Zeilennummern eingeben!", _
_
"eMail versenden", ActiveCell.Row)
If sErg = False Then Exit Sub
iZeile = Val(sErg): If sErg < 1 Then Exit Sub
If Cells(iZeile, "F").Value <> "" Then
MsgBox "An " & Cells(iZeile, "B").Value & " wurde schon eine Mail versendet!", vbExclamation, "eMail versenden"
Exit Sub
End If
With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector
.To = Cells(iZeile, "B").Value
.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>" _"
& "wir haben den freigegebenen Antrag zur Förderung der Weiterbildung - " _
& Cells(iZeile, "E").Value & " - erhalten. <br><br>" _
& "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>" _
& "Ihnen eine schöne Restwoche. </font>" & .HTMLBody
.Display ' Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
SendKeys "^{END}", True
Cells(iZeile, "F").Value = "Email an TN versendet"
Cells(iZeile, "G").Value = Date
End With
End Sub
|