Save Outlook Attachments in a Dir

[NiMora]

Hi again,

I expandet my code as follow (save the attached files from Outlook - after: If Not Err.Number <> 0 Then):

Option Compare
DatabaseOption Explicit


Private Sub Befehl17_Click()
' ##################### OutlookImport ##################################
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim outObject, Mapi, Inbox, InboxImported
Dim i As Integer
Dim strSQL As String


Set rs = CurrentDb.OpenRecordset("OutlookImport")
Set outObject = CreateObject("Outlook.Application")
Set Mapi = outObject.GetNamespace("MAPI")
Set Inbox = Mapi.GetDefaultFolder(olFolderInbox).Folders("import")
Set InboxImported = Mapi.GetDefaultFolder(olFolderInbox).Folders("imported")


    For Each Mail In Inbox.Items
    
    strSQL = "INSERT INTO OutlookImport (AbsenderMail, AbsenderName, SendTo, SendCC, Betreff, MailDatum, Nachricht, EntryID) VALUES ('" & Mail.SenderEmailAddress & "', '" & Mail.SenderName & "', '" & Mail.To & "', '" & Mail.CC & "', '" & Mail.Subject & "', '" & Mail.SentOn & "', '" & Mail.Body & "', '" & Mail.EntryID & "');"


        DoCmd.SetWarnings False
        On Error Resume Next
        DoCmd.RunSQL strSQL
        DoCmd.SetWarnings True
    
         If Not Err.Number <> 0 Then
            If Mail.Attachments.Count > 0 Then                
                AnzAttach = Mail.Attachments.Count
                strPath = "C:\Unterlagen\" & Replace(Mail.SenderName, " ", "") & "_" & Replace(Replace(Mail.SentOn, " ", "_"), ":", ".")
                Debug.Print strPath
                MkDir strPath
                
                For i = 1 To AnzAttach
                    Mail.Attachments.Item(i).SaveAs strPath & Mail.Attachments.Item(i).FileName
                Next i


                Mail.Move InboxInBearbeitung 'Mails verschieben in Bearbeitung
            End If                    
         End If
    Next


    Forms![OutlookImport].Requery
End Sub

the directroy "Unterlagen" allready exist.

So, the definition of the path works (strPath)
the creation of the path wirks (MkDir)

but the SaveAs command did not work, the new directories are empty.

I think, the syntax is correctly, is´nt it?

any ideas?

thx

[June7]

Appear to be missing \ character in the path concatenation to file name.

Mail.Attachments.Item(i).SaveAs strPath & "\" & Mail.Attachments.Item(i).FileName

I found example code that used SaveAsFile instead of just SaveAs.

[NiMora]

Hi June7,

thx for reply but nope, ist want wokr :/

SaveAsFile was my first try but with that I get a filemane including the directory name like c:\Unterlagen\blabla.pdf

so, thats not what I want

Edit:

sorry, it works with your &"\" and!!! SaveAsFile.



once again: thx for quick help

[June7]

I got this to work.

Dim olApp As Outlook.Application, olMail As Outlook.MailItem, olAtt As Outlook.Attachments, olSel As Outlook.Selection
Dim i As Integer
Set olApp = CreateObject("Outlook.Application")
Set olSel = olApp.ActiveExplorer.Selection
On Error Resume Next
For Each olMail In olSel
    Set olAtt = olMail.Attachments
    If olMail.Attachments.Count > 0 Then
        For i = olMail.Attachments.Count To 1 Step -1
            olAtt.Item(i).SaveAsFile "C:\Temp\" & olAtt.Item(i).FileName
        Next i
    End If
Next

[NiMora]

Okay, now it works and I try to save the folder in my table to go to from a form if I want. I thought it must be simple and try this code:

Mail.Attachments.Item(i).SaveAsFile strPath & "\" & Mail.Attachments.Item(i).FileName
strSQLAtt = "INSERT INTO OutlookImport (AttachFolder) VALUE ('" & strPath & "');"
DoCmd.RunSQL strSQLAtt

I was sure, that it works so simple as it looks like, but I was wrong.

So what is my misstake?

[June7]

What do you mean by 'save the folder in my table'? Just the path string into a text field?

[NiMora]

I mean to save only the string "c:\Unterlagen\..."

I will use the string to open the folder in the windows explorer by pressing a button in a form.

and I create a new field "AttachFolder" as you can see. It is impossible to get the Me.AttachFolder. No Auto complete, and if I try to compile the code, I get "method or data object not found"

[June7]

Should be VALUES

However, I would use:

CurrentDb.Execute strSQLAtt

[NiMora]

why it is better to use
"CurrentDb.Execute strSQLAtt"
instead of
"DoCmd.RunSQL strSQLAtt"

[June7]

Execute does not trigger warning messages that RunSQL does so don't have to bother with SetWarnings.

There may be other benefits that have to do with other arguments of Execute method.

[NiMora]

okay, that: Should be VALUES

solve the problem.

sorry for my blindnes