Save Attachment

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da li neko ima kod pomocu koga bih mogao da sacuvam attachment-e iz mejlova u neki odredjeni folder. Taj kod bi moreo da napravi vise foldera jedan u drugom prema podacima iz maila (posiljaoc\datum\broj\..) i onda da u taj folder sacuva attach. Imam kod pomocu koga mogu da sacuvam attach-e ali bez sortiranja po folderima.

Sub GetAttachments() On Error GoTo GetAttachments_err Dim ns As NameSpace Dim Inbox As MAPIFolder Dim Item As Object Dim Atmt As Attachment Dim FileName As String Dim i As Integer Set ns = GetNamespace("MAPI") Set Inbox = ns.GetDefaultFolder(olFolderInbox) i = 0 If Inbox.Items.Count = 0 Then MsgBox "Nema nijednog pisma koji sadrzi Attachment", vbInformation, "Nothing Found" Exit Sub End If For Each Item In Inbox.Items For Each Atmt In Item.Attachments FileName = "D:\Attachment\" & Atmt.FileName Atmt.SaveAsFile FileName i = i + 1 Next Atmt Next Item If i > 0 Then MsgBox "Nasao sam " & i & "attacment-a" & vbCrLf & "Sacuvao sam ih u folder D:\Attachment\", vbInformation, "Finished!" Else MsgBox "Nisam nasao nijedan attachment", vbInformation, "Finished!" End If GetAttachments_exit: Set Atmt = Nothing Set Item = Nothing Set ns = Nothing Exit Sub GetAttachments_err: MsgBox "Doslo je do neocekivane greske. Pozovite lokal 7846" Resume GetAttachments_exit End Sub

mod: koristi code tagove

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pre nego sto tvoj program izvrsi ovaj kod sto si napisao treba da napravis folder sa imenom posaljioca. Kada to uradis izvuces njegovu putanju i tu putanju ubacis u tvoj kod.