Automatisch Opslaan bijlagen vanuit outlook 2021 naar folder

[Chadi]

Mijn vraag
...Bijlagen automatisch opslaan lukt niet. VBS script gebruikt die zou moeten werken maar bijlgane worden niet opgeslagen

Relevante software en hardware die ik gebruik
...Outlook2021 , Oulook account waar de bijlagen naar toe worden gemaild

Wat ik al gevonden of geprobeerd heb
...

De volgende scripts. Als regel toegevoegd .

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments(item As Outlook.MailItem)
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String, xDateFormat As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = "C:\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xDateFormat = Format(xMailItem.ReceivedTime, "yyyy-mm-dd HH-mm-ss ")
xFilePath = xFolderPath & xDateFormat & xAttachments.item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.item(i)) = False Then
xAttachments.item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

-------------------------------------------------------------------------------------------

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\temp\"
Dim dateFormat
dateFormat = Format(Now, "yyyy-mm-dd H-mm")
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub

[ Voor 42% gewijzigd door Chadi op 29-12-2023 00:26 ]

[sig69]

Vraag het degene die het script gemaakt heeft: https://www.extendoffice....save-all-attachments.html

Wat ik al gevonden of geprobeerd heb
...

En als je dit gedeelte leeg laat kunnen we helemaal weinig voor je betekenen.

[Chadi]

sig69 schreef op vrijdag 29 december 2023 @ 01:06:
Vraag het degene die het script gemaakt heeft: https://www.extendoffice....save-all-attachments.html

[...]

En als je dit gedeelte leeg laat kunnen we helemaal weinig voor je betekenen.

Ik heb precies opgevolgd wat daarin staat. Alles gezet zoals aangegeven

[Lustucru]

Chadi schreef op vrijdag 29 december 2023 @ 00:24:
Mijn vraag
...Bijlagen automatisch opslaan lukt niet. VBS script gebruikt die zou moeten werken maar bijlgane worden niet
...

De volgende scripts. Als regel toegevoegd

Het klopt dat het niet werkt. Deze scripts zijn niet geschikt om automatisch dmv een regel uit te voeren. Zie ook de pagina waar je de scripts vandaan hebt

[Chadi]

Lustucru schreef op vrijdag 29 december 2023 @ 15:50:
[...]

Het klopt dat het niet werkt. Deze scripts zijn niet geschikt om automatisch dmv een regel uit te voeren. Zie ook de pagina waar je de scripts vandaan hebt

Oke, Ik begrijp het even niet. Dacht dat het een vb script is om in outlook uit te voeren zodat attachments werden opgeslagen in een specifieke folder. Dat staat er toch ook of lees ik ergens overheen?

[F_J_K]

De werkwijze staat er beschreven, vandaar.

Belangrijker: je wilt nooit een script oppakken en gebruiken zonder te snappen wat er gebeurt en dus ook te kunnen debuggen.

Zo nodig kan je de daar beschreven werkwijze gebruiken, maar het is dus een heel ander script dan wat je vraagt. Is wel wat meer werk, zo af en toe.

Ik denk dat het beter is om een nieuw topic te openen met de functionele vraag, aangezien hier troubleshooten de inhoud van de code in zal gaan en dat werkt zo te zien niet in dit geval. Open dan een nieuw topic met wat opties.

Merk ook op dat sinds Office 2010, de run-a-script rules zijn uitgeschakeld uit veiligheidsoverwegingen. Er is zoals zo vaak een omweg. Maar: schakel weer in op eigen risico. En niet als je de machine voor werk gebruikt.

Ik zou vooral ook als optie meenemen geen Outlook te gebruiken als je geautomatiseerd alle inkomende mails langs wilt gaan en bijlagen er uit wilt halen.

Maar open dus ajb een topic met andere insteek.