|
Schönen guten Tag,
ich hatte mir mal einen Code zusammengebastelt, welches eine Html E-Mail erstellt, jedoch. Ich will es nun soweit verändern, dass die E-Mail sofort bei Outlook im Entwürfe-Ordner landet und nicht geöffnet bleibt.
Ich hab im Internet gesehen, dass dies einfach mit Outlook Object Libary geht, komme aber nicht weiter, wie ich nun den Code verändern muss.
Hoffe ihr könnt da weiterhelfen.
Public Sub Email()
Dim olApp As Object
Dim wdApp As Object
Dim wdDoc As Object
Dim wdRange As Object
Dim olText As String
Dim TxtErstatt As String
Const wdFindContinue = 1
TxtErstatt = "..." & "<br>"
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.SentOnBehalfOfName = ("email@email.de")
.GetInspector.Display
olText = .HtmlBody
.To = ("email@email.de")
.cc = "email@email.de"
.Subject = Range("Informationen!J3").Value
.HtmlBody = TxtErstatt
Set wdApp = .GetInspector
Set wdDoc = wdApp.WordEditor
Set wdRange = wdDoc.Range
wdRange.WholeStory
With wdRange
.Font.Name = "Arial"
.Font.Size = 10
End With
.HtmlBody = .HtmlBody & olText
End With
Set wdRange = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
Set olApp = Nothing
End Sub
|