Thema Datum  Von Nutzer Rating
Antwort
Rot Erstellte Outlook-Email gleich in Outlook als Enwürfe speichern
07.04.2021 11:31:09 Daniel
NotSolved
07.04.2021 19:05:02 Gast73317
NotSolved
13.04.2021 11:55:09 Gast25282
NotSolved
13.04.2021 18:04:25 Gast82368
NotSolved

Ansicht des Beitrags:
Von:
Daniel
Datum:
07.04.2021 11:31:09
Views:
88
Rating: Antwort:
  Ja
Thema:
Erstellte Outlook-Email gleich in Outlook als Enwürfe speichern

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Erstellte Outlook-Email gleich in Outlook als Enwürfe speichern
07.04.2021 11:31:09 Daniel
NotSolved
07.04.2021 19:05:02 Gast73317
NotSolved
13.04.2021 11:55:09 Gast25282
NotSolved
13.04.2021 18:04:25 Gast82368
NotSolved