17.12.2020, 14:41
Hallo,
ich möchte eine selektierte Email exportieren, zuvor den Ordner über den Explorer auswählen.
Die Auswahl des Pfades funktioniert, allerdings wird die Mail dann eine Ebene über dem ausgewählten Ordner abgelegt und als Präfix erscheint der Name des gewählten Ordners. Ich werde nicht schlau daraus.
Bitte um sachdienliche Hinweise, danke!
ich möchte eine selektierte Email exportieren, zuvor den Ordner über den Explorer auswählen.
Die Auswahl des Pfades funktioniert, allerdings wird die Mail dann eine Ebene über dem ausgewählten Ordner abgelegt und als Präfix erscheint der Name des gewählten Ordners. Ich werde nicht schlau daraus.
Bitte um sachdienliche Hinweise, danke!
Code:
Sub Save_Mail_with_Date()
Dim sFolder
Dim Text As String
Dim Pfad As String
Dim xlObj
Dim xlsFolder
Set xlObj = CreateObject("Excel.Application")
Set xlsFolder = xlObj.FileDialog(msoFileDialogFolderPicker)
If xlsFolder.Show = -1 Then
sFolder = xlsFolder.SelectedItems(1)
End If
xlObj.Quit
Set xlObj = Nothing
If sFolder <> "" Then
MsgBox sFolder
End If
Pfad = sFolder
If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
Set obj = Application.ActiveWindow
Set obj = obj.Selection(1)
Else
Set objInspector = ActiveInspector
objInspector.Activate
If objInspector.IsWordMail Then
Set obj = Application.ActiveInspector.CurrentItem
End If
End If
With obj
Text = Replace(.Subject, "/", "_")
Text = Replace(Text, "!", "")
Text = Replace(Text, ".", "_")
Text = Replace(Text, "\", "_")
Text = Replace(Text, ":", "_")
Text = Replace(Text, "(", "")
Text = Replace(Text, ")", "")
Text = Replace(Text, """", "")
.SaveAs Pfad & Format(.ReceivedTime, "YYYY-MM-DD_hh-mm") & "_" & Text & ".msg", olMSG
End With
End Sub