forwarding an email

hi

can someone help me here, is there a way to automatically forward an email to a particular folder after it has been read, not sure if this or something similar can be done

thanks in advance
toddp2

Untested here :

https://stackoverflow.com/questions/...a-local-folder

hi got the sub just dont know how to apply it to my folder

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Call SaveACopy(Item)
End Sub


Sub SaveACopy(Item As Object)
Const olMsg As Long = 3

Dim m As MailItem
Dim savePath As String

If TypeName(Item) <> "MailItem" Then Exit Sub

Set m = Item

savePath = "c:\users\peter_todd\desktopfolder\" '## Modify as needed
savePath = savePath & m.Subject & Format(Now(), "2021-06-18-08:30")
savePath = savePath & ".msg"


m.SaveAs savePath, olMsg

End Sub

Outlook has a VBE editor just like Excel. You would place the macro into a regular module in the Outlook VBE and then
run the macro like you would in Excel.

Admittedly I am not very familiar with Outlook programming as I have never had the need.