Hallo Leute!
Ich habe mir ein kleines aber feines Makro zum Thema "Automatische Mail" gebastelt!
Damit möchte ich eine Mail erzeugen, die mir den Empfänger, den Text, den Betreff und die Signatur(in Outlook als Vorlage gespeichert) automatisch erzeugt.
Alles soweit iO, bis auf die Kleinigkeit, dass mit dem "html", dass Problem auftritt, dass die Signatur zwar Formatierungstechnisch super übernommen wird, jedoch nicht der Text ("Testtext"). Ohne das "html" funktioniert zwar beides (Text und Signatur) jedoch ist die Signatur nur im Text-Modus übernommen worden und hat nicht die richtige Formatierung!
Wo liegt das Problem?
Hat jemand von euch eine Idee?
Vielen Dank
Private Sub CommandButton1_Click()
Dim olApp As Object
Dim oldBody As String
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.display
oldBody = .htmlbody
.To = "test1@server.de"
.Subject = "Test1"
.htmlbody = "Testtext " & oldBody
.display
End With
Set olApp = Nothing
End Sub
|