Question

Locked

Forward email to a network share

By sfisher ·
Does anyone know if it's possible (and how exactly) to forward/route an email address in Exchange 2003 to a network share folder?

We've used public folders for this but now we need the emails to route to a network folder.

Also, can just the attachment of an email be routed to a network share?

TIA!
Susan

This conversation is currently closed to new comments.

11 total posts (Page 1 of 2)   01 | 02   Next
| Thread display: Collapse - | Expand +

All Answers

Collapse -

Go here for your answer...

http://www.uleth.ca/exchange/

Please post back if you have any more problems or questions.

Collapse -

not exactly what I was looking for

by sfisher In reply to Go here for your answer.. ...

Thanks for the info, however this only shows how to forward an email to another email address. What I need is to forward (route) to a network share folder. OR route the email attachment to a network share folder.

Collapse -

You can not send an email to a network share..

It has to be to an email address, if that email address is attached to the folder in question then it could work. But what you are trying to do is sending emails to a shared folder of which does not make sense. You will need to forward the email in question to a email address only, but i will keep on looking for a way on your issue.

Please post back if you have any more problems or questions.

Collapse -

You can copy email anywhere

by Kenone In reply to Forward email to a networ ...

Once an email hits a mailbox (any mailbox) you can send a copy anywhere you like, just create a rule with the rules wizard. I'm not sure about copying the attachment only, you'd have to experiment with that.

Collapse -

send copy to an Outlook folder only

by sfisher In reply to You can copy email anywhe ...

Thanks, I see what you're talking about but unfortunately it only lets me copy the email to an Outlook folder, not a network shared folder.

Is there any way to send it out of Outlook to a folder on the network?

Collapse -

I have asked around and the only option open to you is..

Solution is to create forwarding rules only with email accounts and NOT Local or shared folders.

Please post back if you have any more problems or questions.

Collapse -

Peconet - Thanks for the help!

by sfisher In reply to I have asked around and t ...

Thanks so much for your time. I pretty much came to the same conclusion - that it's not possible - but wanted to check with those in the "real world". Long ago we had a third-party client program that would strip attachments out of an email and copy it to a share, so I may have to look into an updated version of that.

Thanks again!

Collapse -

My brain just went into Overdrive mode.. here is the code you need..

To do just what you need to do with your emails.

At my company, we're constantly trying to keep our users' mail file sizes down. One method we suggest is to extract large attachments out of their mail files and save them on their network drives. There, they can more easily spot and remove the duplicates (which often get sent back and forth in e-mail conversations). The files can then be burned to a CD, if necessary, and the CD given to the user so the network drive doesn't get full.

This agent will help make extracting attachments easier. The agent removes all attachments from the selected e-mails and places them into a folder chosen by the user. When the script encounters a filename conflict, it appends an 01, 02, etc., to the end of the filename, so that every attachment is saved and none are overwritten. The agent can be placed into the company's custom mail template, or it can be added to any individual mail file design.

To install, just create a new agent called "Mail Tools \\ Extract Attachments From Selected Emails," or something else appropriate. The agent needs to operate on Selected Documents to work. Copy the code below into the appropriate sections of the agent, save it and then run it from the Actions menu with the mail file.


(Declarations)
Dim sDir As String
Dim s As NotesSession
Dim w As NotesUIWorkspace
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument

Sub Initialize

Set s = New NotesSession
Set w = New NotesUIWorkspace
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Dim rtItem As NotesRichTextItem
Dim RTNames List As String
Dim DOCNames List As String
Dim itemCount As Integer
Dim sDefaultFolder As String
Dim x As Integer
Dim vtDir As Variant
Dim iCount As Integer
Dim j As Integer
Dim lngExportedCount As Long
Dim attachmentObject As Variant

x = Msgbox("This action will extract all
attachments from the " & Cstr
(dc.Count) & _
" document(s) you have selected,
and place them into the folder of your
choice." & _
Chr(10) & Chr(10) & "Would you like
to continue?", 32 + 4, "Export
Attachments")
If x <> 6 Then Exit Sub

sDefaultFolder = s.GetEnvironmentString
("LPP_ExportAttachments_DefaultFolder")
If sDefaultFolder = "" Then sDefaultFolder = "F:"
vtDir = w.SaveFileDialog( False, "Export
attachments to which folder?", "All
files|*.*", sDefaultFolder, "Choose
Folder and Click Save")
If Isempty(vtDir) Then Exit Sub
sDir = Strleftback(vtDir(0), "\")
Call s.SetEnvironmentVar
("LPP_ExportAttachments_DefaultFolder", sDir)

While Not (doc Is Nothing)

iCount = 0
itemCount = 0
lngExportedCount = 0
Erase RTNames
Erase DocNames

'Scan all items in document
Forall i In doc.Items

If i.Type = RICHTEXT Then
Set rtItem = doc.GetfirstItem(i.Name)
If Not Isempty(rtItem.EmbeddedObjects)
Then
RTNames(itemCount) = Cstr(i.Name)
itemCount = itemCount +1
End If
End If

End Forall

For j = 0 To itemCount-1
Set rtItem = Nothing
Set rtItem = doc.GetfirstItem(RTNames(j))
Forall Obj In rtItem.EmbeddedObjects
If ( Obj.Type = EMBED_ATTACHMENT )
Then
Call ExportAttachment(Obj)
Call Obj.Remove
Call doc.Save( False, True )
'creates conflict doc if conflict exists
End If
End Forall
Next

'Scan all items in document
Forall i In doc.Items

If i.Type = ATTACHMENT Then

DOCNames(lngExportedCount) =
i.Values(0)
lngExportedCount = lngExportedCount + 1

End If

End Forall

For j% = 0 To lngExportedCount-1
Set attachmentObject = Nothing
Set attachmentObject =
doc.GetAttachment(DOCNames(j%))
Call ExportAttachment(attachmentObject)
Call attachmentObject.Remove
Call doc.Save( False, True )
'creates conflict doc if conflict exists
Next

Set doc = dc.GetNextDocument(doc)
Wend

Msgbox "Export Complete.", 16, "Finished"

End Sub

Sub ExportAttachment(o As Variant)

Dim sAttachmentName As String
Dim sNum As String
Dim sTemp As String

sAttachmentName = sDir
& "\" & o.Source
While Not (Dir$(sAttachmentName, 0) = "")
sNum = Right
(Strleftback(sAttachmentName, "."), 2)
If Isnumeric(sNum) Then
sTemp = Strleftback(sAttachmentName, ".")
sTemp = Left(sTemp, Len(sTemp) - 2)
sAttachmentName = sTemp
& Format$(Cint(sNum) + 1, "##00") & _
"." & Strrightback(sAttachmentName, ".")
Else
sAttachmentName =
Strleftback(sAttachmentName, ".") & _
"01." & Strrightback(sAttachmentName, ".")
End If
Wend

Print "Exporting " & sAttachmentName
'Save the file
Call o.ExtractFile( sAttachmentName )

End Sub
........................................
Happy computing. :)

Please post back if you have any more problems or questions.

Collapse -

New solution for an old thread

by sean.mcinnes In reply to Forward email to a networ ...

I came across your thread and think I have a solution for you. Copying emails into network folders as they are received is possible with eFiler , but please contact me if you would like to know how to do it and I can explain further.

Collapse -

Reponse To Answer

by dusty2487 In reply to New solution for an old t ...

I am very curious if you could explain this in more detail. dustin.s@copysolution.com

Back to Software Forum
11 total posts (Page 1 of 2)   01 | 02   Next

Related Discussions

Related Forums