Signatur in Email generieren
12.06.2016 18:09:07
Sebastian
ich habe noch ein zweites Problem. Ich wollte gerne in der Email, die ich aus Excel heraus generiere meine Signatur mit einfügen. Dazu habe ich folgenden Codeschnipsel benutzt:
VBA.SendKeys "^{END}", True
' Einfügen einer bestimmten Signatur
strSignatur = "Grußformel"
'strSignatur = "meineFirmenSignatur"
.GetInspector.CommandBars.Item("Insert").Controls("Signatur").Controls(strSignatur).Execute
Leider wird der Cursor aber nur sporadisch an die letzte Stelle in der Mail gesetzt, so dass die Signatur auch oft vor dem Email-Text erscheint. Woran könnte das liegen?
Hier nochmal der ganze Code
Sub Email_generieren()
'Tabellenbereich einfügen'
Dim rng As Range
Set rng = Range("H6:N18")
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = ActiveCell.Offset(0, 1).Value
.Subject = Range("B1").Value & " " & Range("C1").Value
.HTMLBody = "Guten Morgen " & ActiveCell.Value & "," & "
" _
& "Anbei ihre Note aus dem Bereich " & Range("C1").Value & "." & "
" _
& "Sie haben " & ActiveCell.Offset(0, 2).Value & " von " & Range("E3").Value & " _
Gesamtpunkten erreicht. " _
& "Das ergibt die Note " & ActiveCell.Offset(0, 3).Value & "." & "
" _
& "Im folgenden finden Sie eine Übersicht zur Notenverteilung im Kurs, den _
Notendurchschnitt des Kurses und den Notenschlüssel" _
& "
" _
& RangetoHTML(rng)
'Nachricht zur Kontrolle anzeigen
.Display
VBA.SendKeys "^{END}", True 'Sollte den Cursor nach unten setzen
' Einfügen einer bestimmten Signatur
strSignatur = "Grußformel"
'strSignatur = "meineFirmenSignatur"
.GetInspector.CommandBars.Item("Insert").Controls("Signatur").Controls(strSignatur). _
_
Execute
End With
End Sub