I am attempting to have email attachments downloaded and stored into Laserfiche without doing this step manually each time. I believe this can be done CMA Email Manager. Can this only be done with third-party software?
Hi Patrick,
In addition to Mark's suggestion, you might be interested in the email archiving integrations available on the Laserfiche Integration Marketplace. There are a number of them there that can automatically bring emails into Laserfiche, including email attachments, such as the MagniMail integration.
Additionally, if one of these posts provides you with the answer you need, please mark it as the user approved answer. Thanks!
I did this by writing a VB script and executing it with the outlook rules that saves it to a directory location then used import agent and workflow to bring it in and route to the appropriate area.
Mark,
could you share your VB script?
Would you be willing to share your VB script? I am trying to do something similar without using a third party integration software.
I believe that it would be something similar to this:
Option Explicit
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim Ns As Outlook.NameSpace
Set Ns = Application.GetNamespace("MAPI")
Set Items = Ns.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub Items_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.MailItem Then
Dim sPath As String
Dim dtDate As Date
Dim sName As String
Dim enviro As String
enviro = CStr(Environ("USERPROFILE"))
sName = Item.Subject
ReplaceCharsForFileName sName, "_"
dtDate = Item.ReceivedTime
sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(dtDate, "-hhnnss", _
vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
' use My Documents for older Windows.
sPath = enviro & "\Documents\"
Debug.Print sPath & sName
Item.SaveAs sPath & sName, olMSG
End If
End Sub
Private Sub ReplaceCharsForFileName(sName As String, _
sChr As String _
)
sName = Replace(sName, "/", sChr)
sName = Replace(sName, "\", sChr)
sName = Replace(sName, ":", sChr)
sName = Replace(sName, "?", sChr)
sName = Replace(sName, Chr(34), sChr)
sName = Replace(sName, "<", sChr)
sName = Replace(sName, ">", sChr)
sName = Replace(sName, "|", sChr)
End Sub
https://www.slipstick.com/outlook/archive-outlook/save-incoming-messages-hard-drive/
adding my two cents, VB script and instead of using Laserfiche integration features in outlook, the use LF Import Agent to bring the attachments in to Laserfiche can give an extra level of control and options.