Microsoft Excel

Herbers Excel/VBA-Archiv

eEmail Status ändern


Betrifft: eEmail Status ändern
von: Arnd-Olav
Geschrieben am: 29.11.2018 09:35:17

Ich bin mit zwei Beiträgen im Forum bezüglich eines Makro nicht weitergekommen

http://www.herber.de/cgi-bin/callthread.pl?index=1659995
http://www.herber.de/cgi-bin/callthread.pl?index=1659806


und suche nun nach alternativen Lösungen.

Ist es möglich den Status einer als "ungesendet" gespeicherten Email in "gesendet" zu ändern?

Hintergrund: Muss ich eine gespeicherte eMail später weiterleiten, so kann ich dies nur über Umwege, da mir die Befehle/Felder nicht angeboten werden.

  

Betrifft: AW: eEmail Status ändern
von: mumpel
Geschrieben am: 29.11.2018 10:07:58

Hallo!

Nein, das kann man nicht. Entweder die Email wurde gesendet, oder sie wurde nicht gesendet.

Gruß, René


  

Betrifft: AW: eEmail Status ändern
von: Arnd-Olav
Geschrieben am: 29.11.2018 10:16:43

Danke für deine Rückmeldung. Hast du mit meinen anderen beiden Threats ggf eine Idee?


  

Betrifft: AW: eEmail Status ändern
von: PeterK
Geschrieben am: 29.11.2018 12:41:02

Hallo

Ein Workaround (hab dein Beispiel genommen, nachfolgendes muss in Deinem Code ergänzt werden)

    Dim myID As String
    Dim found As Boolean
.
.
.
.
    myID = OutMail.conversationIndex
    With OutMail
        .Send
    End With

    Do
        Application.Wait (Now + TimeValue("00:00:01"))
        DoEvents
        found = False
        For Each OutMail In OutApp.Session.GetDefaultFolder(5).Items '"Gesendete Objekte"
            If OutMail.conversationIndex = myID Then                 'sucht die Email über die  _
ID
                OutMail.SaveAs filepath & emailname & ".msg"
                found = True
            End If
        Next
    Loop Until found





  

Betrifft: AW: eEmail Status ändern
von: Arnd-Olav
Geschrieben am: 29.11.2018 16:46:27

Peter, du bist ein Gott unter den VBAlern :D
Ich danke dir, funktioniert auf anhieb.