Hallo zusammen,

ich benötige eure Hilfe. Ich komme einfach nicht weiter. Ich möchte Mails nachdem sie im Ordner Gesendete Objekte gelandet sind auf der Festplatte speichern. Das habe ich auch schon son hinbekommen. Aber nur für das Haupt-Postfach.

Diese Funktion benötige ich aber für ein anderes Postfach. Wie muss ich das Macro ändern? We kann mir dabei helfen?

Den folgenden Code habe ich in "ThisOutlookSession" eingefügt

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim myRecipient As Outlook.Recipient 'neu

  Set Ns = Application.GetNamespace("MAPI")
  Set Items = Ns.GetDefaultFolder(olFolderSentMail).Items 'hier wird aber leider nur das Standardkonto berücksichtigt
  'Ich benötige aber ein anders Konto. Wi bekomme ich das hin?
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  If TypeOf Item Is Outlook.MailItem Then
    PrintNewItem Item
  End If
End Sub

Private Sub PrintNewItem(Mail As Outlook.MailItem)
Dim strSpeicherpfad As String
Dim strBetreff As String
Dim strSuche As String
'Variablen zuweisen
    strSpeicherpfad = "C:\Users\Public\"             'hier das Laufwerk und Verzeichnis angeben
    strBetreff = LCase(Mail.Subject)    'Die Betreffzeile in kleinbuchstaben umwandeln und zuweisen
    strSuche = "test"                   'Suchtext
'Fehler abfangen
 '   On Error Resume Next

'hier soll eine Abfrage folgen ob ein Teil des Betreffs mit einer Vorgabe übereinstimmt,
'wenn ja soll die Mail in einem Verzeichnis gespeichert werden
    If InStr(1, strBetreff, strSuche) > 0 Then
        Mail.SaveAs (strSpeicherpfad & Mail.Subject & ".msg")
    End If
End Sub

Für Eure Unterstützung im Voraus meinen besten Dank,

Gruß,

Tias