Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Nou pe simpatie:
inna_90 23 ani
 | Femeie
23 ani
Vrancea
cauta Barbat
30 - 48 ani |
|
|
Mrrrr's Forum (VIEW ONLY)ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
TRaPModerator
Postari: 960
|
|
Source:
https://stackoverflow.com/questions/250 ... cal-folder
You must add the following code into ThisOutlookSession (not as a module).
Open Outlook and press ALT+F11 to open Visual Basic, then click on + for Microsoft Outlook Objects, double click on ThisOutlookSession and paste the following text:
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 = "D:\Test3\" '## Modify as needed
savePath = savePath & Format(Now(), "yyyy.mm.dd__hh-NN-ss ") & m.Subject
savePath = savePath & ".msg"
m.SaveAs savePath, olMsg
End Sub |
More info and options:
https://www.slipstick.com/developer/cod ... sage-file/
|
|
| |
|
