|
Sub Mail_with_outlook1(FormulaCell As Range)
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String
Dim str
Sub As String, strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strto = Cells(FormulaCell.Row, "R").Value
strcc = Cells(FormulaCell.Row, "S").Value
strbcc = ""
str
'Sub = "Aufgaben"
strbody = "<p>" & "Guten Tag " & Cells(FormulaCell.Row, "T").Value & ", " & "</p> " & _
"<p>" & "Sie haben " & Cells(FormulaCell.Row, "K").Value & " Aufgabe(n)." & "</p> " & _
"<p>" & "Ihre Aufgaben finden Sie unter " & "<a href='" & "http://firma/aufgaben/ " & _
Cells(1, 21) & "'<LINK</a>" & "</p>" & _
"<p>" & "Eine allgemeine Beschreibung zum Thema finden Sie unter ""Aufgaben bearbeiten""" _
& "." & "</p>" & _
"<p>" & "Mit freundlichen Grüßen" & "</p>"
With OutMail
.To = strto
.CC = strcc
.BCC = strbcc
.Subject = strsub
.htmlbody = strbody
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
|