Hallo,
ich hätte gern ein Makro / eine Funktion, bei der ich eine selektierte Mail als Anhang in eine neue Mail packe.
Dim myItem As MailItem, olNewMailItem As MailItem
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set myItem = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set myItem = ActiveInspector.CurrentItem
End Select
On Error GoTo 0
Set olNewMailItem = Application.CreateItem(olMailItem)
olNewMailItem.Attachments.Add (myItem)
olNewMailItem.Display
exitproc:
Set myItem = Nothing
Set olNewMailItem = Nothing
End Sub
funktioniert leider nicht ... hat jemand eine Idee?
|