|
|
|
|
Strumenti |
05-02-2022, 17:32 | #1 |
Senior Member
Iscritto dal: Sep 2009
Città: Pordenone
Messaggi: 1382
|
[visual basic] export degli allegati
Ciao a tutti,
ho realizzato il seguente codice che esporta gli allegati dalle mail. Codice:
Public Sub SaveAutoAttach() Dim OutlookApp As Object Dim OlNs As Object Dim OlFolder As Object Dim x As Long Dim att As Outlook.Attachment Dim MItem As Outlook.mailitem Set OutlookApp = New Outlook.Application Set OlNs = OutlookApp.GetNamespace("MAPI") Set OlFolder = OlNs.PickFolder For Each MItem In OlFolder.Items For Each att In MItem.Attachments If InStr(att.DisplayName, ".pdf") Then att.SaveAsFile ("D:\Allegati") & "\" & att.DisplayName End If On Error Resume Next Next att On Error Resume Next Next MItem End Sub |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 23:54.