none
Markierte Mail im Posteingang als msg speichern

    Frage

  • hallo zusammen

    Ich habe einen tollen Code bekommen von Henry und habe nun noch das Problem, dass ich nur

    die aktuell markierte Mail im Posteingang speichern will. Wie soll das am einfachsten gehen ?

    Anbei der Code der mit alle Mails im Posteingang als msg speichert, funktioniert einwandfrei;

    Public Function saveOlInboxToTemp()
      Dim appOL As Outlook.Application
      Dim mit As Outlook.MailItem
      Dim nsp As Outlook.NameSpace
      Dim fld As Outlook.MAPIFolder
      Dim J As Long
      Set appOL = New Outlook.Application
    Set nsp = appOL.GetNamespace("MAPI")
      Set fld = nsp.GetDefaultFolder(olFolderInbox)
      For J = 1 To fld.Items.Count
        On Error Resume Next
        Set mit = fld.Items(J)
        If Err = 0 Then
          mit.SaveAs "c:\Temp\" & J & ".msg", olMSG
        Else
    MsgBox "Item(" & J & ") Is not a Mailitem"
        End If
      Next
      Set mit = Nothing
      Set fld = Nothing
      Set appOL = Nothing
    End Function

    Merci für eure Ergänzungen

    Gruss

    René

    Montag, 5. November 2012 17:01

Antworten

  • hallo zusammen

    haben inzwischen eine Lösung gefunden; resp. bekommen von Tom !

    Option Compare Database

    Option Explicit

    Private Const SavePath As String = ""

    Sub SaveSelectMail()
       
    Dim olApp As Outlook.Application
       
    Dim olExplorer As Outlook.Explorer
       
    Dim olMail As Outlook.MailItem
       
       
    Set olApp = New Outlook.Application
       
    Set olExplorer = olApp.ActiveExplorer
       
    Set olMail = olExplorer.Selection(1)
        olMail
    .SaveAs SavePath, OlSaveAsType.olMSGUnicode
       
       
    Set olMail = Nothing
       
    Set olExplorer = Nothing
       
    Set olApp = Nothing
    End Sub

    Vielen Dank und Gruss

    René

    • Als Antwort markiert René Stutz Mittwoch, 7. November 2012 10:58
    Mittwoch, 7. November 2012 10:58