Thema Datum  Von Nutzer Rating
Antwort
27.05.2013 10:24:58 Markus
NotSolved
Blau Outlook: Email senden und Versendetes verschieben
27.05.2013 17:26:43 Markus
Solved

Ansicht des Beitrags:
Von:
Markus
Datum:
27.05.2013 17:26:43
Views:
708
Rating: Antwort:
 Nein
Thema:
Outlook: Email senden und Versendetes verschieben

Hallo,

Lösung gefunden - so einfach ginge es:

Sub SendAndMove()

    Dim fldTgt As MAPIFolder
    Dim ml As Object
    
    Set fldTgt = Application.GetNamespace("MAPI").Folders("Archiv")
    
    Set ml = Application.CreateItem(olMailItem)
        With ml
        .To = "adresse@test.com"
        .Subject = "Betreff"
        .Body = "Mailtext"
        Set .SaveSentMessageFolder = fldTgt
        .Send
    End With
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
27.05.2013 10:24:58 Markus
NotSolved
Blau Outlook: Email senden und Versendetes verschieben
27.05.2013 17:26:43 Markus
Solved