Script Outlook alle pdf aus Ordner einzeln al Mail versicken

Moderator: ModerationP

Script Outlook alle pdf aus Ordner einzeln al Mail versicken

Beitragvon Michael M » 30. Apr 2019, 13:48

Guten Tag,

ich möchte alle PDF aus einem Ordner automatisch einzeln als Mail verschicken.

Das Script enthält Laufzeitfehler 5


Public Sub SendAllFiles()
Dim Files As VBA.Collection
Dim File As Scripting.File
Dim Mail As Outlook.MailItem
Dim Atts As Outlook.Attachments

'Alle Dateien aus diesem Verzeichnis senden
m_Send = "C:\SIC\Sani97\Formular\test"

'Gesendete Dateien hierhin verschieben
m_Done = "C:\SIC\Sani97\Formular\test\gesendet"

'Empfänger
m_To = "ausgangrechnungarchiv@test.de"

Set Files = GetFiles
If Files.Count Then
For Each File In Files
Set Mail = Application.CreateItem(olMailItem)
Mail.Attachments.Add File.Path
File.Move m_Done & File.Name
Mail.To = m_To
Mail.Subject = "Datei: " & File.Name
Mail.Display
Next
End If
End Sub

Private Function GetFiles() As VBA.Collection
Dim Folder As Scripting.Folder
Dim Fso As Scripting.FileSystemObject
Dim Files As Scripting.Files
Dim File As Scripting.File
Dim List As VBA.Collection

Set List = New VBA.Collection
Set Fso = New Scripting.FileSystemObject
Set Folder = Fso.GetFolder(m_Send)
Set Files = Folder.Files
For Each File In Files
'Nur die Dateien zurückgeben, die nicht versteckt sind
If (File.Attributes Or Hidden) <> File.Attributes Then
List.Add File
End If
Next
Set GetFiles = List
End Function

Bitte um Hilfe!

MfG
Müller Michael
Michael M
 

Re: Script Outlook alle pdf aus Ordner einzeln al Mail versi

Beitragvon Michael Bauer » 30. Apr 2019, 19:31

Wenn Du die Arbeit anderer weitergibst etc., dann gehört ein Verweis auf die Quelle dazu:
http://www.vboffice.net/de/developers/alle-dateien-eines-ordners-senden#t2
Michael Bauer
Add-Ins für Microsoft Outlook
Benutzeravatar
Michael Bauer
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6374
Registriert: 03. Feb 2005, 15:07
Wohnort: Vollersode


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste