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
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.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks