AW: Schriftfarbe / Hyperlink automatische Mail
04.05.2016 12:33:34
Sirka
Hallo Rudi,
Danke für deine Hilfe! Leider stehe ich noch ganz am Anfang meiner Makro-Karriere und verstehe noch nicht viel.
Mein Makro sieht grade so aus:
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 = ""
strbcc = ""
str
Sub = "Titel der Mail"
strbody = "Guten Tag, " & vbNewLine & vbNewLine &_
"Sie haben " & Cells(FormulaCell.Row, "K").Value & " offene Punkte." & _
vbNewLine & "Bitte arbeiten Sie diese ab." & _
vbNewLine & vbNewLine & _
"Ihre offenen Punkte finden Sie unter
http://
'hier steht jetzt ein sehr langer Link, den ich gerne verpacken würde. Zum Beispiel in Ihre _
offene Punkte finden Sie hier.
With OutMail
.To = strto
.CC = strcc
.BCC = strbcc
.Subject = strsub
.Body = strbody
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Was muss ich da jetzt genau ändern? strbody in HTMLBODY? Und dann?
Vielen, vielen Dank für die Hilfe!