mit dem angehängten VBA Sub speichere ich die letzten beiden E-Mails aus meinem Outlook Ordner "Gesendete Elemente". Das funktioniert auch.
Nun sollen allerdings nicht die letzten beiden Mails aus dem privaten Postfach sondern aus dem "Sent Items" Ordner eines eingebundenen FMBs gespeichert werden.
Könnt ihr mir helfen, wie ich dafür den Code anpassen muss?
Sub GesendeteEMailsSpeichern()
Dim OutlookApp As Outlook.Application
Dim Namespace As Outlook.Namespace
Dim DateiNummer As Integer
Dim Folder As Outlook.Folder
Dim MailItem As Outlook.MailItem
Dim i As Integer
Dim SaveFolder As String
Dim Temp_Pfad As String
'Temp-Datei-Pfad festlegen
Temp_Pfad = Pfad_Temp_Ordner_global & "\Temp_Ordnerpfad.txt"
'Datei öffnen und Ordner-Pfad auslesen
DateiNummer = FreeFile
Open Temp_Pfad For Input As #DateiNummer
Line Input #DateiNummer, SaveFolder
'Datei schließen
Close #DateiNummer
'Namespace erstellen
Set Namespace = GetNamespace("MAPI")
'Gesendete Elemente Ordner festlegen
Set Folder = Namespace.GetDefaultFolder(olFolderSentMail)
'Sonderzeichen entfernen und die letzten beiden E-Mails speichern
For i = Folder.Items.Count To Folder.Items.Count - 1 Step -1
If i 1 Then Exit For 'Falls weniger als 2 E-Mails vorhanden sind
Set MailItem = Folder.Items(i)
MailItem.Subject = Replace(MailItem.Subject, "\", "_")
MailItem.Subject = Replace(MailItem.Subject, "/", "_")
MailItem.Subject = Replace(MailItem.Subject, ":", "_")
MailItem.Subject = Replace(MailItem.Subject, "*", "_")
MailItem.Subject = Replace(MailItem.Subject, "?", "_")
MailItem.Subject = Replace(MailItem.Subject, " ", "_")
MailItem.Subject = Replace(MailItem.Subject, "", "_")
MailItem.Subject = Replace(MailItem.Subject, ">", "_")
MailItem.Subject = Replace(MailItem.Subject, "|", "_")
'E-Mail speichern und Ressource freigeben
MailItem.SaveAs SaveFolder & "\" & MailItem.Subject & ".msg", olMSG
Set MailItem = Nothing
Next i
'Ressourcenfreigabe
Set Folder = Nothing
Set Namespace = Nothing
Set OutlookApp = Nothing
End Sub